Changeset 14024
- Timestamp:
- 2007-04-26T10:45:39+12:00 (17 years ago)
- 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 2 3 # Need to specify the full path of Perl above 3 4 … … 108 109 sub authenticate_user 109 110 { 111 110 112 my $gsdl_cgi = shift(@_); 111 113 my $username = shift(@_); … … 561 563 } 562 564 565 print STDOUT "Content-type:text/plain\n\n"; 563 566 foreach my $cgi_arg_name ($gsdl_cgi->param) { 564 567 my $cgi_arg_value = $gsdl_cgi->clean_param($cgi_arg_name) || ""; 565 568 $cgi_arg_value = $gsdl_cgi->safe_val($cgi_arg_value); 569 print STDOUT $cgi_arg_value; 566 570 if ($cgi_arg_value eq "") { 567 571 $perl_args = "-$cgi_arg_name " . $perl_args; … … 579 583 } 580 584 581 print STDOUT "Content-type:text/plain\n\n";585 #print STDOUT "Content-type:text/plain\n\n"; 582 586 print STDOUT $perl_output; 587 print STDOUT $perl_command; 588 583 589 } 584 590 -
trunk/gsdl/cgi-bin/gsdlCGI.pm
r13167 r14024 1 1 2 2 package gsdlCGI; 3 4 3 5 4 6 use CGI; -
trunk/gsdl/cgi-bin/gsdlsite.cfg
r8115 r14024 4 4 5 5 # points to the GSDLHOME directory 6 gsdlhome **GSDLHOME**6 gsdlhome /research/qq6/gsdl-current/gsdl 7 7 8 8 # this is the http address of GSDLHOME
Note:
See TracChangeset
for help on using the changeset viewer.