Changeset 18648

Timestamp:

2009-03-09T19:39:12+13:00 (15 years ago)

Author:

ak19

Message:

Added subroutine decode to undo the base64 encoding on filenames.

File:

• gsdl/trunk/cgi-bin/gsdlCGI.pm (modified) (1 diff)

gsdl/trunk/cgi-bin/gsdlCGI.pm

@@ -606 +606 @@
 }
 
+
+sub decode {
+    my ($self, $text) = @_;
+    $text =~ s/\+/ /g;
+    require "$self->{'gsdlhome'}/perllib/cpan/MIME/Base64.pm"; 
+    $text = &MIME::Base64::decode_base64($text);
+
+    return $text;
+}
+
 1;