Index: ossp-pkg/tabea/tabea.cgi
RCS File: /v/ossp/cvs/ossp-pkg/tabea/tabea.cgi,v
rcsdiff -q -kk '-r1.7' '-r1.8' -u '/v/ossp/cvs/ossp-pkg/tabea/tabea.cgi,v' 2>/dev/null
--- 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