OSSP CVS Repository

ossp - Check-in [2122]
Not logged in
[Honeypot]  [Browse]  [Home]  [Login]  [Reports
[Search]  [Ticket]  [Timeline
  [Patchset]  [Tagging/Branching

Check-in Number: 2122
Date: 2002-May-08 09:38:18 (local)
2002-May-08 07:38:18 (UTC)
User:ps
Branch:
Comment: Removed unneeded print statement
Tickets:
Inspections:
Files:
ossp-pkg/tabea/tabea.cgi      1.7 -> 1.8     39 inserted, 4 deleted

ossp-pkg/tabea/tabea.cgi 1.7 -> 1.8

--- 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

CVSTrac 2.0.1