FreeBSD大量转档建帐号程式(perl代码)
本文出自:OHaHa的学习心得[ohaha.ks.edu.tw]作者：蓝色泡泡(panda@ks.edu.tw)(2002-03-0506:02:00)
##############
#adduser.pl#
##############
#!/usr/bin/perl
$filename='class.txt';
open(file,$filename);
while($name=){
chop$name;
@name_array=split/,/,$name;
$PW_COMMAND="/usr/sbin/pwuseradd$name_array[0]-m-h0";
$fname="|".$PW_COMMAND;open(OUT,$fname);
printOUT$name_array[1];
close(OUT);
print"UserName:",$name_array[0],"\t\t",
"Password:",$name_array[1],"\n";
}
print"\n";
close(file);
################
#/etc/pw.conf#
################
logfile/root/pw.log
defaultpasswdyes
home/home
defaultshell/usr/local/bin/bash
defaultgroupuser
reuseuidsyes
minuid2000
##############
#额外说明#
##############
1.home-->预设的家目录
defaultshell-->预设的shell路径
defaultgroup-->预设的群组
1.minuid-->起始的uid
############
#使用方式#
############
1.先备档案
a.adduser.pl
b./etc/pw.conf
c.帐号的来源档class.txt
形式：
帐号,密码
帐号,密码
2.步骤
a.将adduser.pl改为可以执行
chmod700adduser.pl
b.adduser.pl及class.txt需在同一目录下，不然则需更改路径
c.执行adduser.pl
d.完成
我没有试过。
我曾幫服務的學校寫了一個大量建帳號的程式,為了建置每學期
新進學生的帳號,修改一下應該可以符合你的需求
檔案下載ftp://mail2.tses.tcc.edu.tw/pub/files/adduser.tgz
安裝方法
tarxvzfadduser.tgz
makeinstallclean
使用方法(增加新學年使用者範例)
#stdadmin-1
請輸入帳號開頭的英文字母(建議用s):s
請輸入入學年度:90
請輸入該年級之班級數:5
請輸入每班之人數:35
請輸入預設密碼(英數混合至多8個字元):abcd1234
Check/etc/shells
Check/etc/master.passwd
Check/etc/group
Enteryourdefaultshell:bashcshdatenoshtcsh[sh]:#按enter或自己設定
EnteryourdefaultHOMEpartition:[/home]:#按enter
Copydotfilesfrom:/usr/share/skelno[/usr/share/skel]:#按enter
Areyousuretoaddusers?(y/n)[y]:#按enter
建立帳號後可以用openwebmail或其他程式來更改個人密碼
刪除使用者範例
#stdadmin-2
請輸入帳號開頭的英文字母:s
請輸入入學年度:90
請選擇要不要刪除個人家目錄:1.是2.否:1
這樣就完成了.
注意:第一次安裝完時會找不到路徑,可以用絕對路徑
/usr/local/bin/stdadmin-1
或是重開機後只要打stdadmin-1就可以了
歡迎大家幫忙測試並提供bug修正!
