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