Changeset 14218
- Timestamp:
- 2007-07-04T16:11:23+12:00 (17 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
gsdl/trunk/cgi-bin/gliserver.pl
r14025 r14218 1 1 #!perl -w 2 3 2 # Need to specify the full path of Perl above 4 3 … … 109 108 sub authenticate_user 110 109 { 111 112 110 my $gsdl_cgi = shift(@_); 113 111 my $username = shift(@_); … … 563 561 } 564 562 565 print STDOUT "Content-type:text/plain\n\n";566 563 foreach my $cgi_arg_name ($gsdl_cgi->param) { 567 564 my $cgi_arg_value = $gsdl_cgi->clean_param($cgi_arg_name) || ""; … … 584 581 print STDOUT "Content-type:text/plain\n\n"; 585 582 print STDOUT $perl_output; 586 587 583 } 588 584
Note:
See TracChangeset
for help on using the changeset viewer.