procmail
[Top] [All Lists]

Random errors

1997-08-18 11:21:23

The following procmail recipe returns a random error code in the range of 64-78.
What would be the effect and is it worth the effort to harass the SOBs?
#
:0 EH
* ^Received:.*from.*(cyberpromo|cybermirror1|ispam|sallynet|nevwest)\.com
{
  :0
   ECODE=| (~/.procmail/random.pl)
   EXITCODE=$ECODE
  :0hwc
   | gzip -fc >> Headers.spamfraud.gz
  :0
   /dev/null
}
#

where random.pl is the following

#!/usr/bin/perl
# returns random errorcode in 64-78 range
srand;
$arg=rand 14;
printf "%2d\n",$arg+64;
-- 
Joe Lewandoski
jlwndski(_at_)datasync(_dot_)com
jlwndski(_at_)navo(_dot_)hpc(_dot_)mil

<Prev in Thread] Current Thread [Next in Thread>