Changeset 14024 for trunk/gsdl/cgi-bin/gliserver.pl

Timestamp:

2007-04-26T10:45:39+12:00 (17 years ago)

Author:

qq6

Message:

gsdlCGI.pm

File:

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

trunk/gsdl/cgi-bin/gliserver.pl

@@ -1 @@
-#!perl -w
+#!/usr/bin/perl -w
+
 # Need to specify the full path of Perl above
 
@@ -108 +109 @@
 sub authenticate_user
 {
+    
     my $gsdl_cgi = shift(@_);
     my $username = shift(@_);
@@ -561 +563 @@
     }
 
+    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) || "";
     $cgi_arg_value = $gsdl_cgi->safe_val($cgi_arg_value);
+    print STDOUT $cgi_arg_value;
     if ($cgi_arg_value eq "") {
         $perl_args = "-$cgi_arg_name " . $perl_args;
@@ -579 +583 @@
     }
 
-    print STDOUT "Content-type:text/plain\n\n";
+    #print STDOUT "Content-type:text/plain\n\n";
     print STDOUT $perl_output;
+    print STDOUT $perl_command;
+
 }