This is in my filters.out.tab
"*" "*" "0.0.0.0/0" "0.0.0.0/0" "avout.tab"
"*" "*" "0.0.0.0/0" "0.0.0.0/0" "domains.tab"
Is this in wrong??
chad
On Wed, 2004-05-19 at 17:33, Davide Libenzi wrote:
> 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.
> >
> >this is my domains.pl located in the /var/MailRoot/filters/
> > #!/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]
>
-
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]
