#!/usr/bin/perl

$emailCache = '/home/.sites/28/site1/.users/115/autorbl/.email-cache';
$mboxFolder = '/home/.sites/28/site1/.users/115/autorbl/mail/AutoRBL-Folder';

use Mail::MboxParser;
use Data::Dumper;
use Getopt::Long qw(GetOptions);
use List::Flatten;

my $source_address;
GetOptions('ip=s' => \$source_address) or die "Usage: $0 --ip <ip-address>\n";
if (!$source_address) {
    die "Usage: $0 --ip <ip-address>\n";
}

if (!-d $emailCache) {
    system("mkdir $emailCache");
}

my $parseropts = {
    enable_cache    => 1,
    enable_grep     => 1,
    cache_file_name => $emailCache,
};

my $mb = Mail::MboxParser->new($mboxFolder, decode     => 'ALL', parseropts => $parseropts);

# slurping
for my $msg ($mb->get_messages) {
    for my $header ($msg->{HEADER}) {
        my @head = $header;
        my @cabeza = flat @head;
        for my $line (@cabeza) {
            if ($line =~ /$source_address/) {
                my @offender = flat $msg->{HEADER};
                my $out = "--------------------------------------------------------------------------------------\n";
                $out .= join("\n", @offender);
                $out .= "--------------------------------------------------------------------------------------\n";
                print $out;
            }
        }
    }
}

if (!$out) {
    print "ERROR: Offending IP not found!\n";
}