Changeset 14025 for trunk

Timestamp:

2007-04-26T10:51:15+12:00 (17 years ago)

Author:

qq6

Message:

gliserver.pl

File:

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

trunk/gsdl/cgi-bin/gliserver.pl

@@ -1 @@
-#!/usr/bin/perl -w
+#!perl -w
 
 # Need to specify the full path of Perl above
@@ -567 +567 @@
     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;
@@ -583 +582 @@
     }
 
-    #print STDOUT "Content-type:text/plain\n\n";
+    print STDOUT "Content-type:text/plain\n\n";
     print STDOUT $perl_output;
-    print STDOUT $perl_command;
 
 }