1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
|
use strict;
use warnings;
use Data::Dumper;
use Test::More;
use IO::Compress::Gzip;
use IO::Compress::Zip;
use lib 'lib';
my $mod = 'Mail::DMARC::Report::Receive';
use_ok($mod);
my $recv = $mod->new;
isa_ok( $recv, $mod );
$recv->config('t/mail-dmarc.ini');
test_from_email_msg();
test_get_submitter_from_subject();
test_from_imap();
done_testing();
exit;
sub test_from_imap {
my $skip_reason = '';
eval "require Net::IMAP::Simple";
$skip_reason .= "Net::IMAP::Simple not installed" if $@;
my $c = $recv->config->{imap};
if ( !$c->{server} || !$c->{user} || !$c->{pass} ) {
$skip_reason .= " and \n" if $skip_reason;
$skip_reason .= "imap not configured in mail-dmarc.ini";
}
SKIP: {
skip $skip_reason, 1 if $skip_reason;
ok( $recv->from_imap(), "from_imap" );
}
}
sub test_get_submitter_from_subject {
my %subjects = (
'aol.com' => 'Subject: Report Domain:theartfarm.com Submitter:aol.com
Report-ID:theartfarm.com_1366084800',
'ivenue.com' =>
'Subject: Report Domain: tnpi.net Submitter: Ivenue.com Report-ID: tnpi.net-1366977854@Ivenue.com',
'hotmail.com' =>
'Subject: =?utf-8?B?UmVwb3J0IERvbWFpbjogc2ltZXJzb24ubmV0IFN1Ym1pdHRlcjogaG90bWFpbC5jb20gUmVwb3J0LUlEOiA8YTY2YWVmZWIzZjI3NGNhYmJmZGM2MWMwMTVlNTg2N2VAaG90bWFpbC5jb20+?=',
'google.com' =>
'Subject: Report domain: timbersmart.com Submitter: google.com Report-ID: 6022178961730607282',
'hotmail.com' =>
'Subject: =?utf-8?B?UmVwb3J0IERvbWFpbjogbHluYm95ZXIuY29tIFN1Ym1pdHRlcjogaG90bWFpbC5jb20gUmVwb3J0LUlEOiA8MDJjNTM5YWY0ZjE2NGFlZGE3ZGQxZTdhYWJhOTc1MWJAaG90bWFpbC5jb20+?=',
'yahoo.com' =>
'Subject: Report Domain: timbersmart.com Submitter: yahoo.com Report-ID: <1368868092.438744>',
);
foreach my $dom ( keys %subjects ) {
my $subject = $subjects{$dom};
cmp_ok( $recv->get_submitter_from_subject($subject),
'eq', $dom, "get_submitter_from_subject, $dom" );
}
}
sub test_from_email_msg {
if ( -f 'report.msg' ) {
ok( $recv->from_email_msg('report.msg'), 'from_email_msg' );
}
}
|
