SVN: toys/rsget.pl/RSGet/Curl.pm
sparky
sparky at pld-linux.org
Thu Oct 22 15:25:06 CEST 2009
Author: sparky
Date: Thu Oct 22 15:25:05 2009
New Revision: 10814
Modified:
toys/rsget.pl/RSGet/Curl.pm
Log:
- allow upper case and mixed case content-disposition
Modified: toys/rsget.pl/RSGet/Curl.pm
==============================================================================
--- toys/rsget.pl/RSGet/Curl.pm (original)
+++ toys/rsget.pl/RSGet/Curl.pm Thu Oct 22 15:25:05 2009
@@ -185,14 +185,14 @@
{
# TODO: actually read rfc2183 and rfc2184
local $_ = shift;
- my $src = $_;
s/\s*;?\s+$//; # remove at least last \r
- unless ( s/^\s*attachment;\s*// ) {
+ my $src = $_;
+ unless ( s/^\s*attachment;\s*//i ) {
warn "Not an attachment in C-D: '$src'\n" if verbose( 1 );
return;
}
- unless ( s/^(.*?\s+)?filename// ) {
+ unless ( s/^(.*?\s+)?filename//i ) {
warn "No filename in C-D: '$src'\n" if verbose( 1 );
return;
}
More information about the pld-cvs-commit
mailing list