Changeset 14024


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

gsdlCGI.pm

Location:
trunk/gsdl/cgi-bin
Files:
3 edited

Legend:

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

    r13811 r14024  
    1 #!perl -w
     1#!/usr/bin/perl -w
     2
    23# Need to specify the full path of Perl above
    34
     
    108109sub authenticate_user
    109110{
     111   
    110112    my $gsdl_cgi = shift(@_);
    111113    my $username = shift(@_);
     
    561563    }
    562564
     565    print STDOUT "Content-type:text/plain\n\n";
    563566    foreach my $cgi_arg_name ($gsdl_cgi->param) {
    564567    my $cgi_arg_value = $gsdl_cgi->clean_param($cgi_arg_name) || "";
    565568    $cgi_arg_value = $gsdl_cgi->safe_val($cgi_arg_value);
     569    print STDOUT $cgi_arg_value;
    566570    if ($cgi_arg_value eq "") {
    567571        $perl_args = "-$cgi_arg_name " . $perl_args;
     
    579583    }
    580584
    581     print STDOUT "Content-type:text/plain\n\n";
     585    #print STDOUT "Content-type:text/plain\n\n";
    582586    print STDOUT $perl_output;
     587    print STDOUT $perl_command;
     588
    583589}
    584590
  • trunk/gsdl/cgi-bin/gsdlCGI.pm

    r13167 r14024  
    11
    22package gsdlCGI;
     3
     4
    35
    46use CGI;
  • trunk/gsdl/cgi-bin/gsdlsite.cfg

    r8115 r14024  
    44
    55# points to the GSDLHOME directory
    6 gsdlhome    **GSDLHOME**
     6gsdlhome    /research/qq6/gsdl-current/gsdl
    77
    88# this is the http address of GSDLHOME
Note: See TracChangeset for help on using the changeset viewer.