Changeset 26206 for main/trunk/greenstone2/common-src/cgi-bin/gliserver.pl

Timestamp:

2012-09-18T18:10:37+12:00 (12 years ago)

Author:

ak19

Message:

Fixes to get Remote Greenstone 3 working with client-gli: 1. client-GLI should not start the local GS3 server, since client-GLI will be running against a remote server. 2. The encryption process for authentication had been changed for GS3, so now Authentication.java has a main function which is invoked by gliserver's gsdlCGI.pm to encrypt the password. 4. UsersDB when converted to txt for parsing by gliserver.pl has a different structure, so gliserver.pl needs to take that into account. 5. util.pm's functions for prepending and appending to environment variables needs to use an OS dependant path separator. This was not noticed when testing the remote GS server on 32 bit linux so far, but the windows style path separator (semicolon) used so far didn't work on the 64 bit linux test machine.

File:

• main/trunk/greenstone2/common-src/cgi-bin/gliserver.pl (modified) (3 diffs)

main/trunk/greenstone2/common-src/cgi-bin/gliserver.pl

@@ -230 +230 @@
     # Get the user account information from the usersDB database
     my %users_db_data = ();
-    foreach my $users_db_entry (split(/-{70}/, $users_db_content)) {
-    if ($users_db_entry =~ m/\n?\[(.+)\]\n/) {
+
+    # a line dividing one user entry from another is made up of 70 hyphens for GS2 (37 hyphens for GS3)
+    my $horizontal_divider = ($gsdl_cgi->greenstone_version() == 2) ? q/-{70}/ : q/-{37}/;
+    foreach my $users_db_entry (split($horizontal_divider, $users_db_content)) {    
+    if ($users_db_entry =~ m/\n?\[(.+)\]\n/ || $users_db_entry =~ m/\n?USERNAME = ([^\n]*)\n/) { # GS2 and GS3 formats
         $users_db_data{$1} = $users_db_entry;
     }
@@ -243 +246 @@
 
     # Check password
-    my ($valid_user_password) = ($user_data =~ m/\<password\>(.*)/);
+    my $pwdLine = ($gsdl_cgi->greenstone_version() == 2) ? q/\<password\>(.*)/ : q/\n?PASSWORD = (.*)\n/;
+    my ($valid_user_password) = ($user_data =~ m/$pwdLine/);
     if ($user_password ne $valid_user_password) {
     $gsdl_cgi->generate_error("Authentication failed: incorrect password.");
@@ -249 +253 @@
 
     # Check group
-    my ($user_groups) = ($user_data =~ m/\<groups\>(.*)/);
+    my $groupLine = ($gsdl_cgi->greenstone_version() == 2) ? q/\<groups\>(.*)/ : q/\n?GROUPS = (.*)\n/;
+    my ($user_groups) = ($user_data =~ m/$groupLine/);
 
     if ($collection eq "") {