sub queryuser{
my $server="192.168.132.213";
my $port=9002;
my $user=$_[0];
use IO::Socket;
my $sk = IO::Socket::INET->new(PeerAddr => $server,
PeerPort => $port,
Proto => 'tcp',
timeout =>30);
print STDERR "fail to connect bdb slave:".$server."\n";
exit;
}
# print $sk "mget(\"test100\@sohu.net\")\n";
print $sk "mget(\"$user\")\n";
$echo=<$sk>;
chomp($echo);
@items=split/\ /,$echo;
$status=$items[0];
$data=$items[1];
if ( $status eq "-1" ) {
print "not exist this user:".$user."\n";
exit 0;
}
@newitems=split/\:/,$data;
@quota=$newitems[0];
$tongid=$newitems[1];
$maildir=$newitems[2];
if ( $quota eq "2" ) {
print "quota of user is full"."\n";
}
print "tongid is:".$tongid."\n";
print "maildir is:".$maildir."\n";
sub querydomain{
my $server="192.168.41.194";
my $port=2000;
my $domain=$_[0];
use IO::Socket;
my $sk = IO::Socket::INET->new(PeerAddr => $server,
PeerPort => $port,
Proto => 'tcp',
timeout =>30);
print STDERR "fail to connect bdb master:".$server."\n";
exit;
}
# print $sk "mget(\"test100\@sohu.net\")\n";
print $sk "mdomget(\"$domain\"\,\"enabled\")\n";
$echo=<$sk>;
chomp($echo);
@items=split/\ /,$echo;
$status=$items[0];
$data=$items[1];
if ( $status ne "0" ) {
print "not exist this domain:".$domain."\n";
exit;
}
if ( $data eq "1" ) {
print "domain is ok"."\n";
}
elsif ( $data eq "0"){
print "domain is disabled"."\n";
}
}
printf "usage: [option] [arguments] \n";
printf "-d domain : query domain\n";
printf "-u user : query user\n";
}
if ( $#ARGV ne 1) {
&usage();
exit 0;
}
$domain=$ARGV[1];
&querydomain($domain);
$user=$ARGV[1];
&queryuser($user);
}
else {
&usage();
exit 0;
}
thejoyofcoding 2008-12-16
options-future 2008-08-04