check_imap_mailbox

Helpful plugin, I just expanded it to use starttls and with better output. --- check_imap_mailbox.orig 2012-09-21 09:16:40.822833872 +0200 +++ check_imap_mailbox 2012-09-21 09:18:06.457602444 +0200 @@ -28,6 +28,7 @@ use strict; use warnings; use Mail::IMAPClient; +use MIME::Base64; use Getopt::Long; ## Print Usage if not all parameters are supplied @@ -71,16 +72,17 @@ ## Connect to server $imap = Mail::IMAPClient->new ( Server => $options->{host}, - User => $options->{user}, - Password=> $options->{pass}, Clear => 5, # Unnecessary since '5' is the default - ) or die "Cannot connect to $options->{host} as $options->{user}: $@"; + ) or print "CRIT: Cannot connect to $options->{host}: $@n" and exit 2; +$imap->has_capability("STARTTLS") and $imap->starttls(); + +$imap->tag_and_run("AUTHENTICATE PLAIN " . encode_base64("" . $options->{user} . "" . $options->{pass})) or print "CRIT: Cannot login to $options->{host} as $options->{user}: $@n" and exit 2; ## Check if folder exists if ( ! $imap->exists($options->{folder}) ) { - print "CRIT: folder $options->{folder} doesn't exists"; + print "CRIT: folder $options->{folder} doesn't existsn"; exit 2; } @@ -90,12 +92,12 @@ ## Now check the results if ( $unseen == 0 ) { - print "OK: $unseen unread messages"; + print "OK: $unseen unread messages|'messages'=$unseenn"; exit 0; } else { - print "CRIT: $unseen unread messages in $options->{folder}"; + print "CRIT: $unseen unread messages in $options->{folder}|'messages'=$unseenn"; exit 2; }

./check_imap_mailbox.pl --host= --user= --pass= --folder=Inbox and getting the error CRIT: folder Inbox doesn't exists let me know if there is any solution for this