[Ispman-cvs] CVS: ispman/bin ispman.imapAuthTest,NONE,1.1

[Atif G. <ma...@us...>]

Update of /cvsroot/ispman/ispman/bin
In directory sc8-pr-cvs1:/tmp/cvs-serv26135/bin

Added Files:
	ispman.imapAuthTest 
Log Message:
script and lib to check imap authentication for a user 

--- NEW FILE ---
#!/usr/bin/perl
BEGIN{
	use FindBin; unshift @INC, ($FindBin::Bin , "$FindBin::Bin/../lib", "$FindBin::Bin/../conf");
	unless ($ARGV[2]){
		print "$0  hostname username password\n";
		exit;
	}
}
use Net::IMAP::Simple;
$server = new Net::IMAP::Simple( $ARGV[0] );

if ($server->login( $ARGV[1], $ARGV[2] ) ) {
	print "OK\n";
} else {
	print "Not OK\n";
};