diff options
Diffstat (limited to 'tests/getpart.pm')
-rw-r--r-- | tests/getpart.pm | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/tests/getpart.pm b/tests/getpart.pm index 1dffe353c..48be6c2da 100644 --- a/tests/getpart.pm +++ b/tests/getpart.pm @@ -6,6 +6,13 @@ my @xml; my $warning=0; my $trace=0; +sub decode_base64 { + tr:A-Za-z0-9+/::cd; # remove non-base64 chars + tr:A-Za-z0-9+/: -_:; # convert to uuencoded format + my $len = pack("c", 32 + 0.75*length); # compute length byte + return unpack("u", $len . $_); # uudecode and print +} + sub getpartattr { # if $part is undefined (ie only one argument) then # return the attributes of the section |