Changeset 14370 for greenstone3/trunk/web/WEB-INF/cgi/gliserver4gs3.pl

Timestamp:

2007-08-14T13:00:53+12:00 (17 years ago)

Author:

qq6

Message:

encrypt the password

File:

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

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

@@ -23 +23 @@
     # Load the Greenstone modules that we need to use
     $gsdl_cgi->setup_gsdl();
-
-    my $gsdlhome = $ENV{'GSDLHOME'};
+    my $gsdlhome = $ENV{'GSDLHOME'};
+
     $gsdl_cgi->checked_chdir($gsdlhome);
     require "$gsdlhome/perllib/util.pm";  # This is OK on Windows
@@ -31 +31 @@
     # Encrypt the password
     if (defined $gsdl_cgi->param("pw")) {
-    #$gsdl_cgi->param('-name' => "pw", '-value' => &Crypt::UnixCrypt::crypt($gsdl_cgi->clean_param("pw"), "Tp"));
+    $gsdl_cgi->param('-name' => "pw", '-value' => $gsdl_cgi->rot13($gsdl_cgi->clean_param("pw")));
     }
 
@@ -67 +67 @@
     $gsdl_cgi->delete("ts");
 
-    my $site= $gsdl_cgi->clean_param("site");
+    my $site= $gsdl_cgi->clean_param("site");   
     if (!defined $site) {
-    #$gsdl_cgi->generate_error("No site specified.");
+    $gsdl_cgi->generate_error("No site specified.");
     }
     $gsdl_cgi->delete("site");
@@ -158 +158 @@
     my $java_command="$java -classpath \"$java_classpath\" org.greenstone.gsdl3.util.usersDB2txt \"$java_args\" 2>&1";
     my $users_db_content = `$java_command`;
-    
+
     # Get the user account information from the usersDB database
     my %users_db_data = ();
@@ -612 +612 @@
     }
 
-   
     # Zip up the collection file
     my $java = $gsdl_cgi->get_java_path();