- Timestamp:
- 2009-03-09T19:39:12+13:00 (15 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
gsdl/trunk/cgi-bin/gsdlCGI.pm
r16971 r18648 606 606 } 607 607 608 609 sub 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 608 618 1; 609 619
Note:
See TracChangeset
for help on using the changeset viewer.