auth

#!/usr/bin/perl -w


use Net::LDAP;
use strict;
my $mesg;
my $ldap = Net::LDAP->new( 'pm-ns' );
my @os=('com', 'net', 'org');

foreach my $o (@os) { 
	$mesg = $ldap->bind('mail='.$ARGV[0].',o='.$o.',dc=mozilla', password =>$ARGV[1] );
	if($mesg->code == 0) { 
		$ldap->unbind;
		exit(0);
	}
}

$ldap->unbind;
exit(-1);