#!/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';
# 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;