[plug] perl question

[Patrick Tehvand]

On Tue, 20 Aug 2002 10:21, Anthony J. Breeds-Taurima wrote:

> We need to see the call in the original script so we can help.

in the main.cgi script:
<snip>
require "locked.cgi";

<snip>

print "<table border=\"0\" height=\"100%\" width=\"150\"><tr><td>";
if (exists($in{username})) {
        &authenticate;
	print "You were authenticated.<br>";
else {
        print "<table valign=\"bottom\" border=\"0\" height=\"1%\" width=\"150\"><tr><td valign=\"top\">
        <form method = \"post\" action = \"main.cgi\">
        Username <input size=\"19\" type = \"input\" name = \"username\"><br>
        Password <input size=\"19\" type = \"password\" name = \"password\"><br>
        <input type = \"submit\" value = \"login\"></td></tr></table></td></tr>

        ";

}
print <<"EndofHTML";
<tr valign="bottom" align="right"><td> etc......

is that what you need?

_____________________________________________________________________
This e-mail is brought to you 100% virus free by Perth iX using MessageLabs SkyScan scanning service. For more information please call Perth iX on +61 8 92166600 or email info at perthix.net.