Hi I write quite a lot of mail agents for our mailserver, I would like to write a perl script which does the following: (This would run as a service which is no problem) Looks in every email for the "Incoming Mailserver Address" and "Recipient Address" 1) Looks through a text file of local domains - If domain exists relay too. 2) Looks through a text file of IP addresses - if IP exists relay to given to address. 3) Looks through a text file for forced route domains - if exists relay to given address. Here is the bit I am not sure about If none of the above are true "simulate 550 Relay denied to the server sending through our port 25" to cut them off. Any ideas on giving the above message? Then I can write my own rules. Many Thanks Tony Hotchilli Internet Solutions www.hotchilli.com _______________________________________________ Perl-Win32-Admin mailing list [EMAIL PROTECTED] http://listserv.ActiveState.com/mailman/listinfo/perl-win32-admin
