Changeset 18648 for gsdl

Show
Ignore:
Timestamp:
09.03.2009 19:39:12 (11 years ago)
Author:
ak19
Message:

Added subroutine decode to undo the base64 encoding on filenames.

Files:
1 modified

Legend:

Unmodified
Added
Removed
  • gsdl/trunk/cgi-bin/gsdlCGI.pm

    r16971 r18648  
    606606} 
    607607 
     608 
     609sub decode { 
     610    my ($self, $text) = @_; 
     611    $text =~ s/\+/ /g; 
     612    require "$self->{'gsdlhome'}/perllib/cpan/MIME/Base64.pm";  
     613    $text = &MIME::Base64::decode_base64($text); 
     614 
     615    return $text; 
     616} 
     617 
    6086181; 
    609619