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; 

#检查是否为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 

# 询问配置文件目录 

abspath='echo $config_dir | grep "^/"' 

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

echo "Config directory must be an absolute path" 

exit 2 

#检查配置文件目录是否合法 

if [ ! -d $config_dir ]; then 

mkdir $config_dir 

if [ $? !=0 ]; then 

echo "ERROR: failed to create directory $config_dir" 

#创建配置目录,并检查是否成功 

if [ -r "$config_dir/config" ]; then 

echo "Found existing Webmin configuration in $config_dir" 

upgrading=1 

#检查配置文件是否存在,并置标志upgrading 

## 注,版本更新部分暂略 

ls $config_dir | grep -v rpmsave >/dev/null 2>&1 

if [ "$?" = "0" -a "$config_dir" != "/etc/webmin" ]; then 

echo "

#配置目录非空,退出配置 

#否则继续安装 

pirntf "Log file directory [/var/webmin]:" 

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

read var_dir 

var_dir=/var/webmin 

#创建系统运行时目录 log directory 

#缺省使用/var/webmin 

abspath='echo $var_dir | grep "^/"' 

if [ " &abspath " = "" ]; then 

echo "log file d

.." 

echo 3 

#检查该运行时文件目录是否合法,否则退出 

#grep "^/" 行首 以"/"开始 

if [ ! -d $var_dir ]; then 

mkdir $var_dir 

ehco "error:

#运行时文件目录不存在,则创建之,若创建失败,退出 

依靠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 

perldef ="" 

#检查几个常用perl安装路径是否有perl 存在,否则定义perldef变量为"" 

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

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

read perl 

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

echo "error:

exit 4 

printf "Full path to perl 

#提示输入 

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

perl=$perldef 

#上一步如果没有找到perl 的安装路径,则要求用户输入perl 的路径 

#有问题这里! perl & perldef ?! 真麻烦! 有一个不久行了吗?! 

if [ ! -x $perl ]; then 

echo "error: message

exit 5 

# 没有perl环境, 退出 

$perl -e 'print "foobar\n"' 2>/dev/null | grep foobar >/dev/null 

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

echo"error

exit 6 

#否则测试perl 是否可以运行

(打印一行试试,并进行检测) 

$perl -e 'exit ($] < 5.002 ? 1:0)' 

if [ $? = "1" ]; then 

echo "error : message

exit 7 

#检测版本信息,要求5.002 以上版本( 本setup.sh出自 ver0.88) 

$perl -e 'use Socket; print "foobar\n"' 2>/dev/null | grep foobar >/dev/null 

echo "error mesage

." 

exit 8 

#检测socket 模块是否正确安装..否则退出 

$perl -e '$c = crypt("xx","yy"); exit($c ? 0:1)' 

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

echo "erro mesage.." 

eixt 9 

#检测加密模块是否正确安装,否则退出 

echo " Pelr seems to be installed ok" 

#通知用户perl检测正常 

操作系统选择,见 oschooser.pl 和 os_list.txt 理的内容 

oschooser.pl 实现系统选择, 还没细看,大概就是根据不同的linux发 

布(因为它们的配置文件名会有所不同,怎么说,叫个案追究吧 呵呵) 

给webmin使用不同配置文件(参数变化) 

printf "Web server port (default 10000): " 

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

read port 

port=10000 

if [ $port -lt 1 ]; then 

echo "ERROR: $port is not a valid port number" 

exit 11 

if [ $port -gt 65535 ]; then 

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

echo " greater than 65535" 

exit 12 

$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 

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

exit 13 

printf "Login name (default admin): " 

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

read login 

login="admin" 

echo $login | grep : >/dev/null 

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

echo "ERROR: Username contains a : character" 

exit 14 

printf "Login password: " 

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

stty -echo 

read password 

stty echo 

printf "\n" 

printf "Password again: " 

read password2 

if [ "$password" != "$password2" ]; then 

echo "ERROR: Passwords don't match" 

echo $password | grep : >/dev/null 

echo "ERROR: Password contains a : character" 

defhost=`hostname` 

printf "Web server hostname (default $defhost): " 

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

read host 

host=$defhost 

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 

