--- tabea.cgi 2002/05/07 14:30:56 1.7
+++ tabea.cgi 2002/05/08 07:38:18 1.8
@@ -99,7 +99,6 @@
while(<$pwdin>) {
$_ =~ s|^(\w+):(\w+)$|{$uname=$1; $pwd=$2}|eg;
( $uname =~ $username ) && do { # check the password
- print "Checking password : ";
if (crypt($password, $pwd) eq $pwd){
$returnvalue = 1;
}
@@ -153,10 +152,46 @@
}
elsif ($form eq 'login') {
# enter Select form
+
&validpassword($username, $password, $pwdfile) || print STDOUT $cgi->redirect(-uri => $cgi->url(-full => 1), -type => "text/html");
- $page .= "Dialog: ".$cgi->param("dialog") ."<br>\n";
- $page .= "Username: ".$cgi->param("username") ."<br>\n";
- $page .= "Password: ".$cgi->param("password") ."<br>\n";
+#
+ $page .= $cgi->startform( -method => "POST", -action => $cgi->url(-full => 1)) .
+ $cgi->hidden(-name => 'form', -default => ['']) .
+
+# "<table cellspacing=0 cellpadding=0>" .
+# " <tr>" .
+# " <td>Username:</td>" .
+# " <td>" .
+# $cgi->textfield(
+# -name => 'username',
+# -default => $username,
+# -size => 20,
+# -maxlength => 8
+# ) .
+# " </td>" .
+# " </tr>" .
+# " <tr>" .
+# " <td>Password:</td>" .
+# " <td>" .
+# $cgi->password_field(
+# -name => 'password',
+# -value => $password,
+# -size => 20,
+# -maxlength => 80
+# ) .
+# " </td>" .
+# " </tr>" .
+# " <tr>" .
+# " <td colspan=2 align=right>" .
+# $cgi->reset() .
+# $cgi->submit(-name => 'dialog', -value => 'Login') .
+# " </td>" .
+# " </tr>" .
+# "</table>" .
+# $cgi->endform; print "$pwd\n";
+# $page .= "Dialog: ".$cgi->param("dialog") ."<br>\n";
+# $page .= "Username: ".$cgi->param("username") ."<br>\n";
+# $page .= "Password: ".$cgi->param("password") ."<br>\n";
}
elsif ($form eq 'select') {
# enter Edit form
|
