牽著老婆滿街逛

嚴(yán)以律己,寬以待人. 三思而后行.
GMail/GTalk: yanglinbo#google.com;
MSN/Email: tx7do#yahoo.com.cn;
QQ: 3 0 3 3 9 6 9 2 0 .

導(dǎo)航

<

2007年3月

>

日

一

二

三

四

五

六

25

26

27

28

1

2

3

4

5

6

7

9

15

17

18

21

27

28

29

30

31

1

2

3

4

5

6

7

統(tǒng)計(jì)

隨筆 - 1513
文章 - 45
評(píng)論 - 907
引用 - 0

公告

言論：
1.每日自省；
2.享受人生；
3.盡力而為；
4.堅(jiān)持不懈；
5.切莫急躁；
6.慎言敏行；
7.動(dòng)心忍性；
8.上善若水。

常用鏈接

留言簿(11)

隨筆分類(466)

隨筆檔案(1513)

文章分類(46)

文章檔案(45)

相冊(cè)

收藏夾(39)

搜索

積分與排名

積分 - 2533279
排名 - 2

閱讀排行榜

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 安裝否則提示出錯(cuò),程序推出

#才知道還有id 這么個(gè)命令，，見(jiàn)笑了

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

# 詢問(wèn)配置文件目錄

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

#創(chuàng)建配置目錄,并檢查是否成功

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

echo "Found existing Webmin configuration in $config_dir"

echo ""

upgrading=1

fi

#檢查配置文件是否存在,并置標(biāo)志upgrading

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

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

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

echo "

.

exit 2

fi

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

#否則繼續(xù)安裝

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

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

read var_dir

fi

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

var_dir=/var/webmin

fi

#創(chuàng)建系統(tǒng)運(yùn)行時(shí)目錄 log directory

#缺省使用/var/webmin

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

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

echo "log file d

.."

echo ""

echo 3

fi

#檢查該運(yùn)行時(shí)文件目錄是否合法,否則退出

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

if [ ! -d $var_dir ]; then

mkdir $var_dir

if [ $? !=0 ]; then

ehco "error:

"

.

fi

#運(yùn)行時(shí)文件目錄不存在,則創(chuàng)建之,若創(chuàng)建失敗,退出

依靠perl 運(yùn)行的webmin當(dāng)然要確定一下系統(tǒng)中是否有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

#檢查幾個(gè)常用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

#上一步如果沒(méi)有找到perl 的安裝路徑,則要求用戶輸入perl 的路徑

#有問(wèn)題這里! perl & perldef ?! 真麻煩! 有一個(gè)不久行了嗎?!

if [ ! -x $perl ]; then

echo "error: message

"

exit 5

fi

# 沒(méi)有perl環(huán)境, 退出

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

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

echo"error

"

exit 6

fi

#否則測(cè)試perl 是否可以運(yùn)行

(打印一行試試,并進(jìn)行檢測(cè))

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

if [ $? = "1" ]; then

echo "error : message

"

exit 7

fi

#檢測(cè)版本信息,要求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

#檢測(cè)socket 模塊是否正確安裝..否則退出

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

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

echo "erro mesage.."

eixt 9

fi

#檢測(cè)加密模塊是否正確安裝,否則退出

echo " Pelr seems to be installed ok"

echo ""

#通知用戶perl檢測(cè)正常

操作系統(tǒng)選擇,見(jiàn) oschooser.pl 和 os_list.txt 理的內(nèi)容

oschooser.pl 實(shí)現(xiàn)系統(tǒng)選擇, 還沒(méi)細(xì)看,大概就是根據(jù)不同的linux發(fā)

布(因?yàn)樗鼈兊呐渲梦募麜?huì)有所不同,怎么說(shuō),叫個(gè)案追究吧呵呵)

給webmin使用不同配置文件(參數(shù)變化)

printf "Web server port (default 10000): "

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

read port

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

port=10000

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

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

defhost=`hostname`

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

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

read host

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

host=$defhost

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

# 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

makeboot=$atboot

#很無(wú)聊啊, 在分析下去

.. 失敗! 選擇錯(cuò)誤!

#太失敗拉

.不好玩

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

read port

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

port=8081

fi

if [ $port -lt 1]; then

echo "error message"

eixt 11

fi

#接受擁護(hù)定義服務(wù)端口號(hào), 缺省使用8081

if [ $port -gt 65535 ] ;then

#error message

exit 12

fi

