Changeset 14218 for gsdl

Timestamp:

2007-07-04T16:11:23+12:00 (17 years ago)

Author:

mdewsnip

Message:

Undid changes made by someone else.

File:

• gsdl/trunk/cgi-bin/gliserver.pl (modified) (4 diffs)

gsdl/trunk/cgi-bin/gliserver.pl

@@ -1 +1 @@
 #!perl -w
-
 # Need to specify the full path of Perl above
 
@@ -109 +108 @@
 sub authenticate_user
 {
-    
     my $gsdl_cgi = shift(@_);
     my $username = shift(@_);
@@ -563 +561 @@
     }
 
-    print STDOUT "Content-type:text/plain\n\n";
     foreach my $cgi_arg_name ($gsdl_cgi->param) {
     my $cgi_arg_value = $gsdl_cgi->clean_param($cgi_arg_name) || "";
@@ -584 +581 @@
     print STDOUT "Content-type:text/plain\n\n";
     print STDOUT $perl_output;
-
 }