okay, silly question, but where should I insert this in the script?
I hate not knowing how to code.....
>>> [EMAIL PROTECTED] 5/27/2004 8:27:17 AM >>>
The final one:
#-----------------------------------------------------------------
# MOD.start
#-----------------------------------------------------------------
# pass rest to spamc
#MOD my $checkedEmail=3D`spamc -f < $tmpFile`;
my $delay =3D 0;
my $maxdelay =3D 90;
my $checkedEmail;=09
do {
# Call spamc
$checkedEmail =3D '';
print "*** spamc delayed: $delay sec.\n" if ($delay > 0) &&
($DEBUG
=3D=3D 1);
sleep($delay);
open2(*SPAMC_R,*SPAMC_W,'spamc -f');
=09
# Submit message
open(FILE, "<$tmpFile");
my $input =3D do{local $/;<FILE>};
close(FILE);
print SPAMC_W $input;
close(SPAMC_W);
# Get result
$checkedEmail =3D do{local $/;<SPAMC_R>};
close(SPAMC_R);
=09
# Restart if spamd wasn't reached
$delay +=3D 1; # inc 1 second
last if $delay > $maxdelay;
} while($checkedEmail !~ /X-Spam-Level/gmi);
#-----------------------------------------------------------------
# MOD.end
#-----------------------------------------------------------------
$maxdelay should be adapted to XMail's -QT parameter, if further
filters
follow.
Thanks,
Harald
> -----Urspr=FCngliche Nachricht-----
> Von: [EMAIL PROTECTED]
> [mailto:[EMAIL PROTECTED] Im Auftrag von Harald
Schneider
> Gesendet: Donnerstag, 27. Mai 2004 14:47
> An: [EMAIL PROTECTED]
> Betreff: [xmail] AW: Re: AW: AW: AW: [ANNOUNCE] bsa_filter.pl
>=20
>=20
> > That seems to work and saves precious keystrokes.
> > (You see, I'm getting old, and I beleive that each person
> > only has a certain number of keystrokes in their lifetime; I
> > try to save each one I can so I don't run out ;) ).
>=20
> Hehhehe ... that's very wise :)
>=20
> > Also, 1000 retries at an average of 500 x 5 seconds each
> > is 1000 x 500 x 5 =3D3D 2,500,000 seconds which is about 29 days!
> > I think I'll drop the retry count down a bit.
>=20
> I see .. this was a quick shot, also meant to save time ;)
> One more thing: $tempFile hold the file's content. In the original
=3D
> script it
> holds the filename.
> But I'm sure when you are done, we got some good compressed Perl
code.
>=20
> Read you,
> Harald
>=20
>=20
>=20
> >=3D20
> > Aloha =3D3D> Beau;
> >=3D20
> > -
> > To unsubscribe from this list: send the line "unsubscribe xmail"
in
> > the body of a message to [EMAIL PROTECTED]
> > For general help: send the line "help" in the body of a message to
> > [EMAIL PROTECTED]
> >=3D20
>=20
> -
> To unsubscribe from this list: send the line "unsubscribe xmail" in
> the body of a message to [EMAIL PROTECTED]
> For general help: send the line "help" in the body of a message to
> [EMAIL PROTECTED]
>=20
-
To unsubscribe from this list: send the line "unsubscribe xmail" in
the body of a message to [EMAIL PROTECTED]
For general help: send the line "help" in the body of a message to
[EMAIL PROTECTED]
****************************************************************************
The preceding message and any attachments may contain confidential
information protected by the attorney-client or other privilege. If you
believe that it has been sent to you in error, please reply to the sender
that you received the message in error and then delete it. Nothing in
this email message, including the typed name of the sender and/or this
signature block, is intended to constitute an electronic signature unless
a specific statement to the contrary is included in the message.
****************************************************************************
-
To unsubscribe from this list: send the line "unsubscribe xmail" in
the body of a message to [EMAIL PROTECTED]
For general help: send the line "help" in the body of a message to
[EMAIL PROTECTED]
