Changeset 18282 for gsdl/trunk/perllib/unicode.pm

Timestamp:

2008-12-19T13:48:37+13:00 (15 years ago)

Author:

ak19

Message:

Spaces in filenames are replaced with underscores just to be on the safe side. Tested that files with spaces in their names still work when using the Remote GS server and also work in the local case (such as mp3 and wmv files).

File:

• gsdl/trunk/perllib/unicode.pm (modified) (1 diff)

gsdl/trunk/perllib/unicode.pm

@@ -581 +581 @@
     my ($text) = @_;
     if (!&is_url_encoded($text)) {
+    $text =~ s/ /_/g;             # spaces replaced with underscore
     $text =~ s/([^A-Z0-9\ \.\-\_])/sprintf("%%%02X", ord($1))/iseg;
     }