Changeset 18649 for gsdl/trunk/cgi-bin/gliserver.pl
- Timestamp:
- 2009-03-09T19:59:50+13:00 (15 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
gsdl/trunk/cgi-bin/gliserver.pl
r18395 r18649 7 7 no strict 'subs'; 8 8 no strict 'refs'; # allow filehandles to be variables and viceversa 9 10 9 11 10 # Set this to 1 to work around IIS 6 craziness … … 447 446 $gsdl_cgi->generate_error("No file specified."); 448 447 } 448 $file = $gsdl_cgi->decode($file); 449 449 $file =~ s/\|/&util::get_dirsep()/eg; # Convert the '|' characters into whatever is right for this OS 450 450 … … 627 627 $gsdl_cgi->generate_error("No file specified."); 628 628 } 629 $file = "\"$file\""; # Windows: bookend the relative filepath with quotes in case it contains spaces 630 $file = $gsdl_cgi->decode($file); 629 631 $file =~ s/\|/&util::get_dirsep()/eg; # Convert the '|' characters into whatever is right for this OS 630 632 631 633 # Not necessary: checking whether the user is authenticated to query existence of the file 632 634 #&authenticate_user($gsdl_cgi, $username, $collection); … … 980 982 $gsdl_cgi->generate_error("No file specified."); 981 983 } 982 $gsdl_cgi->delete("file"); 983 #$file =~ s/ /\\ /g; # Works on linux: escape all spaces in filename with a backslash, i.e. "\ ".984 $gsdl_cgi->delete("file"); 985 $file = $gsdl_cgi->decode($file); 984 986 $file = "\"$file\""; # Windows: bookend the relative filepath with quotes in case it contains spaces 985 987 $perl_args = $file; … … 1171 1173 } 1172 1174 1173 1174 1175 sub send_mail 1175 1176 {
Note:
See TracChangeset
for help on using the changeset viewer.