webmin 之 setup.sh 脚本分析

# find install directory 
cd  ' dirname $0 '  
if  [  -x   / bin / pwd ]; then 
wadir = ' /bin/pwd '  
else  
wadir = ' pwd ' ; 
fi 
# 查找并获得安装目录 -> wadir 
ver = ' cat $wadir/version '  
# 获得安装版本 
echo  " ***************** "  
.  
# 显示用户提示信息 
id  |   grep   " uid=1< "   >/ dev / null 
if  [ $ ?   != " 0 "  ]; then 
echo  " ERROR: " ; 
echo  "" ; 
exit   1 ; 
fi 
# 检查是否为root 安装否则提示出错,程序推出 
#才知道还有id 这么个命令，，见笑了 
echo  " Installing webmin in $ wadir  "  
allmods = ' cd $wadir; ls */module.info | sed -e  ' s /\/ module . info // g '  | xargs e 
cho '  
echo  ""  
# 获取所有的可安装模块信息 

printf   " Config file directory [/etc/webmin]: "  
.  
.  
.  
if  [  " $config_dir "   =   "" ]; then 
config_dir  =   / etc / webmin 
fi 
#  询问配置文件目录 
abspath = ' echo $config_dir | grep "^/" '  
if  [  " $abspath "   =   ""  ]; then 
echo  " Config directory must be an absolute path "  
echo  ""  
exit   2  
fi 
# 检查配置文件目录是否合法 
if  [  !   - d  $config_dir  ]; then 
mkdir   $config_dir  
if  [ $ ?   != 0  ]; then 
echo  " ERROR: failed to create directory $config_dir "  
echo  ""  
exit   2  
fi 
fi 
# 创建配置目录,并检查是否成功 
if  [  - r  " $config_dir/config "  ]; then 
echo  " Found existing Webmin configuration in $config_dir "  
echo  ""  
upgrading = 1  
fi 
# 检查配置文件是否存在,并置标志upgrading 
## 注,版本更新部分暂略 

ls  $config_dir   |   grep   - v rpmsave  >/ dev / null  2 >& 1  
if  [  " $? "   =   " 0 "   - a  " $config_dir "   !=   " /etc/webmin "  ]; then 
echo  "  
. 
exit 2 
fi 
#配置目录非空,退出配置 
#否则继续安装 
pirntf  " Log  file directory [ / var / webmin] : "  
if [  " $var_dir "  =  ""  ]; then 
read var_dir 
fi 
if [  " $var_dir "  =  ""  ]; then 
var_dir=/var/webmin 
fi 
#创建系统运行时目录 log directory 
#缺省使用/var/webmin 
abspath='echo $var_dir | grep  " ^/ " ' 
if [  "   & abspath  "  =  ""  ]; then 
echo  " log  file d .. "  
echo  ""  
echo 3 
fi 
#检查该运行时文件目录是否合法,否则退出 
#grep  " ^/ "  行首 以 " / " 开始 
if [ ! -d $var_dir ]; then 
mkdir $var_dir 
if [ $? !=0 ]; then 
ehco  " error : "  
. 
. 
fi 
fi 
#运行时文件目录不存在,则创建之,若创建失败,退出 

