8 getopts
('h:u:p:H:', \
%opts);
11 my $STATE_WARNING = 1;
12 my $STATE_CRITICAL = 2;
13 my $STATE_UNKNOWN = 3;
15 if ($opts{'h'} || !$opts{'u'} || !$opts{'p'} || !$opts{'H'}) {
20 my $user = $opts{'u'};
21 my $password = $opts{'p'};
22 my $host = $opts{'H'};
24 my $cmd_result = `(echo "a login $user $password"; echo "b logout") | openssl s_client -quiet -ign_eof -connect $host -starttls imap 2>&1`;
25 my $expected_result = "a OK Logged in";
28 if ($cmd_result !~ /$expected_result/) {
29 print "IMAP CRITICAL - Unable to connect via imaps\n";
30 exit($STATE_CRITICAL);
32 print "IMAP OK - imaps connected successfully\n";
38 Check whether imap works via ssl
and is able to
connect its database
.
42 Print detailed help screen