Author: sparky
Date: Fri Oct 30 00:24:08 2009
New Revision: 10882
Modified:
toys/rsget.pl/RSGet/Curl.pm
Log:
- don't lie about content-disposition value
Modified: toys/rsget.pl/RSGet/Curl.pm
==============================================================================
--- toys/rsget.pl/RSGet/Curl.pm (original)
+++ toys/rsget.pl/RSGet/Curl.pm Fri Oct 30 00:24:08 2009
@@ -194,11 +194,11 @@
s/\s*;?\s+$//; # remove at least last \r
my $src = $_;
- unless ( s/^\s*attachment;\s*//i ) {
+ unless ( s/^\s*attachment\s*//i ) {
warn "Not an attachment in C-D: '$src'\n" if verbose( 1 );
return;
}
- unless ( s/^(.*?\s+)?filename//i ) {
+ unless ( s/^;(.*?\s+)?filename//i ) {
warn "No filename in C-D: '$src'\n" if verbose( 1 );
return;
}
@@ -215,11 +215,11 @@
if verbose( 1 );
return;
}
- return $_;
} else {
s/[;\s].*//;
- return $_;
}
+ p "C-D filename is: $_\n" if verbose( 2 );
+ return $_;
}
sub file_init
_______________________________________________
pld-cvs-commit mailing list
[email protected]
http://lists.pld-linux.org/mailman/listinfo/pld-cvs-commit