依靠perl 运行的webmin当然要确定一下系统中是否有perl 的解释器, 
以下: 
if [ -x /usr/bin/perl ]; then 
perldef=/usr/bin/perl 
elif [ -x /usr/local/bin/perl ]; then 
perldef=/usr/local/bin/perl 
else 
perldef = ""  
fi 
#检查几个常用perl安装路径是否有perl 存在,否则定义perldef变量为 ""  
if [  " $perl "  =  ""  ]; then 
if [  " $perldef "  =  ""  ]; then 
read perl 
if [  " $perl "  =  ""  ];then 
echo  " error : "  
. 
exit 4 
fi 
else 
printf  " Full path to perl  "  
#提示输入 
read perl 
if [  " $perl "  =  "" ];then 
perl=$perldef 
fi 
fi 
fi 
#上一步如果没有找到perl 的安装路径,则要求用户输入perl 的路径 
#有问题这里! perl & perldef ?! 真麻烦! 有一个不久行了吗?! 
if [ ! -x $perl ]; then 
echo  " error :  message "  
exit 5 
fi 
# 没有perl环境, 退出 
$perl -e 'print  " foobar \ n " ' 2>/dev/null | grep foobar >/dev/null 
if [ $? !=  " 0 "  ];then 
echo " error "  
exit 6 
fi 
#否则测试perl 是否可以运行(打印一行试试,并进行检测) 
$perl -e 'exit ($] < 5.002 ? 1:0)' 
if [ $? =  " 1 "  ]; then 
echo  " error  :  message "  
exit 7 
fi 
#检测版本信息,要求5.002 以上版本( 本setup.sh出自 ver0.88) 
$perl -e 'use Socket; print  " foobar \ n " ' 2>/dev/null | grep foobar >/dev/null 
if [ $? !=  " 0 "  ];then 
echo  " error mesage . "  
exit 8 
fi 
#检测socket 模块是否正确安装..否则退出 
$perl -e '$c = crypt( " xx " , " yy " ); exit($c ? 0:1)' 
if [ $? !=  " 0 "  ]; then 
echo  " erro mesage .. "  
eixt 9 
fi 
#检测加密模块是否正确安装,否则退出 
echo  "  Pelr seems to be installed ok "  
echo  ""  
#通知用户perl检测正常 


操作系统选择,见 oschooser.pl 和 os_list.txt 理的内容 
oschooser.pl 实现系统选择, 还没细看,大概就是根据不同的linux发 
布(因为它们的配置文件名会有所不同,怎么说,叫个案追究吧 呵呵) 
给webmin使用不同配置文件(参数变化) 

printf  " Web server port (default  10000 ) :   "  
if [  " $port "  =  ""  ]; then 
read port 
if [  " $port "  =  ""  ]; then 
port=10000 

fi 

fi 
if [ $port -lt 1 ]; then 
echo  " ERROR :   $port  is not a valid port number "  

echo  ""  
exit 11 
fi 

if [ $port -gt 65535 ]; then 

echo  " ERROR :   $port  is not a valid port number .  Port numbers cannot be "  

echo  "  greater than  65535 "  
echo  ""  

exit 12 

fi 

$perl -e 'use Socket; socket(FOO, PF_INET, SOCK_STREAM, getprotobyname( " tcp "  
)); 
setsockopt(FOO, SOL_SOCKET, SO_REUSEADDR, pack( " l " , 1)); 
bind(FOO, sockaddr_in($ARGV[0], INADDR_ANY)) || exit(1); 
exit(0);' 
$port 

if [ $? !=  " 0 "  ]; then 

echo  " ERROR :  TCP port  $port  is already in  use  by another program "  

echo  ""  

exit 13 

fi 

printf  " Login name (default admin) :   "  
if [  " $login "  =  ""  ]; then 

read login 

if [  " $login "  =  ""  ]; then 

login= " admin "  
fi 

fi 
echo $login | grep : >/dev/null 
if [  " $ ? "  =  " 0 "  ]; then 
echo  " ERROR :  Username contains a  :  character "  

echo  ""  

exit 14 

fi 
printf  " Login password :   "  

if [  " $password "  =  ""  -a  " $crypt "  =  ""  ]; then 
stty -echo 

read password 

stty echo 

printf  " \ n "  

printf  " Password again :   "  
stty -echo 

read password2 

stty echo 
printf  " \ n "  
if [  " $password "  !=  " $password2 "  ]; then 
echo  " ERROR :  Passwords don ' t match" 
echo "" 

exit 14 
fi 
echo $password | grep : >/dev/null 
if [ "$?" = "0" ]; then 

echo "ERROR: Password contains a : character" 
echo "" 
exit 14 

fi 

fi 

defhost=`hostname` 
printf "Web server hostname (default $defhost): " 
if [ "$host" = "" ]; then 

read host 

if [ "$host" = "" ]; then 

