Well, now that egroups.com has changed the way it handles its advertising
(putting the adverts annoying at the top of the email) I wrote the
following perl script to run from procmail and thought you guys might also
like it:
** start stripegroupsadd.pl **
#!/usr/bin/perl
$printline = 1;
while (<STDIN>)
{
# Don't print from start of advert
if ($_ =~ /-~-~>/i)
{
$printline = 0;
}
if ($printline == 1)
{
print $_;
}
# Continue printing after advert
if ($_ =~ /-_->/i)
{
$printline = 1;
}
}
print "\n--- egroups.com advert striped ---\n";
** end **
It's very simple, but it works, although for some reason its putting a
blank line at the top of the message, not sure why thou.
Mark
--
"We don't guarantee anything except that it will take up disk space..."
Apache 2.0alpha5 Disclaimer
Now Playing: Steve Stevens - Atomic Playboys
---------------------------------------------------------------------------
New Zealand Delphi Users group - Offtopic List - [EMAIL PROTECTED]
Website: http://www.delphi.org.nz
