23 lines
453 B
Perl
Executable file
23 lines
453 B
Perl
Executable file
#!/usr/bin/perl
|
|
#
|
|
# killsig: delete signature (also "oe-sigs") when quoting emails.
|
|
# known patterns: ">-- " , "> -- ", ">--", "> --".
|
|
#
|
|
# Michael Velten <michael@michnet.de>
|
|
|
|
open(MAIL, "+<$ARGV[0]") || die "$0: Can't open $ARGV[0]: $!";
|
|
while (<MAIL>) {
|
|
unless (/^> ?-- ?$/) {
|
|
push(@purged, $_);
|
|
}
|
|
else {
|
|
while (<MAIL>) {
|
|
push(@purged, $_) unless /^>.+/;
|
|
}
|
|
}
|
|
}
|
|
truncate(MAIL, 0);
|
|
seek(MAIL,0,0);
|
|
print MAIL @purged;
|
|
close(MAIL);
|