Ignore:
Timestamp:
03/09/09 19:39:12 (12 years ago)
Author:
ak19
Message:

Added subroutine decode to undo the base64 encoding on filenames.

File:
1 edited

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
Note: See TracChangeset for help on using the changeset viewer.