3 |
# based on post |
# based on post |
4 |
# http://www.mail-archive.com/libwww@perl.org/msg04750.html |
# http://www.mail-archive.com/libwww@perl.org/msg04750.html |
5 |
|
|
6 |
|
BEGIN { |
7 |
|
my $basedir = readlink($0) || $0; $basedir =~ s#/[^/]+$##; |
8 |
|
unshift(@INC, $basedir); |
9 |
|
} |
10 |
|
|
11 |
use strict; |
use strict; |
12 |
use warnings; |
use warnings; |
13 |
use MWS::SWISH; |
use MWS::SWISH; |
271 |
$text =~ s/(\s*--+\s*Forwarded\s+message.+\s*--+.*)$//si; |
$text =~ s/(\s*--+\s*Forwarded\s+message.+\s*--+.*)$//si; |
272 |
|
|
273 |
# remove signature |
# remove signature |
274 |
$text =~ s/[\n\r]+--\s*[\n\r]+.*$//s; |
$text =~ s/(?:^|[\n\r]+)*--\s*[\n\r]+.*$//s; |
275 |
|
$text =~ s/(?:^|[\n\r]+)*_____+[\n\r]+.*$//s; |
276 |
|
|
277 |
# compress cr/lf |
# compress cr/lf |
278 |
$text =~ s/[\n\r]+/\n/gs; |
$text =~ s/[\n\r]+/\n/gs; |
304 |
# remove signature |
# remove signature |
305 |
if ($text =~ s/([\n\r]+)(--\s*[\n\r]+.*)$//s) { |
if ($text =~ s/([\n\r]+)(--\s*[\n\r]+.*)$//s) { |
306 |
$sig = "$1#-#signature##$2##signature#-#"; |
$sig = "$1#-#signature##$2##signature#-#"; |
307 |
|
} elsif ($text =~s/(^|[\n\r]+)*(_____+[\n\r]+.*)$//s) { |
308 |
|
$sig = "$1#-#signature##$2##signature#-#"; |
309 |
} |
} |
310 |
|
|
311 |
# find quoted text |
# find quoted text |