#!/usr/local/bin/perl

my %sender_emails = () ;
my %recipient_emails = () ;
my %recipient_count = () ;
my %uniqueEntries = ();

# location of logfile

$logfile = '/data/log/maillog';

open(LOG, $logfile);

while (<LOG>)
{
($msgMon, $msgDay, $msgTime, $msgHost, $msgCmd, $QID, $from_to) = split(/\s+/, $_) ;

        next if (/from=<>/) ;
        next if (/from=<root>/) ;

        if (($_ =~ /from=</) && ($_ =~ /qmgr/))
        {
                ($tmpString, $from) = split("from=<", $_);
                ($from,$tmpString)  = split(">", $from);
                $sender_emails {$QID} = $from;
        }
        elsif (($_ =~ /to=</) && ($_ =~ /smtp/))
        {
                ($tmpString, $to) = split("to=<", $_);
                ($to,$tmpString) = split(">", $to);
                $recipient_emails {$QID} = $recipient_emails {$QID} .  "$to "   ;
                $recipient_count {$QID}++   ;

        }
}

close(LOG);

foreach $myQID (keys %sender_emails)
{
        my %uniqueRcpt  = () ;

        $myto = $recipient_emails{$myQID} ;
        $myfrom = $sender_emails{$myQID} ;
        $tocount = $recipient_count{$myQID} ;

        next if $tocount >= 6;

        @rcpt = split(/\s+/, $myto);

        foreach $myrcpt(@rcpt)
        {
                $uniqueRcpt {$myrcpt} = $myfrom;
        }

        foreach $myrcpt (keys %uniqueRcpt)
        {

                $myfrom = $uniqueRcpt{$myrcpt} ;

                $senderRcptKey =  $myfrom . ":"  . $myrcpt ;

                $uniqueEntries{$senderRcptKey}  = 1 ;
        }
}

$outbound_emails = '/data/whitelisting/outbound_emails';
open(OBE,">$outbound_emails");

foreach $myPair (keys %uniqueEntries)
{

        print $myPair . "\n" ;
        print OBE $myPair . "\n" ;

}

close(OBE);