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("\0" . $options->{user} . "\0" . $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 exists\n";
exit 2;
}

@@ -90,12 +92,12 @@
## Now check the results
if ( $unseen == 0 )
{
- print "OK: $unseen unread messages";
+ print "OK: $unseen unread messages|'messages'=$unseen\n";
exit 0;
}
else
{
- print "CRIT: $unseen unread messages in $options->{folder}";
+ print "CRIT: $unseen unread messages in $options->{folder}|'messages'=$unseen\n";
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