#若用戶定義的端口號(hào)大于65535 , 則報(bào)錯(cuò)退出

#用戶可使用的端口是從1000 以后還是從1024 以后? 誰(shuí)告訴我?

$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

#測(cè)試端口是否被占用, 方法見(jiàn)perl -e 那行的代碼

printf "login name (default admin):"

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

read login

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

loging="admin"

fi

#接受用戶輸入的管理員名稱,缺省使用admin

echo $login | grep : >/dev/null

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

echo error mesage..

exit 14

fi

# 檢測(cè)用戶名稱是否合法, 這里可以稍加改進(jìn),不用動(dòng)不動(dòng)就退出安裝.

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

#檢查密碼,并控制屏顯

defhost='hostname'

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

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

read host

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

host=$defhost

fi

# 設(shè)置主機(jī)名稱,沒(méi)有則接受用戶輸入

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

#檢查是否正確安裝支持 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

#檢測(cè)模塊安裝文件/init/module.info中查找os_support 項(xiàng)所支持的

#os_type中是否有當(dāng)前的os_type,有則提示用戶選擇是否在系統(tǒng)啟動(dòng)時(shí)

#啟動(dòng)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

#創(chuàng)建/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

#創(chuàng)建用戶加密文件,并更改其權(quán)限

kfile=$config_dir/miniserv.pem

cp $wadir/miniserv.pem $kfile

chmod 600 $kfile

#拷貝安裝目錄下的miniserv必須的模塊文件到/etc/webmin 目錄

#并設(shè)置權(quán)限

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 文件,不管有沒(méi)有,刪下看!

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

chmod 600 $afile

echo "..done"

echo ""

#將現(xiàn)有的模塊注冊(cè),并重新創(chuàng)建webmin.acl 文件

還有一點(diǎn)

..

#有問(wèn)題啊這里，誰(shuí)給我講講

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

# 有問(wèn)題：perl perlpath.pl perl -

這里在做什么？！

#創(chuàng)建/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

#檢查系統(tǒng)培植文件/etc/system.cnf中的CONF_LST_LANG

#設(shè)置語(yǔ)言相關(guān)得選項(xiàng)

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

# 根據(jù)安裝時(shí)的啟動(dòng)選項(xiàng)設(shè)置相關(guān)文件，參數(shù)

# 注意最后運(yùn)行的 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

# 創(chuàng)建卸載腳本，很easy 給點(diǎn)提示，讓后把相關(guān)得目錄刪掉即可

# 注意$wadir/init/delboot.pl 并注意與adboot.pl 對(duì)照

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

#改變配置模塊文件屬主及訪問(wèn)權(quán)限

#為什么對(duì)sendmail單獨(dú)處理？我還不太清楚

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

echo "..done"

echo ""

#改變安裝目錄（安裝完后即執(zhí)行目錄）的屬主

#處理$var_dir 的屬主及執(zhí)行權(quán)限比較周到

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

# 試圖啟動(dòng)webmin 的 mini server

# 若失敗則退出

echo "..done"

echo ""

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

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

echo "browser to go to"

echo ""

#啟動(dòng)成功給出響應(yīng)的提示信息

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 有效，則給出啟動(dòng)客戶端的方式：https://

:prot

fi

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

不過(guò)我認(rèn)為

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

# 歡迎轉(zhuǎn)載更希望與你交流(51run@21cn.com) 呵呵

posted on 2007-04-29 20:41 楊粼波閱讀(760) 評(píng)論(0) 編輯收藏引用

只有注冊(cè)用戶登錄后才能發(fā)表評(píng)論。




網(wǎng)站導(dǎo)航: 博客園 IT新聞 BlogJava 博問(wèn) Chat2DB 管理

青青草原综合久久大伊人导航_色综合久久天天综合_日日噜噜夜夜狠狠久久丁香五月_热久久这里只有精品

牽著老婆滿街逛

導(dǎo)航

統(tǒng)計(jì)

公告

常用鏈接

留言簿(11)

隨筆分類(466)

隨筆檔案(1513)

文章分類(46)

文章檔案(45)

相冊(cè)

收藏夾(39)

工具官網(wǎng)

技術(shù)網(wǎng)站

開源網(wǎng)站

其他窩點(diǎn)

收藏網(wǎng)站

銀行官網(wǎng)

友情鏈接

資源共享

搜索

積分與排名

最新評(píng)論

閱讀排行榜

webmin 之 setup.sh 腳本分析