#!perl
# NOTA.- Cambiar directoriodespamassassin por el directorio donde se encuentre SpamAssassin
use strict;

open(MAIL, '<' . $ARGV[0]);
my @mail = <MAIL>;
close(MAIL);
my $result = grep(/Received: .+ \((10\.0\.0\.\d+|127\.0\.0\.1)\) by content\.no-ip\.org \(Mercury\/32 v3\.32\)/, @mail);

my $exitvalue = 0;
if (!$result) {        # Special Received line not found, so mail is non-local (check for spam)
    chdir('directoriodespamassassin\\SpamAssassin');
    `perl -T spamassassin.raw --exit-code < $ARGV[0] > $ARGV[1]`;
    $exitvalue = ($? >> 8);
}

if (!$exitvalue) {
	$exitvalue = 0;
}

exit($exitvalue);