[Mimedefang] Checking for a valid sender

Alan Madill amadill at hwy16.com
Tue Nov 18 08:41:06 EST 2003

For a while I was bouncing mail identified as spam by SA.  (I know,  
bad idea because it all comes bouncing back again.) 

A large percentage of spam has a fake from address.  Has anyone  
tried using md_check_against_smtp_server to test the senders  

sub filter_sender { 
	my ($sender, $ip, $hostname, $helo) = @_; 
	$supposedsender = $sender; 
 	$sender =~ s/[<>]//g; 
	$sender =~ /^(.*)\@(.*)/; 
	$supposedserver = $2; 
	return md_check_against_smtp_server( 

I haven't tested it yet and the perl wizards can probably get that 
down to  2 lines. :-) 

Alan Madill - Aspen House Systems
250 567-4200

More information about the MIMEDefang mailing list