Hello all,

I'm using tagger.pl (I found on the 'net) to tag subjects on various mailing
lists this domain has.  Here is the code:

   UW PICO(tm) 4.2                                          File: tagger.pl

#!/usr/bin/perl -w

$file = $ARGV[0];
$tag = $ARGV[1];

open(IN, $file);
binmode(IN);
@mail = <IN>;
close(IN);
$mail = join "", @mail;

$mail =~ s/Subject:\s/Subject: $tag /is;
open(OUT, ">$file");
binmode(OUT);
print OUT $mail;
close(OUT);

exit 100;

It's called via a .tab as:


"/var/MailRoot/filters/tagger.pl"       "@@FILE"        "Tag"


It all works fine but here's my question:  can someone help me modify the
code to check replies and strip any doubling of the tag before the reply is
delivered?  I believe this mailing list uses some sort of tagger -- [xmail].
I just want to make sure there's not a [tag][tag][tag], after every reply if
the thread goes on.  Thanks for all of your help - I'm sure it's simple, I
just have no coding experience.  -Jim


-
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]

Reply via email to