X-Git-Url: https://git.deb.at/?a=blobdiff_plain;f=t-prot;fp=t-prot;h=20f3119f5b4e607e4af69bb62321b66258aaac26;hb=64beb4c81b81572c115d28dfbe904decc5ebd72e;hp=ff9d8115c7415d857a3ef25d8c8b8894ff259e75;hpb=c0602429f9c0ced11170f91abc46e2fae941ee26;p=pkg%2Ft-prot.git diff --git a/t-prot b/t-prot index ff9d811..20f3119 100755 --- a/t-prot +++ b/t-prot @@ -1,13 +1,13 @@ #!/usr/bin/perl -w -# $Id: t-prot,v 1.248 2006/11/30 14:06:27 jochen Exp $ +# $Id: t-prot,v 1.250 2006/12/19 13:13:57 jochen Exp $ require 5.006; use strict; use Fcntl qw(O_EXCL O_WRONLY O_CREAT); use Getopt::Mixed qw(nextOption); -use constant VER => '2.2'; +use constant VER => '2.3'; use constant REV => ''; -use constant REL => q$Revision: 1.248 $=~m/(\d+(?:\.\d+)+)/; +use constant REL => q$Revision: 1.250 $=~m/(\d+(?:\.\d+)+)/; # MTA expecting mail on STDIN # (you might have to adjust this if using a different MTA) use constant SENDMAIL => '/usr/sbin/sendmail -oi'; @@ -86,8 +86,8 @@ $gpg_bug = '... this is a bug ('; # help(): print help text and exit with appropriate exit code sub help { print "Usage: $0 [options] - -a remove ad footers; requires -A -A=DIRECTORY ad footer directory, treat ad footers as signature + -a remove ad footers; requires -A --bigq[=n[,x]] remove all but x lines of quotes with more than n lines; default is n=30 and x=10 --body input has no headers; does not work with --pgp-short;