host=$defhost 
fi 
fi 
if [ "$ssl" = "" ]; then 
ssl=0 

$perl -e  ' use  Net :: SSLeay '  >/dev/null 2>/dev/null 
if [ $? = "0" ]; then 
printf "Use SSL (y/n): " 
read sslyn 
if [ "$sslyn" = "y" -o "$sslyn" = "Y" ]; then 
ssl=1 
fi 
else 
echo "The Perl SSLeay library is not installed. SSL not available." 

rm -f core 
fi 

fi 

# Ask whether to run at boot time 

if [ "$atboot" = "" ]; then 

initsupp=`grep "^os_support=" $wadir/init/module.info | sed -e  ' s / os_suppor 
t =// g '  | grep $os_type` 

atboot=0 
if [ "$initsupp" != "" ]; then 

printf "Start webmin at boot time (y/n): " 
read atbootyn 

if [ "$atbootyn" = "y" -o "$atbootyn" = "Y" ]; then 

atboot=1 

fi 
else 
echo "webmin does not support being started at boot time on your system." 

fi 
fi 

makeboot=$atboot 

#很无聊啊, 在分析下去.. 失败! 选择错误! 
#太失败拉.不好玩 

if [ "$port" = "" ];then 
read port 
if [ "$port" = "" ];then 
port=8081 
fi 
fi 
if [ $port -lt 1]; then 
echo "error message" 
eixt 11 
fi 
#接受拥护定义服务端口号, 缺省使用8081 
if [ $port -gt 65535 ] ;then 
#error message 
exit 12 
fi 
#若用户定义的端口号大于65535 , 则报错退出 
#用户可使用的端口是从1000 以后还是从1024 以后? 谁告诉我? 
$perl -e  ' use   Socket ;  socket (FOO ,  PF_INET ,  SOCK_STREAM ,   getprotobyname ( " tcp "  
)); 
set  socket (FOO , SOL_SOCKET , SO_REUSEADDR ,   pack ( " l " , 1 )); 
bind (FOO , sockaddr_in( $ARGV [ 0 ] , INADDR_ANY))  ||   exit ( 1 ); exit ( 0 ); '  $p 
ort 
if [ $? !="0" ]; then 
echo "error message" 
exit 13 
fi 
#测试端口是否被占用, 方法见perl -e 那行的代码 
printf "login name (default admin):" 
if [ "$loging" = ""] ; then 
read login 
if [ "$login" = ""]; then 
loging="admin" 
fi 
fi 
#接受用户输入的管理员名称,缺省使用admin 
echo $login | grep : >/dev/null 
if [ "$?" = "0" ] ; then 
echo error mesage.. 
exit 14 
fi 
# 检测用户名称是否合法, 这里可以稍加改进,不用动不动就退出安装. 
pirntf " loging passwd" 
if [ "$password" = "" -a "$crypt" = "" ]; then 
stty -echo 
read password 
stty echo 
printf "\n" 
printf "password agani:" 
stty -echo 
read password2 
stty echo 
printf "\n" 
if [ "$password" != "$pasword2" ] ;then 
echo "Error message" 
exit 14 
fi 
fi 
#检查密码,并控制屏显 
defhost= ' hostname '  
printf "web server hostname (default $defhost):" 
if [ "$host" = ""]; then 
read host 
if [ "$host" = "" ]; then 
host=$defhost 
fi 
fi 
# 设置主机名称,没有则接受用户输入 
if [ "$ssl" = ""]; then 
ssl = 0 
$perl -e  ' use  Net :: SSLeay ' >/dev/null 2>/dev/null 
if [ $? = "0" ] ; then 
printf "Use SSL (y/n):" 
read sslyn 
if [ "$sslyn" = "y" -o "$sslyn" = "Y" ] ; then 
ssl=1 
fi 
else 
echo "asdfjalksdjfjcjvknx." 
rm -f core 
fi 
fi 
#检查是否正确安装支持 ssl 模块, 否则给出提示信息 
if [ "$atboot" = "" ];then 
initsupp= ' grep   " ^os_support= "   $wadir / init / module . info  |  sed  - e  ' s/os_suppo 
rt=//g '   | grep   $os_type '  
atboot=0 
if [ "$initsupp" != ""];then 
printf "Start webmin at boot time (y/n):" 
read atbootyn 
if [ "$atbootyn" = "y" -o "$atbootyn" = "Y"]; then 
atboot=1 
fi 
else 
echo . 
fi 
fi 
#检测模块安装文件/init/module.info中查找os_support 项所支持的 
#os_type中是否有当前的os_type,有则提示用户选择是否在系统启动时 
#启动webmin 

