On Sun, Jul 23, 2000 at 12:27:36AM -0600, Bruce Guenter wrote:
> On Sat, Jul 22, 2000 at 05:49:51PM +0200, Olivier M. wrote:
> > http://www.securityfocus.com/vdb/bottom.html?section=solution&vid=1481
>
> Check out qmail-qfilter, and write a filter that looks for date lines
> longer than 80 characters while copying the message. Reject any message
> that contains them. In Perl (untested):
>
> perl -p 'exit 31 if /^Date: .{80,}/oi'
Just to correct myself, the following Perl is more correct:
while(<>) {
print;
last if /^\n$/o;
exit 31 if /^Date: .{80,}/oi;
}
while(<>) {
print;
}
--
Bruce Guenter <[EMAIL PROTECTED]> http://em.ca/~bruceg/
PGP signature
