我又来踩场了，希望chifeng 老大不要介意 adduser.pl 中，下面代码我找到简洁的写法，有空可以试试。
复制内容到剪贴板
代码:
my ($disablepwdchange,$disablesmtpd,$disablesmtp,$disablewebmail,$disablenetdisk,$disableimap,$disablepop3) = (0,1,1,1,1,1,1);
my ($ssmtpd,$ssmtp,$swebmail,$snetdisk,$simap,$spop3) = ("smtpd","smtp","webmail","netdisk","imap","pop3");
my @sv = split(/,/,$services);
foreach my $ss (@sv) {
if($ssmtpd eq $ss) {
$disablesmtpd = 0;
}elsif($ssmtp eq $ss){
$disablesmtp = 0;
}elsif($swebmail eq $ss){
$disablewebmail = 0;
}elsif($snetdisk eq $ss){
$disablenetdisk = 0;
}elsif($simap eq $ss){
$disableimap = 0;
}elsif($spop3 eq $ss){
$disablepop3 = 0;
}
next;
}新代码参考,好像少了很多哟。。。。。
复制内容到剪贴板
代码:
my %disable= (
pwdchange=>0,
smtpd=>1,
smtp=>1,
webmail=>1,
netdisk=>1,
imap=>1,
pop3=>1
);
my @services=("smtpd","smtp","webmail","netdisk","imap","pop3");
foreach (@services) {
if (exists $disable{$_}){
$disable{$_}=0;
}
}[
本帖最后由 fengyong 于 2007-10-5 16:32 编辑 ]
