Re: Postfix randomizing outgoing IP using [SOLVED]

["M.Atıf CEYLAN" <mehmet@atifceylan.com>]

I wrote the perl script again. The new script contains my own ip address 
range check. if the IP of the domain is in my IP range it prints "200 
dovecot:" message.

#!/usr/bin/perl -w
# author: Hari Hendaryanto <hari.h -at- csmcom.com>

#use strict;
use warnings;
use Sys::Syslog qw(:DEFAULT setlogsock);
use Net::DNS;
use Net::CIDR;
use Net::CIDR ':all';
my $dns = new Net::DNS::Resolver;
#
# our transports array, we will define this in master.cf as transport 
services
#
our @cidr_list;
@cidr_list=Net::CIDR::cidradd("1.1.1.1/24");
@cidr_list=Net::CIDR::cidradd("2.2.2.2/24", @cidr_list);

our @array = (
'rotate1:',
'rotate2:',
'rotate3:'
);

#
# Initalize and open syslog.
#
openlog('postfix/randomizer','pid','mail');

#
# Autoflush standard output.
#
select STDOUT; $|++;
while (<>) {
        chomp;
        # randomizing transports array
        my $random_smtp = int(rand(scalar(@array)));
        if (/^get\s(.+)$/i) {
        my $local_domain = $1;
                $local_domain =~ s/.*\@//i;
            my $prefix = 'mx1.';
            my $mx = $dns->query( $prefix.$local_domain, 'A' );
            my $is_local = 0;
            foreach my $rr ($mx->answer) { #maybe it returns multiple 
results
            if(Net::CIDR::cidrlookup($rr->address, @cidr_list)==1){
            $is_local = 1;
        }

        if ($is_local == 1){
            print "200 dovecot:\n";
            syslog("info","Using: %s Transport Service", $local_domain);
        } else {
                        print "200 $array[$random_smtp]\n";
                        syslog("info","Using: %s Transport Service", 
$random_smtp);
                }
                next;
        }

    print "200 smtp:";
}


--
M.Atıf CEYLAN
Yurdum Yazılım