echo "The Perl SSLeay library is not installed. SSL not available." 

rm -f core 

# 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 

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

makeboot=$atboot 

#很无聊啊, 在分析下去

.. 失败! 选择错误! 

#太失败拉

.不好玩 

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

port=8081 

if [ $port -lt 1]; then 

echo "error message" 

eixt 11 

#接受拥护定义服务端口号, 缺省使用8081 

if [ $port -gt 65535 ] ;then 

#error message 

#若用户定义的端口号大于65535 , 则报错退出 

#用户可使用的端口是从1000 以后还是从1024 以后? 谁告诉我? 

set socket(FOO,SOL_SOCKET,SO_REUSEADDR, pack("l",1)); 

bind(FOO,sockaddr_in($ARGV[0],INADDR_ANY)) || exit(1);exit(0);' $p 

ort 

echo "error message

#测试端口是否被占用, 方法见perl -e 那行的代码 

printf "login name (default admin):" 

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

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

loging="admin" 

#接受用户输入的管理员名称,缺省使用admin 

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

echo error mesage.. 

# 检测用户名称是否合法, 这里可以稍加改进,不用动不动就退出安装. 

pirntf " loging passwd" 

printf "password agani:" 

if [ "$password" != "$pasword2" ] ;then 

echo "Error message" 

#检查密码,并控制屏显 

defhost='hostname' 

printf "web server hostname (default $defhost):" 

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

# 设置主机名称,没有则接受用户输入 

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

ssl = 0 

$perl -e 'use Net::SSLeay'>/dev/null 2>/dev/null 

if [ $? = "0" ] ; then 

printf "Use SSL (y/n):" 

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

echo "asdfjalksdjfjcjvknx

#检查是否正确安装支持 ssl 模块, 否则给出提示信息 

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

initsupp='grep "^os_support=" $wadir/init/module.info | sed -e 's/os_suppo 

rt=//g' |grep $os_type' 

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

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

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

echo 

#检测模块安装文件/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 

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

echo "session=$session" >> $cfile 

echo "session=1" >> $cfile 

#创建/etc/webmin(配置文件目录)下的miniserv.conf 

#前面搜集的一些变量在此被写入文件 

ufile=$config_dir/miniserv.users 

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

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

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

rd" > $ufile 

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 "Creating access control file.." 

afile=$config_dir/webmin.acl 

rm -f $afile 

#清空已存在的webmin acl 文件,不管有没有,删下看! 

echo "$login: $allmods" >> $afile 

chmod 600 $afile 

#将现有的模块注册,并重新创建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 - 

# 有问题 ：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 

grep "lang=$CONF_LST_LANG," $wadir/lang_list.txt >/dev/null 2>&1 

if [ "$?" = 0 ]; then 

echo "lang=$CONF_LST_LANG" >> $config_dir/config 

#检查系统培植文件/etc/system.cnf中的CONF_LST_LANG 

#设置语言相关得选项 

echo $ver > $config_dir/version 

if [ "$makeboot" = "1" ] ;then 

(cd $wadir/init; WEBMIN_CONFIG=$config_dir WEBMIN_VAR=$var_dir 

$wadir/init/atboot.pl) 

# 根据安装时的启动选项设置相关文件，参数 

# 注意最后运行的 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 

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) 

echo "Deleting $wadir.." 

rm -rf $wadir 

echo "Deleting $config_dir ." 

rm -rf $config_dir 

echo "..Done" 

EOF 

chmod +x $config_dir/uninstall.sh 

# 创建卸载脚本， 很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 

#改变安装目录（安装完后即执行目录）的属主 

#处理$var_dir 的属主及执行权限 比较周到 

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

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

$config_dir/start 

echo "ERROR: Failed to start web server!" 

# 试图启动webmin 的 mini server 

# 若失败则退出 

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

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

echo "browser to go to" 

#启动成功给出响应的提示信息 

if [ "$ssl" = "1" ]; then 

echo " https://$host:$port/" 

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

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

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." 

#若ssl 有效，则给出启动客户端的方式：https://

:prot 

# over 本次分析排除了，upgrade 操作的代码分析

 不过我认为 

# 主要部分搞定的话,足以,省得看着那么多,不爽! :)