Changeset 14025


Ignore:
Timestamp:
04/26/07 10:51:15 (14 years ago)
Author:
qq6
Message:

gliserver.pl

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/gsdl/cgi-bin/gliserver.pl

    r14024 r14025  
    1 #!/usr/bin/perl -w
     1#!perl -w
    22
    33# Need to specify the full path of Perl above
     
    567567    my $cgi_arg_value = $gsdl_cgi->clean_param($cgi_arg_name) || "";
    568568    $cgi_arg_value = $gsdl_cgi->safe_val($cgi_arg_value);
    569     print STDOUT $cgi_arg_value;
    570569    if ($cgi_arg_value eq "") {
    571570        $perl_args = "-$cgi_arg_name " . $perl_args;
     
    583582    }
    584583
    585     #print STDOUT "Content-type:text/plain\n\n";
     584    print STDOUT "Content-type:text/plain\n\n";
    586585    print STDOUT $perl_output;
    587     print STDOUT $perl_command;
    588586
    589587}
Note: See TracChangeset for help on using the changeset viewer.