Index: ossp-pkg/tabea/tabea.cgi
RCS File: /v/ossp/cvs/ossp-pkg/tabea/tabea.cgi,v
rcsdiff -q -kk '-r1.6' '-r1.7' -u '/v/ossp/cvs/ossp-pkg/tabea/tabea.cgi,v' 2>/dev/null
--- tabea.cgi	2002/05/07 12:58:21	1.6
+++ tabea.cgi	2002/05/07 14:30:56	1.7
@@ -35,6 +35,8 @@
 
 $|++;
 
+my $pwdfile = "./tabea.pw";
+
 # establish my configuration
 my $MY = {};
 $MY->{PROGNAME} = ($0 =~ m|^.*?([^/]+?)(?:\.[^/.]+)?$|)[0];
@@ -82,10 +84,35 @@
     }
 }
 
+########################################################################################
 sub validpassword {
+########################################################################################
     my ($username, $password) = @_;
-    return "";
+
+    my $returnvalue = 0;
+    my $uname;
+    my $pwd;
+    my $pwdin;
+ 
+    $pwdin = IO::File->new("<$pwdfile");
+    if(defined $pwdin) {
+        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;
+                }
+            }
+        }
+    }
+
+    $pwdin->close();
+
+    return $returnvalue;
 }
+########################################################################################
+
 
 my $page = '';
 
@@ -126,14 +153,14 @@
 }
 elsif ($form eq 'login') {
     #   enter Select form
-    # &validpassword($username, $password) || print STDOUT $cgi->redirect(-uri => $cgi->url(-full => 1), -type => "text/html");
+    &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";
 }
 elsif ($form eq 'select') {
     #   enter Edit form
-    &validpassword($username, $password) || print STDOUT $cgi->redirect(-uri => $cgi->url(-full => 1), -type => "text/html");
+    &validpassword($username, $password, $pwdfile) || print STDOUT $cgi->redirect(-uri => $cgi->url(-full => 1), -type => "text/html");
 }
 else {
     die "invalid form \"$form\"";