On Wed, 19 May 2004, Chad Fleenor wrote:
> I'm wanting to write a filter that will filter out a certain address
> form sending any email. Does anyone have an idea how to do this? I
> have this so far but it seams that the file isn't execute until someone
> sends a file out.
>
>
> #!/usr/bin/perl
> require MIME::Lite;
> $mess = $ARGV[0];
> $m_tmp = $mess;
> $from = $ARGV[1];
> $to = $ARGV[2];
>
> $tempfrom = $from;
> $from = uc($from);
> open(CF, ">>/var/MailRoot/filters/stuff.txt");
> print CF "from is $from to is $to\n";
> if ($from eq "[EMAIL PROTECTED]"){
> $err=1;}
> @internal = split('\@', $from); #this will give us the domain it is
> $from = $tempfrom;
> if ($internal[1] eq "INSIDEDOMAIN.ORG"){
> $err=1;}
> $from = $tempfrom;
> if ($err eq 1){
> open(CF, ">>/var/MailRoot/filters/stuff.txt");
> print CF "from is $from to is $to\n";
> close (CF);
> exit 4;}
>
> What would I need in the calling function to run this program?
>
> I have tried it with this in my domains.tab file
> "/var/MailRoot/filters/domains.pl" "@@FROM" "@@RCPT"
> I have also tried
> "/var/MailRoot/filters/domains.pl" "@@FILE" "@@FROM" "@@RCPT"
>
> Any help is appreciated.
Did you take a look at the "MESSAGE FILTERS" section of the doc?
- Davide
-
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]
