Changeset 22471 for main/trunk/greenstone2
- Timestamp:
- 2010-07-21T17:22:18+12:00 (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
main/trunk/greenstone2/cgi-bin/gliserver.pl
r22453 r22471 1 #! /usr/bin/perl -w1 #!C:\Perl\bin\perl -w 2 2 # Need to specify the full path of Perl above 3 3 … … 818 818 foreach my $cgi_arg_name ($gsdl_cgi->param) { 819 819 my $cgi_arg_value = $gsdl_cgi->clean_param($cgi_arg_name) || ""; 820 821 # When get_script_options is to launch classinfo.pl or pluginfo.pl, one of the args to be passed to the script 822 # is the collection name. This may be a (collectgroup/)coltailname coming in here as (collectgroup|)coltailname. 823 # Since calling safe_val() below on the collection name value will get rid of \ and |, but preserves /, need to 824 # first replace the | with /, then run safe_val, then convert the / to the OS dependent File separator. 825 $cgi_arg_value =~ s@\|@\/@g if ($cgi_arg_name =~ m/^collection/); 820 826 $cgi_arg_value = $gsdl_cgi->safe_val($cgi_arg_value); 827 $cgi_arg_value =~ s@\/@&util::get_dirsep()@eg if($cgi_arg_name =~ m/^collection/); 821 828 if ($cgi_arg_value eq "") { 822 829 $perl_args = "-$cgi_arg_name " . $perl_args;
Note:
See TracChangeset
for help on using the changeset viewer.