#!/usr/bin/perl
use warnings;
use strict;
my @logfiles = qw(maillog.4 maillog.5 maillog.6 [..]);
my $line;
my $file;
my $key;
my $value;

open (CLIENTOUT, ">>client.txt") or die "Cannot open output file: $!";

for $file ( @logfiles )  {
    open (FH, $file ) or  die "Cannot open file: $!";
    print "$file\n";
	my %msgids;
	while (my $line = <FH>) {
		chomp($line);
		if  ( $line =~ /client=(ourhost1|ourhost2)/ ) {
			no warnings 'uninitialized';   
#I don't care about warnings about something uninitialised in line 23
			my @id = ($line =~ /\_([0-9A-F]{11,12})/);
			$msgids{ $id[0] } = ();
		}
		if ( $line =~ /to=<.*\.gov>.*relay=localhost/ ) {
			if ( $line !~ /to=<.*(ourdomain\.gov)/i) {
				while ( ($key, $value) = each(%msgids) ) {
					if ($line =~ /$key/) {
						my @id = ($line =~ /\ ([0-9A-F]{11,12})/g);
						$msgids{$key} = $id[1];
					}
				}
            }
		}
		if ( $line =~ /to=<.*\.gov*.status=sent/ ) {
			if ( $line !~ /to=<.*(ourdomain\.gov|relay=localhost)/i) {
				while ( ($key, $value) = each(%msgids) ) {
					if  ( defined $value ) {
						if ($line =~ /$value/) {
							print CLIENTOUT "$line\n";
						}
					}
				}
			}
		}
    }
	close FH;
}