echo $perl > $config_dir/perl-path 
echo $var_dir > $config_dir/var-path 
echo "******************************************" 

echo "Creating web server config files.." 

cfile=$config_dir/miniserv.conf 

echo "port=$port" >> $cfile 

echo "root=$wadir" >> $cfile 

echo "host=$host" >> $cfile 

echo "mimetypes=$wadir/mime.types" >> $cfile 

echo "addtype_cgi=internal/cgi" >> $cfile 

echo "realm=LNMS Server" >> $cfile 

echo "logfile=$var_dir/miniserv.log" >> $cfile 

echo "pidfile=$var_dir/miniserv.pid" >> $cfile 

echo "logtime=168" >> $cfile 

echo "ppath=$ppath" >> $cfile 

echo "ssl=$ssl" >> $cfile 

echo "env_LNMS_CONFIG=$config_dir" >> $cfile 

echo "env_LNMS_VAR=$var_dir" >> $cfile 

echo "atboot=$atboot" >> $cfile 

echo "logout=$config_dir/logout-flag" >> $cfile 

echo "listen=10000" >> $cfile 

echo "denyfile=\\.pl\$" >> $cfile 

if [ "$allow" != "" ]; then 

echo "allow=$allow" >> $cfile 

fi 

if [ "$session" != "" ]; then 

echo "session=$session" >> $cfile 

else 

echo "session=1" >> $cfile 

fi 
#创建/etc/webmin(配置文件目录)下的miniserv.conf 
#前面搜集的一些变量在此被写入文件 

ufile=$config_dir/miniserv.users 

if [ "$crypt" != "" ]; then 

echo "$login:$crypt:0" > $ufile 
else 

$perl -e  ' print   " $ARGV[0]: " , crypt ( $ARGV [ 1 ] ,   " XX " ) , " :0\n "'  "$login" "$passwo 
rd" > $ufile 

fi 

chmod 600 $ufile 

echo "userfile=$ufile" >> $cfile 

#创建用户加密文件,并更改其权限 
kfile=$config_dir/miniserv.pem 

cp $wadir/miniserv.pem $kfile 

chmod 600 $kfile 

#拷贝安装目录下的miniserv必须的模块文件到/etc/webmin 目录 
#并设置权限 
echo "keyfile=$config_dir/miniserv.pem" >> $cfile 

#追加miniserv 模块文件信息至 miniserv.conf 文件 
chmod 600 $cfile 

echo "..done" 

echo "" 

echo "Creating access control file.." 

afile=$config_dir/webmin.acl 

rm -f $afile 

#清空已存在的webmin acl 文件,不管有没有,删下看! 
echo "$login: $allmods" >> $afile 

chmod 600 $afile 

echo "..done" 

echo "" 
#将现有的模块注册,并重新创建webmin.acl 文件 

还有一点.. 

#有问题啊这里，谁给我讲讲 
if [ "$noperlpath" = "" ]; then 
echo "Inserting path to perl into scripts.." 
(find $wadir -name  ' *. cgi '  -print;find $wadir -name  ' *. pl '  -print) 
| $perl $wadir/perlpath.pl $perl - 
echo "..done" 
echo "" 
fi 
# 有问题 ：perl perlpath.pl perl -  这里在做什么？！ 
#创建/etc/webmin/start & stop 脚本。。。略 
if [ -r /etc/system.cnf ] ; then 
source /etc/system.cnf 
if [ "$CONF_LST_LANG" = "us" ];then 
CONF_LST_LANG=en 
elif [ "$CONF_LST_LANG" = "uk" ]; then 
CONF_LST_LANG=en 
fi 
grep "lang=$CONF_LST_LANG," $wadir/lang_list.txt >/dev/null 2>&1 
if [ "$?" = 0 ]; then 
echo "lang=$CONF_LST_LANG" >> $config_dir/config 
fi 
fi 
#检查系统培植文件/etc/system.cnf中的CONF_LST_LANG 
#设置语言相关得选项 

