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
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
|
#!/usr/bin/perl
# Tester for SQLgrey
# Michal Ludvig <mludvig@logix.net.nz> (c) 2009
use strict;
use IO::Socket::INET;
use Getopt::Long;
my $host = "localhost";
my $port = 2501;
my $client_address = "";
my $client_name = "";
my $sender = "";
my $recipient = "";
GetOptions (
'host|server=s' => \$host,
'port=i' => \$port,
'client-ip|client-address=s' => \$client_address,
'name|client-name=s' => \$client_name,
'sender|from=s' => \$sender,
'recipient|to=s' => \$recipient,
'help' => sub { &usage(); },
);
if (not $client_address) {
&usage();
}
my %connect_args = (
PeerAddr => $host,
PeerPort => $port,
Proto => 'tcp',
Timeout => 5);
my $sock = IO::Socket::INET->new(%connect_args) or die ("Connect failed: $@\n");
$sock->print("request=smtpd_access_policy
protocol_state=RCPT
protocol_name=SMTP
client_address=$client_address
client_name=$client_name
reverse_client_name=$client_name
helo_name=$client_name
sender=$sender
recipient=$recipient
recipient_count=0
queue_id=
instance=abc.defghi.jklm.no
size=0
etrn_domain=
sasl_method=
sasl_username=
sasl_sender=
ccert_subject=
ccert_issuer=
ccert_fingerprint=
encryption_protocol=
encryption_cipher=
encryption_keysize=0
");
print $sock->getline();
exit(0);
sub usage()
{
print(
"Test tool for SQLgrey daemon.
Author: Michal Ludvig <mludvig\@logix.net.nz> (c) 2009
http://www.logix.net.nz
Usage: tester.pl --client-ip <address> [--options]
--host address to talk to (default: 127.0.0.1)
--port TCP port SQLgrey daemon listens on (2501)
--client-ip IP or IPv6 address of the 'client' (Required).
--client-fqdn Domain name corresponding to --ip
--sender / --from
Envelop MAIL FROM value
--recipient / --to
Envelop RCPT TO value
--help Guess what ;-)
");
exit(0);
}
|
