#!/usr/bin/perl
use Net::IMAP::Simple;

my $host = shift || die "no hostname\n";
my $user = "mailtest\@testing.dreamhost.com";
my $password = "aSdF9630";

if (my $imap = new Net::IMAP::Simple($host)) { 
	$imap->login( $user, $password );
	my $nummsgs = $imap->select( 'INBOX' );
	if (defined $nummsgs) { 
		print "ok!\n";
		0;
		$imap->quit;
	} else { 
		print "MySQL-AUTH broken on $host\n";
		2;
		$imap->quit;
	}
} else { 
1;

}