echo $ver > $config_dir/version 
echo "..done" 
if [ "$makeboot" = "1" ] ;then 
.. 
(cd $wadir/init; WEBMIN_CONFIG=$config_dir WEBMIN_VAR=$var_dir 
$wadir/init/atboot.pl) 
.. 
fi 
# 根据安装时的启动选项设置相关文件，参数 
# 注意最后运行的 atboot.pl 再作分析 
if [ "$nouninstall" = "" ]; then 
.. 
cat >$config_dir/uninstall.sh <<EOF 
#!/bin/sh 
printf " Are you sure you want to unistall Webmin? (Y/N):" 
read answer 
printf "\n" 
if [ "\$answer" = "y" ]; then 
$config_dir/stop 
if [ "$atboot" = "1" ]; then 
(cd $wadir/init ; WEBIN_CONFIG=$config_dir WEBMIN_VAR=$var_dir $wadir/init/ 
delboot.pl) 
fi 
echo "Deleting $wadir.." 
rm -rf $wadir 
echo "Deleting $config_dir ." 
rm -rf $config_dir 
echo "..Done" 
fi 
EOF 
chmod +x $config_dir/uninstall.sh 
echo "..done" 
fi 
# 创建卸载脚本， 很easy 给点提示，让后把相关得目录删掉即可 
# 注意$wadir/init/delboot.pl 并注意与adboot.pl 对照 

echo "Changing ownership and permissions .." 
chown -R root:bin $config_dir 
chmod -R og-rw $config_dir 
chmod 755 $config_dir/sendmail/config >/dev/null 2>&1 
chmod 755 $config_dir/sendmail/autoreply.pl >/dev/null 2>&1 
#改变配置模块文件属主及访问权限 
#为什么对sendmail单独处理？ 我还不太清楚 
if [ "$nochown" = "" ]; then 

chown -R root:bin $wadir 

#chmod -R og-rwx $wadir 

if [ $var_dir != "/var" ]; then 
chown -R root:bin $var_dir 
chmod -R og-rwx $var_dir 

fi 
fi 
echo "..done" 
echo "" 
#改变安装目录（安装完后即执行目录）的属主 
#处理$var_dir 的属主及执行权限 比较周到 
if [ "$nostart" = "" ]; then 

echo "Attempting to start Webmin mini web server.." 

$config_dir/start 

if [ $? != "0" ]; then 
echo "ERROR: Failed to start web server!" 
echo "" 
exit 14 

fi 
# 试图启动webmin 的 mini server 
# 若失败则退出 

echo "..done" 

echo "" 

echo "***********************************" 

echo "Webmin has been installed and started successfully. Use your web" 
echo "browser to go to" 

echo "" 

#启动成功给出响应的提示信息 
if [ "$ssl" = "1" ]; then 
echo " https://$host:$port/" 

else 

echo " http://$host:$port/" 

fi 

echo "" 

echo "and login with the name and password you entered previously." 

echo "" 

if [ "$ssl" = "1" ]; then 
echo "Because Webmin uses SSL for encryption only, the certificate" 

echo "it uses is not signed by one of the recognized CAs such as" 

echo "Verisign. When you first connect to the Webmin server, your" 

echo "browser will ask you if you want to accept the certificate" 

echo "presented, as it does not recognize the CA. Say yes." 

echo "" 
fi 
#若ssl 有效，则给出启动客户端的方式：https://:prot 
fi 
# over 本次分析排除了，upgrade 操作的代码分析 不过我认为 
# 主要部分搞定的话,足以,省得看着那么多,不爽! :)