发布几个小工具

chifeng

所有脚本需要解压缩到.../extman/tools/目录下才能被正确执行。


1，userinfo.pl
版本：1.0
显示用户相关信息，自动识别user，alias类型。
示例：
chifeng# ./userinfo.pl chifeng@extmail.org

chifeng@extmail.org
------------------------------------------
        Type: User
       Email: chifeng@extmail.org
  CommonName: chifeng
      Active: 1
       Quota: 1048576000S
NetdiskQuota: 31457280S
     Maildir: /home/domains/extmail.org/chifeng/Maildir/
     Homedir: /home/domains/extmail.org/chifeng
     Routing:
  CreateDate: 2007-02-14 15:10:04
  ExpireDate: 2200-10-11 15:10:04

2，adduser.pl
版本：1.0
增加一个用户，非批量添加，不过可以写个shell来调用这个脚本做到批量添加。

示例：
chifeng# ./adduser.pl

Usage: ./adduser.pl username@domain.tld
         --password ******
         --quota 100

chifeng# ./adduser.pl test2@extmail.org --password 123456 --quota 100
    User: test2@extmail.org
Password: 123456
  Status: add success!

3,deluser.pl
版本：1.0
删除一个用户，非批量删除。一次删除一个用户。

示例：
chifeng# ./deluser.pl test@extmail.org
test@extmail.org User Deleted!

4，modifyuser.pl
版本：1.0
修改一个用户的相关信息。
说明：如果同时写了--enable和--disable，并且内容重复，则以disable优先。
示例：
chifeng# ./modifyuser.pl

Usage: ./modifyuser.pl username@domain.tld
         --password ******
         --quota 100 [Unit: MB]
         --ndquota 100 [Unit: MB]
         --active 1|0
         --expiredate "2008-08-18"
         --enable smtp,smtpd,pop3,imap,webmail,netdisk,pwdchange
         --disable smtp,smtpd,pop3,imap,webmail,netdisk,pwdchange


欢迎使用，任何问题请联系我。

[ 本帖最后由 chifeng 于 2007-8-15 09:24 编辑 ]

raykingecs

顶，支持chi老大！

xware

支持一下 , 这对于熟悉系统的用户来说比 web 好用多了

michelle

额。。。确实好用

[ 本帖最后由 michelle 于 2007-8-15 14:55 编辑 ]

hzqbbc

chifeng老大酝酿已久的工具了，迟1周wangpenghui老大也将发布自动封ip的小工具，希望能凑成一个工具组合，给做sysadmin的哥们提供便利，大家多支持~

options

在学习呀！非常的关注！

月照清溪

严重关注，方便的东西哪！！

crastyl

bsd下的导入到emos里如何导入！！

chifeng

原帖由 crastyl 于 2007-9-19 10:37 发表
bsd下的导入到emos里如何导入！！

直接mysqldump就可以。
数据的话，tar过来，或者rsync

fengyong

看了 modifyuser.pl 的代码，感觉通过这样去访问extman 比较有API 的口味，以后多向chifeng 老大学习。

程序结构看起来没有我的简洁。
http://www.yiyou.org/46reset_extman_mysql_passwd.html

[ 本帖最后由 fengyong 于 2007-9-27 11:20 编辑 ]

fengyong

我又来踩场了，希望chifeng 老大不要介意  adduser.pl 中，下面代码我找到简洁的写法，有空可以试试。

1. my ($disablepwdchange,$disablesmtpd,$disablesmtp,$disablewebmail,$disablenetdisk,$disableimap,$disablepop3) = (0,1,1,1,1,1,1);
   
2. my ($ssmtpd,$ssmtp,$swebmail,$snetdisk,$simap,$spop3) = ("smtpd","smtp","webmail","netdisk","imap","pop3");
   
3. my @sv = split(/,/,$services);
   
4. foreach my $ss (@sv) {
   
5.     if($ssmtpd eq $ss) {
   
6.         $disablesmtpd = 0;
   
7.     }elsif($ssmtp eq $ss){
   
8.         $disablesmtp = 0;
   
9.     }elsif($swebmail eq $ss){
   
10.         $disablewebmail = 0;
    
11.     }elsif($snetdisk eq $ss){
    
12.         $disablenetdisk = 0;
    
13.     }elsif($simap eq $ss){
    
14.         $disableimap = 0;
    
15.     }elsif($spop3 eq $ss){
    
16.         $disablepop3 = 0;
    
17.     }
    
18.     next;
    
19. }

复制代码

新代码参考,好像少了很多哟。。。。。

1. my %disable= (
   
2.         pwdchange=>0,
   
3.         smtpd=>1,
   
4.         smtp=>1,
   
5.         webmail=>1,
   
6.         netdisk=>1,
   
7.         imap=>1,
   
8.         pop3=>1
   
9. );
   
10. my @services=("smtpd","smtp","webmail","netdisk","imap","pop3");
    
11. 
    
12. foreach (@services) {
    
13.         if (exists $disable{$_}){
    
14.                 $disable{$_}=0;
    
15.         }
    
16. }

复制代码

[ 本帖最后由 fengyong 于 2007-10-5 16:32 编辑 ]

chifeng

原帖由 fengyong 于 2007-9-27 13:14 发表
我又来踩场了，希望chifeng 老大不要介意  adduser.pl 中，下面代码我找到改良的算法，有空可以试试。

my ($disablepwdchange,$disablesmtpd,$disablesmtp,$disablewebmail,$disablenetdisk,$disableimap,$disablepo ...

赞......fengyong老大颇强...呵呵,学习....

xueron

写法不一样而已，呵呵。

1. use Data::Dumper;
   
2. my %disable= (
   
3.         pwdchange=>0,
   
4.         smtpd=>1,
   
5.         smtp=>1,
   
6.         webmail=>1,
   
7.         netdisk=>1,
   
8.         imap=>1,
   
9.         pop3=>1
   
10. );
    
11. my @services=("smtpd","smtp","webmail","netdisk","imap","pop3");
    
12. map { $disable{$_} = 0 } @services;

复制代码

hzqbbc

欢迎fengyong, chifeng械斗 多踩场