以前写的perl,根据php里传来的参数添加删除邮箱用户（cyrus）

php部分调用方法

./account-add.php:                              system ("./cyradm-ladm.pl del $user");     //添加
./account-del.php:                              system ("./cyradm-ladm.pl del $user");     //删除
./account-add.php:                              system ("./cyradm-ladm.pl modify $t_user $user");    //修改

perl代码

#!/usr/bin/perl
use 5.010;
use strict;
use warnings;
use Data::Dumper;
use IMAP::Admin;

my ($err,@list,$lst);
my $imap = IMAP::Admin->new('Server'   => '192.168.0.45',
                            'Login'    => 'tbq',
                            'Password' => 'xxxxxxxxx',
                            'Port'     => '143', #default
                            );
print "-" x 20 . "\n";
$ARGV[0] = 0 unless defined($ARGV[0]); #如果没有任何参数就给一个默认0
given($ARGV[0]){
        exit unless defined($ARGV[1]); #如果没有输入用户名就直接退出 应该不会出现，程序传递的
    when ($_ eq 'list'){
        #实际可能用不到
        @list = $imap->list("user.$ARGV[1]");
        print Dumper @list;
        print Dumper $imap->get_acl("user.$ARGV[1]");
    }
    when ($_ eq 'add'){
        #添加邮箱
        $err = $imap->list("user.$ARGV[1]");
        if($err != 0){ print "\n";}else{
        $err = $imap->create("user.$ARGV[1]");
        if($err != 0){ print $imap->{'Error'}."\n";}else{print "user.$ARGV[1] create ok\n";}
        $err = $imap->set_acl("user.$ARGV[1]", "tbq","lrswipkxtecda"); #默认给管理员tbq所有权限，方便删除和修改
        if($err != 0){ print $imap->{'Error'}."\n";}}
    }
    when ($_ eq 'del'){
        #删除邮箱
        $err = $imap->list("user.$ARGV[1]");
        if($err == 0){ print "$ARGV[1] does not exist\n";}else{
        $err = $imap->delete("user.$ARGV[1]");
        if($err != 0){ print $imap->{'Error'}."\n";}else{print "user.$ARGV[1] delete ok\n";}}
    }
    when ($_ eq 'modify'){
        #修改
        #$err = $imap->rename("user.$ARGV[1]","user.$ARGV[2]"); #这句不好使
        exit unless defined($ARGV[2]); #没有必要的目标用户名也退出

        $err = $imap->list("user.$ARGV[1]");
        if($err == 0){ print "$ARGV[1] does not exist\n";}else{
        $err = $imap->delete("user.$ARGV[1]");
        if($err != 0){ print $imap->{'Error'}."\n";}else{print "user.$ARGV[1] delete ok\n";}}

        $err = $imap->list("user.$ARGV[2]");
        if($err != 0){ print "\n";}else{
        $err = $imap->create("user.$ARGV[2]");
        if($err != 0){ print $imap->{'Error'}."\n";}else{print "user.$ARGV[2] create ok\n";}
        $err = $imap->set_acl("user.$ARGV[2]", "tbq","lrswipkxtecda"); #默认给管理员tbq所有权限，方便删除和修改
        if($err != 0){ print $imap->{'Error'}."\n";}}
    }
}


$imap->close;
print "-" x 20 . "\n";
#print Dumper @ARGV;