Changeset 11832

Timestamp:

2006-05-18T11:00:20+12:00 (18 years ago)

Author:

mdewsnip

Message:

The crypt function wasn't working on Windows with Perl 5.6.1, and the Crypt::UnixCrypt::crypt replacement wasn't being used as it should. Now the Crypt::UnixCrypt version is always used (both on Windows and Unix).

File:

• trunk/gsdl/cgi-bin/gliserver.pl (modified) (1 diff)

trunk/gsdl/cgi-bin/gliserver.pl

@@ -29 +29 @@
     # Encrypt the password
     if (defined $gsdl_cgi->param("pw")) {
-    $gsdl_cgi->param('-name' => "pw", '-value' => crypt($gsdl_cgi->clean_param("pw"), "Tp"));
+    $gsdl_cgi->param('-name' => "pw", '-value' => &Crypt::UnixCrypt::crypt($gsdl_cgi->clean_param("pw"), "Tp"));
     }