Changeset 14571

Timestamp:

2007-09-25T12:39:27+12:00 (17 years ago)

Author:

qq6

Message:

added a uer_validation method

File:

• greenstone3/trunk/web/WEB-INF/cgi/gliserver4gs3.pl (modified) (3 diffs)

greenstone3/trunk/web/WEB-INF/cgi/gliserver4gs3.pl

@@ -109 +109 @@
     &new_collection_directory($gsdl_cgi, $username, $timestamp, $site);
     }
-    elsif ($cmd eq "authenticate_user") {
-        &authenticate_user($gsdl_cgi, $username, "a1-t1", $site);
+    elsif ($cmd eq "user-validation") {
+        &user_validation($gsdl_cgi, $username, $timestamp, $site);
     }
     elsif ($cmd eq "run-script") {
@@ -265 +265 @@
 #   ACTIONS
 # ----------------------------------------------------------------------------------------------------
-
+sub user_validation{
+    #print "Content-type: text/html\n\n";
+     my ($gsdl_cgi, $username, $timestamp, $site) = @_;
+   
+    # Users can be in any group to perform this action
+    my $user_err = &authenticate_user($gsdl_cgi, $username, "", $site);
+     if (defined $user_err && $user_err!~ /ERROR/){
+     if ($user_err!~ /ERROR/){
+         #$gsdl_cgi->generate_error("Authentication failed: $username is not valid");
+         $gsdl_cgi->generate_ok($user_err);
+         #print $user_err;
+     }else{
+         $gsdl_cgi->generate_error($user_err);
+         #print "not valid" . $user_err;
+     }
+     }else{
+     $gsdl_cgi->generate_error("Authentication failed: $username is not valid");     
+     }
+}
 
 sub check_installation
@@ -590 +608 @@
 {
     my ($gsdl_cgi, $username, $timestamp, $site) = @_;
+
+    # Users can be in any group to perform this action
+    my $user_groups = &authenticate_user($gsdl_cgi, $username, "", $site);
 
     my $file = $gsdl_cgi->clean_param("file");