Changeset 16918

Timestamp:

2008-08-20T17:32:04+12:00 (16 years ago)

Author:

ak19

Message:

Added methods url_to_filename and filename_to_url: Two utility subroutines to do with URL encoding: one converts from a filename--as it appears on the filesystem (which may be URL encoded of itself)--to a url referring to that file, and the other converts such a url ref back to the file(name) it referred to again.

File:

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

gsdl/trunk/perllib/unicode.pm

@@ -596 +596 @@
 }
 
+# When a filename on the filesystem is already URL-encoded, the
+# URL to it will have %25s in in place of every % sign, so that 
+# URLs in html pages can refer to the URL-encoded filename.
+# This method changes the URL reference back into the actual 
+# (URL-encoded) filename on the filesystem by replacing %25 with %. 
+sub url_to_filename {
+    my ($text) =@_;
+    $text =~ s/%25/%/g;
+}
+
+# When a filename on the filesystem is already URL-encoded, the
+# URL to it will have %25s in in place of every % sign, so that 
+# URLs in html pages can refer to the URL-encoded filename.
+# Given a (URL-encoded) filename on the filesystem, this subroutine
+# returns the URL reference string for it by replacing % with %25. 
+# The output string will be the same as the input string if the input
+# already contains one or more %25s. This is to prevent processing 
+# a url more than once this way.
+sub filename_to_url {
+    my ($text) =@_;
+    
+    if($text !~ m/%25/) {
+    $text =~ s/%/%25/g;
+    }
+}
+
+
 sub substr
 {