#!/usr/bin/perl

#############################################################
#  LeoBoard ver.5000 / LB5000 / 雷傲超級論壇 ver.5000
#
#  版權所有: 雷傲工作室(原藍寶石軟件工作室)
#
#  製作人  : 山鷹糊 (Shining Hu)
#            花無缺 (Ifairy Han)
#           
#  首頁網址: http://www.CGIer.com/      CGI 編程者之家
#	     http://www.LeoBoard.com/   雷傲論壇支援首頁
#	     http://www.leoBBS.com/     本論壇直通車
#            http://mail@17do.com/      大家一起郵
#            
#  *************************
#  LB論壇推薦虛擬主機服務商：
#  雷傲科技:  http://www.leoboard.com.cn
#  全面支援LB所有\功\能,擁有2年提供LB論壇空間的以及500多個LB會員的經驗，可以做的更好
#  **************************
#
#############################################################
BEGIN {
    $LBPATH = '.';
    my $pgm = $0;
    $pgm =~s/\\/\//g;
    $pgm =~s/^.*\/([^\/]+)$/$1/g;
    unless (-e $LBPATH.'/'.$pgm) {
        foreach ($0, $ENV{'SCRIPT_FILENAME'}, $ENV{'PATH_TRANSLATED'}) {
            s!\\!/!g; s/^(.*)\/[^\/]+$/$1/g;
            if (-e $_ . '/' .$pgm) { $LBPATH = $_; last; }
        }
    }
    unshift (@INC, "$LBPATH");
}
use LBCGI;
use Archive::Tar;
use Cwd;
require "lb.lib.pl";

$query = new LBCGI;
@params = $query->param;
	foreach $param(@params) {
		$theparam = $query->param($param);
        $theparam =~ s/\@/\\\@/g;
        $theparam =~ s/\'//g;
        $theparam =~ s/\"//g;
		      ${$param} = $theparam;
        if ($param ne "action") {
            $printme .= "\$" . "$param = \'$theparam\'\;\n";
            }
	}
$stylesheet =<<__end_of_sheet__;
<style>
<!--
		A:visited {	TEXT-DECORATION: none	}
		A:active  {	TEXT-DECORATION: none	}
		A:hover   {	TEXT-DECORATION: underline overline	}
		A:link 	  {	text-decoration: none;}
		
	        A:visited {	text-decoration: none;}
	        A:active  {	TEXT-DECORATION: none;}
	        A:hover   {	TEXT-DECORATION: underline overline}
	        
		.t     {	LINE-HEIGHT: 1.4			}
		BODY   {	FONT-FAMILY: 新細明體; FONT-SIZE: 9pt	}
		TD	   {	FONT-FAMILY: 新細明體; FONT-SIZE: 9pt	}
		SELECT {	FONT-FAMILY: 新細明體; FONT-SIZE: 9pt;	}
		INPUT  {	FONT-FAMILY: 新細明體; FONT-SIZE: 9pt; height:22px;	}
		TEXTAREA{	FONT-FAMILY: 新細明體; FONT-SIZE: 9pt;	}
		DIV    {	FONT-FAMILY: 新細明體; FONT-SIZE: 9pt	}
		FORM   {	FONT-FAMILY: 新細明體; FONT-SIZE: 9pt	}
		OPTION {	FONT-FAMILY: 新細明體; FONT-SIZE: 9pt	}
		P	   {	FONT-FAMILY: 新細明體; FONT-SIZE: 9pt	}
		TD	   {	FONT-FAMILY: 新細明體; FONT-SIZE: 9pt	}
		BR	   {	FONT-FAMILY: 新細明體; FONT-SIZE: 9pt	}

-->
</style>
__end_of_sheet__

$thisprog = "install.cgi"; $|=1; 
$XHTML = 0;
if ($action ne "final_step" || !$action) { print header(-charset=>"big5"); print "<head><title>LB5000 XP 安裝精靈 -- CGI 編程者之家</title></head>$stylesheet<body>"; }

if ($action eq "step_two") {
	
	if (-e "${lbdir}cgi-bin.tar"){
	my $cwd = cwd();
        my $tar =  Archive::Tar->new();
        unless ($tar->read("${lbdir}cgi-bin.tar", 0)) {
	        print qq~<td class='w' align='left' width='60%'>cgi-bin.tar不能讀取，請檢查是否使用二進制模式上傳(一定要這個模式上傳這個壓縮包)</td></tr>~;
            exit;
        }
        chdir $lbdir;
        unless (-w $lbdir){
        chmod (0777,$lbdir) if ($lbdir !~ m/\/cgi-bin\/$/i);	
        opendir (FILE, "."); 
	@filename = readdir(FILE);
	closedir (FILE); 
	foreach (@filename) {
	    next if (($_ eq ".")||($_ eq ".."));
	    chmod(0755,"./$_");
        }
       }	
        my @files = $tar->list_files();
        $tar->extract(@files, $lbdir);
        chdir $cwd;
        }
        if (-e "${lbdir}non-cgi.tar"){
	my $cwd = cwd();
        my $tar =  Archive::Tar->new();
        unless ($tar->read("${lbdir}non-cgi.tar", 0)) {
	        print qq~<td class='w' align='left' width='60%'>non-cgi.tar不能讀取，請檢查是否使用二進制模式上傳(一定要這個模式上傳這個壓縮包)</td></tr>~;
            exit;
        }
        mkdir($imagesdir,0777);
        chdir $imagesdir;
        unless (-w $imagesdir){
        chmod (0777,$imagesdir);
        opendir (FILE, "."); 
	@filename = readdir(FILE);
	closedir (FILE); 
	foreach (@filename) {
	chmod(0777,"./$_");
        }
	}
        my @files = $tar->list_files();
        $tar->extract(@files, $imagesdir);
        chdir $cwd;
        }
               
$endprint = "1\;\n";

$errorflag = 0;

        $filetomake = "$lbdir" . "data/boardinfo.cgi";

        open(FILE,">$filetomake");
        print FILE "$printme";
	print FILE "\$adfoot = '&lt;a href=http://www.leobbs.com/ target=_blank&gt;&lt;img src=\$imagesurl/images/banner.gif border=0&gt;&lt;/a&gt;';\n";
	print FILE "\$adscript = '&lt;a href=http://www.leobbs.com/ target=_blank&gt;&lt;img src=\$imagesurl/images/banner.gif border=0&gt;&lt;/a&gt;';\n";
	print FILE "\n";
        print FILE $endprint;
        close(FILE);
        
#        &chmodfiles;
        
        if (-e $filetomake && -w $filetomake) {
            $saved_variables = qq(<font face="新細明體">所有輸入的資訊已經成\功\的寫入 ${lbdir}data/boardinfo.cgi 檔案中。</font>);
            }
            else {
                $saved_variables = qq(<font face="新細明體" color="#FF0000">對不起，不能夠儲存資訊。<BR>
                                      請檢測您輸入的 ${lbdir}data 資料路徑是否正確？是不是最後遺漏了除號 '/'？<BR>
                                      如果正確，請檢查 'data' 目錄屬性是否設定正確。請返回修改後重新遞交表單一次。);
                                       $errorflag = "1";
                }
      
        $filetocheck = "$lbdir" . "leoboard.cgi";
        if (-e $filetocheck) {
            $found_cgi = qq(<font face="新細明體" color="#0000FF">正確</font>);
            }
            else {
                $errorflag = "1"; $found_cgi = qq(<font face="新細明體" color="#FF0000">錯$hk6137 - 找不到 $filetocheck，資料路徑是不是最後遺漏了除號 '/'？請返回重新輸入正確資訊。</font>);
                }

opendir (DIRS, "$lbdir");
my @files2 = readdir(DIRS);
closedir (DIRS);
my @memdir = grep(/^members/, @files2);
$memdir=@memdir;
if ($memdir eq 0) {
	@memdir = grep(/^MEMBERS/, @files2);
	rename("${lbdir}MEMBERS","${lbdir}members");
}
if ($memdir eq 0) {
	@memdir = grep(/^Members/, @files2);
	rename("${lbdir}Members","${lbdir}members");
}
$memdir = $memdir[0];

if ($memdir eq "members") {
	srand;
	$x = rand;
	$x = int($x * 10000000);
	$x =sprintf("%08d",$x);
	rename("${lbdir}members","${lbdir}members$x");
	$memdir="members$x"; 
}

opendir (DIRS, "$lbdir");
my @files2 = readdir(DIRS);
closedir (DIRS);
my @memdir = grep(/^members/i, @files2);
$memdir = $memdir[0];
my @msgdir = grep(/^messages/i, @files2);
$msgdir = $msgdir[0];

        $dirtocheck = "$lbdir" . "data";
        if (-d "$dirtocheck") {
            $datadir = "找到"; 
            $makefile = "$lbdir" . "data/test.txt";
            open (TEST, ">$makefile") or $datawritable = "目錄 data 為不可寫，請改變屬性為 777 。";
            print TEST "-";
            close (TEST);
            $datawritable = "屬性為<b>可寫</b>！" if (!$datawritable);
            unlink "$makefile";
            } else { $errorflag = "1"; $datadir = "<b>沒有找到</b>！"; }

        $dirtocheck = "$lbdir" . "help";
        if (-d "$dirtocheck") {
            $helpdir = "找到"; 
            $makefile = "$lbdir" . "help/test.txt";
            open (TEST, ">$makefile") or $helpwritable = "目錄 help 為不可寫，請改變屬性為 777 。";
            print TEST "-";
            close (TEST);
            $helpwritable = "屬性為<b>可寫</b>！" if (!$helpwritable);
            unlink "$makefile";
            } else { $helpdir = "<b>沒有找到</b>！"; }

        $dirtocheck = "$lbdir" . "$memdir";
        if (-d "$dirtocheck") {
            $membersdir = "找到"; 
            $makefile = "$lbdir" . "$memdir/test.txt";
            open (TEST, ">$makefile") or $memberswritable = "目錄 $memdir 為不可寫，請改變屬性為 777 。";
            print TEST "-";
            close (TEST);
            $memberswritable = "屬性為<b>可寫</b>！" if (!$memberswritable);
            unlink "$makefile";
            } else { $errorflag = "1"; $membersdir = "<b>沒有找到</b>！"; }

        $dirtocheck = "$lbdir" . "$msgdir";
        if (-d "$dirtocheck") {
            $messagesdir = "找到"; 
            $makefile = "$lbdir" . "$msgdir/test.txt";
            open (TEST, ">$makefile") or $messageswritable = "目錄 $msgdir 為不可寫，請改變屬性為 777 。";
            print TEST "-";
            close (TEST);
            $messageswritable = "屬性為<b>可寫</b>！" if (!$messageswritable);
            unlink "$makefile";
            } else { $errorflag = "1"; $messagesdir = "<b>沒有找到</b>！"; }


        $filetocheck = "$imagesdir" . "images/logo.gif";
        if (-e $filetocheck) {
            $found_image = qq(<font face="新細明體" color="#0000FF">正確</font>);
            }
            else {
                $errorflag = "1"; $found_image = qq(<font face="新細明體" color="#FF0000">錯$hk6137，請注意路徑最後不要遺漏除號 '/'，請點選後退填入正確的資訊(是不是您遺漏上傳了 images 下的 logo.gif 呢？程式是利用這個檔案是否存在來判斷您設定是否正確的)。</font>);
                }
          
        $dirtocheck = "$imagesdir" . "images";
        if (-d "$dirtocheck") { $images_dir = "找到！"; } else { $errorflag = "1"; $images_dir = "<b>沒有找到</b>！"; } 

        $dirtocheck = "$imagesdir" . "emoticons";
        if (-d "$dirtocheck") { $emoticonsdir = "找到！"; } else { $errorflag = "1"; $emoticonsdir = "<b>沒有找到</b>！"; }

        $dirtocheck = "$imagesdir" . "avatars";
        if (-d "$dirtocheck") { $avatarsdir = "找到！"; } else { $errorflag = "1"; $avatarsdir = "<b>沒有找到</b>！"; }

        $dirtocheck = "$imagesdir" . "usravatars";
        if (-d "$dirtocheck") { 
            $usravatarsdir = "找到！"; 
            $makefile = "$dirtocheck" . "/test.txt";
            open (TEST, ">$makefile") or $usravatarswritabler = "目錄 $dirtocheck 為不可寫，請改變屬性為 777 。";
            print TEST "-";
            close (TEST);
            $usravatarswritable = "屬性為<b>可寫</b>！" if (!$usravatarswritable);
            unlink "$makefile";
        } else { $errorflag = "1"; $usravatarsdir = "<b>沒有找到</b>！"; }

        $dirtocheck = "$imagesdir" . "usr";
        if (-d "$dirtocheck") { 
        	$usrdir = "找到！"; 
            $makefile = "$dirtocheck" . "/test.txt";
            open (TEST, ">$makefile") or $usrwritabler = "目錄 $dirtocheck 為不可寫，請改變屬性為 777 。";
            print TEST "-";
            close (TEST);
            $usrwritabler = "屬性為<b>可寫</b>！" if (!$usrwritabler);
            unlink "$makefile";
        	} else { $errorflag = "1"; $usrdir = "<b>沒有找到</b>！"; }

        $dirtocheck = "$imagesdir" . "btg";
        if (-d "$dirtocheck") { $btg = "找到！"; } else { $errorflag = "1"; $btg = "<b>沒有找到</b>！"; }

        $dirtocheck = "$imagesdir" . "emot";
        if (-d "$dirtocheck") { $emot = "找到！"; } else { $errorflag = "1"; $emot = "<b>沒有找到</b>！"; }

        @progs_to_search = ('admincenter.cgi', 'allnews.cgi', 'announcements.cgi', 'code.cgi', 'forumoptions.cgi', 'forums.cgi', 'help.cgi', 'install.cgi', 'index.html', 'lb.lib.pl', 'lbadmin.lib.pl', 'lbfriend.cgi', 'lbmail.lib.pl', 'leoboard.cgi', 'loginout.cgi', 'mailmembers.cgi', 'massmsg.cgi', 'memberlist.cgi', 'messanger.cgi', 'misc.cgi', 'newposts.cgi', 'news.cgi', 'noreg.cgi', 'pag.cgi', 'poll.cgi', 'post.cgi', 'postings.cgi', 'postjs.cgi', 'printpage.cgi', 'profile.cgi', 'register.cgi', 'remmail.cgi', 'search.cgi', 'SendMail.pm.pl', 'setforums.cgi', 'setipbans.cgi', 'setmemberbak.cgi', 'setmembers.cgi', 'setmembertitles.cgi', 'setskin.cgi', 'setstyles.cgi', 'settemplate.cgi', 'setvariables.cgi', 'shareforums.cgi', 'team.cgi', 'topic.cgi', 'visitforum.lib.pl', 'whosonline.cgi', 'data/styles.cgi');

        
		print qq(
		    <font size="5" face="新細明體" color="#000000">
		    <h1>LB5000 XP 安裝精靈</b></font></h1><font face="新細明體" color="#000000">
		    程式編寫：<a href="mailto:webmaster\@cgier.com">山鷹糊</a>  參與製$hk0155:<a href="mailto:info\@cgier.net">花無缺</a><BR>
		    版權所有：<a href="http://www.cgier.com/">CGI 編程者之家</a></font>
		    <hr noshade color="#000000">
		    <br>
		    <font face="新細明體" color="#000000">
		    <b>歡迎使用 LB5000 XP 安裝精靈！</b>
		    <br><br>
		    <b>第二步：</b> 謝謝您寫入資訊，下面是嘗試安裝的結果。<br>如果您得到了錯$hk6137訊息提示，請確定您已經完整上傳了本程式，以及目錄屬性、位置設定正確。</font><br>

		    <hr noshade color="#000000">
		    <font face="新細明體" color="#0000FF">
		    <br><b>您鍵入的安裝資訊是否正確儲存？</b></font>
		    <br>
		    $saved_variables
		    <br><br>
		    <hr noshade color="#000000">
		    <font face="新細明體" color="#0000FF">
		    <br><b>路徑預覽</b></font>
		    <br>
		    <font face="新細明體" color="#000000">
		    所有程式(*.cgi)的路徑： $lbdir - $found_cgi
		    <br><br>
		    -- 搜尋 ${lbdir}data    - $datadir - $datawritable<br>
		    -- 搜尋 ${lbdir}help    - $helpdir - $helpwritable<br>
		    -- 搜尋 ${lbdir}$msgdir  - $messagesdir - $messageswritable<br>
		    -- 搜尋 ${lbdir}$memdir  - $membersdir - $memberswritable<br>
		    <br>
		    <br>
		    <font face="新細明體" color="#000000">
		    所有非 CGI 檔案(images)的路徑： $imagesdir - $found_image
		    <br><br>
		    -- 搜尋 ${imagesdir}images   - $images_dir<br>
		    -- 搜尋 ${imagesdir}emoticons  - $emoticonsdir<br>
		    -- 搜尋 ${imagesdir}avatars   - $avatarsdir<br><br>
		    -- 搜尋 ${imagesdir}usravatars - $usravatarsdir - $usravatarswritable<br><br>
		    -- 搜尋 ${imagesdir}usr       - $usrdir - $usrwritabler<br><br>
		    -- 搜尋 ${imagesdir}btg     - $btg<br><br>
		    -- 搜尋 ${imagesdir}emot     - $emot<br><br>

		    <hr noshade color="#000000">
		    <font face="新細明體" color="#0000FF">
		    <br><b>URL 預覽</b></font>
		    <br>
		    <font face="新細明體" color="#000000">
		    您輸入的圖片 URL： $imagesurl
		    <br>
		    <br>
		    -- 搜尋 $imagesurl/images/announce.gif - <img src="$imagesurl/images/announce.gif" border=0><br>
		    -- 搜尋 $imagesurl/emoticons/smile.gif - <img src="$imagesurl/emoticons/smile.gif" border=0><br>
		    -- 搜尋 $imagesurl/avatars/noavatar.gif - <img src="$imagesurl/avatars/noavatar.gif" border=0><br><br>
		    如果您看到的是錯$hk6137的圖片，請檢查這個 $imagesurl 路徑是否正確，同時也請確定圖片檔案是否是以 Binary 方式上傳的。<BR><BR>
		    );
		    if ($errorflag eq "1") { print qq(<br><br><font color="#FF0000">LB5000 XP 安裝精靈發現錯$hk6137，不能夠$hk4949續。請返回重新填入正確的資訊); print "</body></html>"; exit; }

		    
		    print qq(
		    <hr noshade color="#000000">
		    <font face="新細明體" color="#0000FF">
		    <b>檔案合法性檢查</b></font>
		    <br>
		    <br>
		    <font face="新細明體" color="#000000">
		    LB5000 XP 安裝精靈將檢查您的所有 CGI 檔案是否已上傳，並且是以 ASCII 方式上傳的
		    <br><br>);

		    foreach (@progs_to_search) {

		        $filetotest = "$lbdir" . "$_";
		        if (-e $filetotest) {
		            open (TEST, "$filetotest");
		            @testfile = <TEST>;
			        close (TEST);
			        if (grep(/\r/, @testfile) && $^O ne "MSWin32") {
				        print "<b>找到 $_ ，但它好像是以 BINARY 方式上傳的。請重新以 ASCII 方式上傳！</b><br>";
		                }
		                else { print "找到 $_ - 上傳正確！<br>"; }
		            }
		            else { print "<b>找不到 $_ ! - 是否上傳了？</b><br>"; }

		            } # end foreach
	$server_port = ":$ENV{'SERVER_PORT'}" if ($ENV{'SERVER_PORT'} ne '80');
	$fullurl     = "http://$ENV{'SERVER_NAME'}$server_port$ENV{'SCRIPT_NAME'}";
	$myurl       = substr($fullurl,0,rindex($fullurl,"/"));
        $geturl="http://www.cgier.com/cgi-bin/lbver.cgi?ver=LB5000&url=$myurl";

	$out=&lbagent($geturl);

		    print qq(
		        <br>
		        <hr noshade color="#000000">
		        <font face="新細明體" color="#0000FF">
		        <br><b>報告結束</b></font>
		        <br>
		        <br>
		        <font face="新細明體" color="#000000">
		        LB5000 XP 安裝精靈已經完成報告。如果您發現錯$hk6137，請返回重新填寫資訊。
		        <br>同時，您也可以使用管理員身份在任何時間重新填寫資訊。
		        <br><br>
		        如果您不確定一些問題，或者出現一些未知的錯$hk6137，請到 <a href="http://www.cgier.com/"><b>CGI 編程者之家</b></a> 的論壇中提出！
		        <br><br><i>報告結束</i>
		        <br><br>
		        <hr noshade color="#000000">
		        <font face="新細明體" color="#0000FF">
		        <br><b>下一步做什麼？</b></font>
		        <br>
		        <br>
		        <font face="新細明體" color="#000000">
		        <b>如果您是從 LB5000 XP 的早期版本升級的，<a href="admincenter.cgi?action=remove">現在到管理中心界面</a></b>！
		        <br><br>從安全性上考慮，當您進入管理中心的同時，本安裝檔案將會被自動刪除。<br>
		        當本安裝檔案存在的時候，管理中心是不能執行的！如果自動刪除失敗，那麼請您自行利用 FTP 來刪除這個本程式！
		        <br><br>
		        <b>如果您是第一次安裝 LB5000 XP，那麼請<a href="$thisprog?action=step_three">點選這裡進入第三步</a></b>！</font>
		        <br><br><br><br><br>
		        );

                }


elsif ($action eq "step_three") {

    print qq(
    <font size="5" face="新細明體" color="#000000">
    <h1>LB5000 XP 安裝精靈</b></font></h1><font face="新細明體" color="#000000">
    程式編寫：<a href="mailto:webmaster\@cgier.com">山鷹糊</a> 參與製$hk0155:<a href="mailto:info\@cgier.net">花無缺</a><BR>
    版權所有：<a href="http://www.cgier.com/">CGI 編程者之家</a></font>
    <hr noshade color="#000000">
     <br>
    <font face="新細明體" color="#FF0000">
    <b>您是否以前到過這一步？</b>
    <br><br>
    <font face="新細明體" color="#000000">
    <b>如果您是從 LB5000 XP 的早期版本升級的，<a href="admincenter.cgi?action=remove">現在到管理中心界面</a></b>！
    <br><br>如果您執行這一步，您將<b>丟失</b>論壇的所有資料！！！
    <hr noshade color="#000000">
    <br>
    <b>第三步：</b><br>
    最後安裝部分。這一步將完成論壇的安裝，您將能夠進入管理中心界面設定論壇風格、顏色等。
    <br>
    <hr noshade color="#000000">
    <br>
    <font face="新細明體" color="#0000FF">
    <b>以管理員身份註冊您自己</b></font>
    <br><br>
    <font face="新細明體" color="#000000">
    您將以管理員身份註冊自己，這樣就可以正確瀏覽管理中心界面</font>
    <br><br>
    <form action="$thisprog" method="post">
    <input type="hidden" name="action" value="final_step">
    <font face="新細明體" color="#000000">
    輸入您的管理員名稱：(最大12字元)<br>
	<script>
    function Check(){
    var Name=document.all.membername.value;
    window.open("./checkname.cgi?name="+Name,"Check","width=200,height=20,status=0,scrollbars=0,resizable=1,menubar=0,toolbar=0,location=0");
    }
    </script>
    <input type="text" name="membername" maxlength=12>&nbsp;<input onClick="javascript:Check()" type=button value="偵測衝碼字元" name="button" class="button">
    <br><br>
    請輸入管理員密碼：<br>
    <input type="password" name="password_one" maxlength=20>
    <br><br>
    請重輸管理員密碼：<br>
    <input type="password" name="password_two" maxlength=20>
    <br><br>
    <input type="submit" value="送 出 這 些 資 料">
    </form>
    <hr noshade color="#000000">
    <br>
    <b>請仔細檢查所有資料，並請緊記您的名稱、密碼。</b>
    <br><br>);

    } # end step 3

elsif ($action eq "final_step") {

		$namecookie = cookie(-name    =>   "adminname",
		                     -value   =>   "$membername");

		$passcookie = cookie(-name    =>   "adminpass",
		                     -value   =>   "$password_one");

		print header(-cookie=>[$namecookie, $passcookie],-charset=>"big5"); print "<head><title>LB5000 XP 安裝精靈 -- CGI 編程者之家</title></head>$stylesheet<body>";

		print qq(
		<font size="5" face="新細明體" color="#000000">
   		<h1>LB5000 XP 安裝精靈</b></font></h1><font face="新細明體" color="#000000">
		程式編寫：<a href="mailto:webmaster\@cgier.com">山鷹糊</a> 參與製$hk0155:<a href="mailto:info\@cgier.net">花無缺</a><BR>
		版權所有：<a href="http://www.cgier.com/">CGI 編程者之家</a></font>
		<hr noshade color="#000000">
		<br>
		<font face="新細明體" color="#000000">
		<b>歡迎使用 LB5000 XP 安裝精靈！</b>
		<br><br>
		<b>最後一步：</b><br>
		LB5000 XP 安裝精靈現在建立您的管理員賬號。
		<br>
		<hr noshade color="#000000">
		<br>
		);

		require "${lbdir}data/boardinfo.cgi";

		$currenttime = time;
		$blanks = "yes" if (!$membername);
		$blanks = "yes" if (!$password_one);
		$blanks = "yes" if (!$password_two);

		if ($blanks) { print qq(<br><br><font color="#FF0000">請填寫完所有選項，使用後退返回上一步。); print "</body></html>"; exit; }
		if ($password_one ne $password_two)  { print qq(<br><br><font color="#FF0000">輸入的兩次密碼不同，請返回上一步重新輸入。); print "</body></html>"; exit; }
		if(length($membername)<2)  { print qq(<br><br><font color="#ff0000">管理員會員名稱太短了！); print "</body></html>"; exit; }
		if($membername =~ /^訪客/) { print qq(<br><br><font color="#ff0000">管理員會員名稱不能為訪客字樣！);print "</body></html>";exit; }
		if($membername =~ /_/) { print qq(<br><br><font color="#ff0000">請不要在管理員帳號名中使用底線！); print "</body></html>";exit;}
		if($membername =~ /\t/) { print qq(<br><br><font color="#ff0000">請不要在管理員帳號名中使用特殊字元！);print "</body></html>";exit; }
		if($membername =~ m/[\a\f\n\e\0\r\t\`\~\!\@\#\$\%\^\&\*\(\)\=\+\\\[\]\{\}\;\'\:\"\,\.\/\<\>\?]/) { print qq(<br><br><font color="#ff0000">管理員名稱中有衝碼字喔，換$hk0001個！);print "</body></html>";exit; }
		if(($password_one =~ /\t/)||($password_two =~ /\t/)) { print qq(<br><br><font color="#ff0000">請不要在密碼中使用特殊字元！); print "</body></html>";exit;}
		if(length($password_one)<6) { print qq(<br><br><font color="#ff0000">管理員密碼太短了，請更換！密碼必須 6 位以上！); print "</body></html>";exit;}
		if ($password_one =~ /^[0-9]+$/) { print qq(<br><br><font color="#ff0000">管理員密碼請不要全部為數字，請更換！); print "</body></html>";exit;}
		if ($password_one =~ /[^a-zA-Z0-9]/) { print qq(<br><br><font color="#ff0000">管理員密碼只允\許\大小寫字母和數字的組合，請更換！); print "</body></html>";exit;}

opendir (DIRS, "$lbdir");
my @files2 = readdir(DIRS);
closedir (DIRS);
my @memdir = grep(/^members/i, @files2);
$memdir = $memdir[0];

		$memberfilename = $membername;
		$memberfilename =~ y/ /_/;
        	$memberfilename =~ tr/A-Z/a-z/;
		$membersdir = "$lbdir" . "$memdir";

		$filetomake = "$lbdir" . "$memdir/$memberfilename.cgi";

		open (ADMIN, ">$filetomake");
		print ADMIN "$membername\t$password_one\tmember\tad\t0\t$adminemail_in\tno\t保密\t\t\t\t\t\t$currenttime\t\t";
		close (ADMIN);

	    if (-e $filetomake) {
		$filerequire = "$lbdir"."data/boardinfo.cgi";
		if (-e $filerequire) {
		}else {
			 print qq(
			<font face="新細明體" color="#FF0000">
			<b>錯$hk6137！不能夠找到 $filerequire 檔案！</b>
			<br><br>
			請檢查 data 目錄屬性是否正確： $lbdir/data );
			 print "</body></html>"; exit;
		}

		print qq(
		<font face="新細明體" color="#000000">
		<b>恭喜，您的 LB5000 XP 已經成\功\安裝好了！</b>
		<br><br>
		現在，您可以<a href="admincenter.cgi?action=remove">進入管理中心</a>設定您的論壇。<br>從安全角度考慮，本自動安裝程式將會被自動刪除，以免您的論壇受到不安全的威脅！<br>
		同時我們已經安裝了兩個論壇附加\功\能:<br>
		1. LB5000 XP 論壇新新文章，顯示整個論壇的最新文章 ver 1.2<br>
		############################################################################<br>
		# 使用辦法： allnews.cgi&maxlength=標題長度<br>
		# 例： 在您首頁的適當位置加入以下語句<br>
		#      &lt;script src="$boardurl/allnews.cgi&maxlength=20&display=1"&gt;&lt;/script&gt;<br>
		#      這樣就可以在相應位置顯示整個論壇的最新文章，標題長度 20，顯示發表文章時間<br>
		#                                            (display=0 表示不顯示發表文章時間)<br>
		# <br>
		#    對於顯示文章個數，請在 LB5000 XP 中的管理區設定<br>
		#    所有參數均可以省略<br>
		############################################################################<br>
		2. LB5000 XP 分論壇新新文章 ver 1.2<br>
		###################################################################################<br>
		# 使用辦法： news.cgi?forum=分論壇號&max=顯示幾則文章&maxlength=標題長度&display=1<br>
		# 例： 在您首頁的適當位置加入以下語句<br>
		#      &lt;script src="$boardurl/news.cgi?forum=1&max=10&maxlength=20"&gt;&lt;/script&gt;<br>
		#      這樣就可以在相應位置顯示1號論壇的最新10篇文章，標題長度為 20，顯示發表文章時間<br>
		#                                                   (display=0 表示不顯示發表文章時間)<br>
		#      所有參數均可以省略<br>
		###################################################################################<br>
		3. LB5000 XP 分論壇精華文章顯示 ver 1.2<br>
		###################################################################################<br>
		# 使用辦法： newsjh.cgi?forum=分論壇號<br>
		# 例： 在您首頁的適當位置加入以下語句<br>
		#      &lt;script src="newsjh.cgi?forum=1"&gt;&lt;/script&gt;<br>
		#      這樣就可以在相應位置顯示1號論壇的最新20篇文章<br>
		###################################################################################<br>
		4. LB5000 XP 公告顯示 ver 1.2<br>
		###################################################################################<br>
		# 使用辦法： getanc.cgi<br>
		# 例： 在您首頁的適當位置加入以下語句<br>
		#      &lt;script src="getanc.cgi"&gt;&lt;/script&gt;<br>
		#      這樣就可以在相應位置顯示論壇的最新公告<br>
		###################################################################################<br>
		<br><br>
		還有8個附加\功\能存放在 addon 目錄中，是<br>
		1. bm2lb5000.cgi "UBB=>LB5000 XP 會員資料轉換器"<br>
		2. ubb2lb5000.cgi "bm=>LB5000 XP 會員資料轉換 v0.2" <br>
		3. yuzi2lb5000.cgi "yuzi BBS2000(3000)=>LB5000 XP 會員資料轉換器"<br>
		4. ys2lb5000.cgi "一山草堂 BBS=>LB5000 XP 會員資料轉換器"<br>
		5. yaBB2LB5000.cgi "YaBB=>LB5000 XP 會員資料轉換器"<br>
		6. bbs2lbt.cgi "yuzi BBS3000=>LB5000 XP 文章資料轉換器"<br>
		7. ys2lbt.cgi "一山草堂 BBS=>LB5000 XP 文章資料轉換器"<br>
		8. u2lbt.cgi  "UBB=>LB5000 XP 文章資料轉換器"<br>
		);
	    }
	    else {
        	print qq(
		<font face="新細明體" color="#FF0000">
		<b>錯$hk6137！不能夠建立 admin 檔案！</b>
		<br><br>
		請檢查 $memdir 目錄是否正確： $membersdir );
		 print "</body></html>"; exit;
	    }

      $filetomake = "$lbdir" . "data/boardstats.cgi";
        
        
        
       open(FILE, ">$filetomake");
       print FILE "\$lastregisteredmember = \'$membername\'\;\n";
       print FILE "\$totalmembers = \'1\'\;\n";
       print FILE "\$totalthreads = \'0\'\;\n";
       print FILE "\$totalposts = \'0\'\;\n";
       print FILE "\n1\;";
       close (FILE);

		print qq(
		<br><br>
		<hr noshade color="#000000">
		<font face="新細明體" color="#0000FF">
		感謝您使用 LB5000 XP！</font>
		<br><br>
		<font face="新細明體" color="#000000">
		我們希望安裝精靈對您安裝本論壇是有說明的。<br>
		如果您還有其他問題，請參觀 <a href="http://www.cgier.com/"><b>CGI 編程者之家</b></a> 的論壇，本站提供 LB5000 XP 的完全技術支援！
		<br><br>
		);

		} # end final step   
    

            else {
    if ($ENV{'SERVER_SOFTWARE'} =~ /apache/i) {
        if ($ENV{'SCRIPT_FILENAME'}=~ /cgiwrap/i) {
            $temp=$ENV{'PATH_TRANSLATED'};
        }
        else {
            $temp=$ENV{'SCRIPT_FILENAME'};
        }
        $temp=~ s/\\/\//g if ($temp=~/\\/);
        $mypath=substr($temp,0,rindex($temp,"/"));
    }
    else {
        $mypath=substr($ENV{'PATH_TRANSLATED'},0,rindex($ENV{'PATH_TRANSLATED'},"\\"));
        $mypath=~ s/\\/\//g;
    }
    $server_port = ":$ENV{'SERVER_PORT'}" if ($ENV{'SERVER_PORT'} ne '80');
    if ($ENV{'HTTP_HOST'} ne "") { $fullurl = $ENV{'HTTP_HOST'}; } else { $fullurl = $ENV{'SERVER_NAME'}; }
    $fullurl     = "http://$fullurl$server_port$ENV{'SCRIPT_NAME'}";
    $myurl       = substr($fullurl,0,rindex($fullurl,"/"));

    $website_url = "http://$ENV{'HTTP_HOST'}";
    
    $html_dir = "";
    $html_url = "";

			if ($mypath =~ m|(.*)/(.+)|) {
			   $base = $1;
			} else {
			   $base = $mypath;
			}

			if ($myurl =~ m|(.*)/(.+)|) {
			   $base1 = $1;
			} else {
			   $base1 = $myurl;
			}
			$base1 =~ s/\/cgi-bin//;
			if ((-e "$base/non-cgi/index.html")&&($html_dir eq "")) { $html_dir = "$base/non-cgi"; $html_url = "$base1/non-cgi"; }
			if ((-e "$base/lb5000/index.html")&&($html_dir eq "")) { $html_dir = "$base/lb5000"; $html_url = "$base1/lb5000"; }
			if ((-e "$base/ib2000/index.html")&&($html_dir eq "")) { $html_dir = "$base/ib2000"; $html_url = "$base1/ib2000"; }
			if ((-e "$base/lb/index.html")&&($html_dir eq "")) { $html_dir = "$base/lb"; $html_url = "$base1/lb"; }
			if ((-e "$base/bbs/index.html")&&($html_dir eq "")) { $html_dir = "$base/bbs"; $html_url = "$base1/bbs"; }
			
		if ($html_dir eq "") {
			if ($base =~ m|(.*)/(.+)|) {
			   $base = $1;
			}
			if ($base1 =~ m|(.*)/(.+)|) {
			   $base1 = $1;
			} else {
			   $base1 = $base1;
			}
			$base1 =~ s/\/cgi-bin//;
			
			if ((-e "$base/non-cgi/index.html")&&($html_dir eq "")) { $html_dir = "$base/non-cgi"; $html_url = "$base1/non-cgi"; }
			if ((-e "$base/lb5000/index.html")&&($html_dir eq "")) { $html_dir = "$base/lb5000"; $html_url = "$base1/lb5000"; }
			if ((-e "$base/ib2000/index.html")&&($html_dir eq "")) { $html_dir = "$base/ib2000"; $html_url = "$base1/ib2000"; }
			if ((-e "$base/lb/index.html")&&($html_dir eq "")) { $html_dir = "$base/lb"; $html_url = "$base1/lb"; }
			if ((-e "$base/bbs/index.html")&&($html_dir eq "")) { $html_dir = "$base/bbs"; $html_url = "$base1/bbs"; }
		}

		if ($html_dir eq "") {
    		    if ($ENV{'DOCUMENT_ROOT'} ne "") {
		        $base = $ENV{'DOCUMENT_ROOT'};
			if ((-e "$base/non-cgi/index.html")&&($html_dir eq "")) { $html_dir = "$base/non-cgi"; $html_url = "$website_url/non-cgi"; }
			if ((-e "$base/lb5000/index.html")&&($html_dir eq "")) { $html_dir = "$base/lb5000"; $html_url = "$website_url/lb5000"; }
			if ((-e "$base/ib2000/index.html")&&($html_dir eq "")) { $html_dir = "$base/ib2000"; $html_url = "$website_url/ib2000"; }
			if ((-e "$base/lb/index.html")&&($html_dir eq "")) { $html_dir = "$base/lb"; $html_url = "$website_url/lb"; }
			if ((-e "$base/bbs/index.html")&&($html_dir eq "")) { $html_dir = "$base/bbs"; $html_url = "$website_url/bbs"; }
		    }
		}

			if (-e "C:/" || $^O eq "MSWin32") { $OS_USED = 'NT'; }
			$adminemail_in = "incoming\@yourdomain.com";
			$adminemail_out = "outgoing\@yourdomain.com";
			$timezone_choice = "<select name=\"timezone\"><option value=\"-23\">- 23<option value=\"-22\">- 22<option value=\"-21\">- 21<option value=\"-20\">- 20<option value=\"-19\">- 19<option value=\"-18\">- 18<option value=\"-17\">- 17<option value=\"-16\">- 16<option value=\"-15\">- 15<option value=\"-14\">- 14<option value=\"-13\">- 13<option value=\"-12\">- 12<option value=\"-11\">- 11<option value=\"-10\">- 10<option value=\"-9\">- 9<option value=\"-8\">- 8<option value=\"-7\">- 7<option value=\"-6\">- 6<option value=\"-5\">- 5<option value=\"-4\">- 4<option value=\"-3\">- 3<option value=\"-2\">- 2<option value=\"-1\">- 1<option value=\"0\" selected>0<option value=\"1\">+ 1<option value=\"2\">+ 2<option value=\"3\">+ 3<option value=\"4\">+ 4<option value=\"5\">+ 5<option value=\"6\">+ 6<option value=\"7\">+ 7<option value=\"8\">+ 8<option value=\"9\">+ 9<option value=\"10\">+ 10<option value=\"11\">+ 11<option value=\"12\">+ 12<option value=\"13\">+ 13<option value=\"14\">+ 14<option value=\"15\">+ 15<option value=\"16\">+ 16<option value=\"17\">+ 17<option value=\"18\">+ 18<option value=\"19\">+ 19<option value=\"20\">+ 20<option value=\"21\">+ 21<option value=\"22\">+ 22<option value=\"23\">+ 23</select>";
			$time_is_now = localtime;
			$website_url = "http://$ENV{'HTTP_HOST'}";
			$mailprogram = &mailprogram;  #自動測試 Sendmail 路徑
                    print qq~
				    <form action="$thisprog" method="post">
				    <input type="hidden" name="action" value="step_two">
				    <font size="5" face="新細明體" color="#000000">
				    <h1>LB5000 XP 安裝精靈</b></font></h1><font face="新細明體" color="#000000">
				    程式編寫：<a href="mailto:webmaster\@cgier.com">山鷹糊</a> 參與製$hk0155:<a href="mailto:info\@cgier.net">花無缺</a><BR>
		    		    版權所有：<a href="http://www.cgier.com/">CGI 編程者之家</a></font>
				    <hr noshade color="#000000">
				    <br>
				    <font face="新細明體" color="#000000">
				    <b>歡迎使用 LB5000 XP 安裝精靈！</b>
				    <br><br>
				    <b>第一步：</b> 在遞交表單前，請仔細查看整個下面的內容指示，並檢查自動提供的資料是否正確！<br>
				    當您遞交表單後，本安裝精靈會檢測所有您輸入的資料，如果資料輸入錯$hk6137，將會有詳細的提示！<br><br>
				    <b>在執行本程式下一步之前，請確定您已經把本程式完整上傳，並已經將所有檔案的屬性設定正確了！</b><br><br>
				    下面的所有設定資料都可以在 LB5000 XP 的管理中心中重新設定。為了安全起見，本程式在成\功\完成設定任務後，將會自毀。
				    如果您希望重新利用本程式來設定的話，請重新上傳執行本程式。</font><br>

				    <hr noshade color="#000000">

				    <br>
				    <font face="新細明體" color="#000000">
				    <b>請選擇執行本程式的$hk0155$hk2814系統平台用於檔案加鎖</b><br>
				    如果您是 Windows 系列的主機，請千萬不要選成 Unix，否則會有意想不到的錯$hk6137發生！<BR>
				    檔案加鎖可以有效的防止文章資料丟失等問題，但會影響速度，請自己衡量！<br>
				    <br>
				    <select name="OS_USED">
				    <option value="NT" selected>Windows 系列
				    <option value="Unix">Unix 系列
				    <option value="No">不加鎖
				    </select>

				    <br>
				    <br>
				    <hr noshade color="#000000">
				    <br>
				    <font face="新細明體" color="#000000">
				    <b>檔案路徑設定</b><br><br>
				    下面的預設設定僅僅適用於大部分安裝本程式的客戶，不是所有的客戶都適用。如果有錯$hk6137，請自行修改成正確的值。<font color="#FF0000"><br>
				    請仔細檢查所有的設定，如果您對這些設定有任何的疑問，請詢問您的主機提供商！</font><br><br>
				    <font color="#FF0000">如果您使用的是 Windows 系列$hk0155$hk2814系統，請使用除號來代替反斜槓（比如：c:/path/to/lb5000/）！
				    <br><br><font color="#000000"><b>設定時請務必在路徑的最後加上除號 '/'。</b>
				    <br><br>
				    <font face="新細明體" color="#0000FF">
				    <b>設定 *.cgi 腳本的安裝路徑。</b></font><br>
				    <font face="新細明體" color="#000000">
				    在這裡設定的是安裝「路徑」，不是 URL，所以它肯定<B>不是</B> 'http://' 開頭的。<br>
				    這個位置包含了所有 LB5000 XP 中的 *.cgi 檔案。
				    要注意，下列目錄程式會自動建立。
				    <ul>
				    <li>data
				    <li>members
				    <li>messages
				    <li>help
				    </ul>
				    <input type="text" size="70" name="lbdir" value="$mypath/">
				    
				    <br><br><br>
				    <font face="新細明體" color="#0000FF">
				    <b>設定 image 圖像檔案的安裝路徑。</b></font><br><br>
				    <font face="新細明體" color="#000000">
				    在這裡設定的是安裝「路徑」，不是 URL，所以它肯定<B>不是</B> 'http://' 開頭的。<br>
				    這個位置包含了所有 LB5000 XP 中的圖像檔案。
				    要注意，下列目錄程式會自動建立。
				    <ul>
				    <li>images
				    <li>avatars
				    <li>usravatars
				    </ul>
				    <b>請注意，<B>不要</B>在路徑的最後加 'images/' ！</b><BR><BR>
				    
				    <input type="text" size="70" name="imagesdir" value="$html_dir/">
				    <br><BR>

				    <hr noshade color="#000000">
				    <br>
				    <font face="新細明體" color="#000000">
				    <b>設定您網站的 URL 路徑</b><br><br>
				    下面的預設設定僅僅適用於大部分安裝本程式的客戶，不是所有的客戶都適用。如果有錯$hk6137，請自行修改成正確的值。<font color="#FF0000"><br>
				    請仔細檢查所有的設定，如果您對這些設定有任何的疑問，請詢問您的主機提供商！</font><br><br>
				    <b>請不要在每個 URL 位址結尾加反斜槓 '/' ！</b>
				    <br><br>

				    <font face="新細明體" color="#0000FF">
				    <b>設定圖片檔案 URL 路徑。</b></font><br>
				    <font face="新細明體" color="#000000">
				    這裡是 URL 路徑。<b>必須</b>以 'http://' 開始。<br>
				    這個路徑包含了所有的 LB5000 XP 圖片。
				    <br><br>
				    <input type="text" size="70" name="imagesurl" value="$html_url">
				    <br><br><br>
				    
				    <font face="新細明體" color="#0000FF">
				    <b>設定您首頁的 URL 位址。</b></font><br>
				    <font face="新細明體" color="#000000">
				    這裡是 URL 路徑。<b>必須</b>以 'http://' 開始。<br>
				    簡單的說，就是您在瀏覽器上輸入的瀏覽您首頁的位址。
				    <br><br>
				    <input type="text" size="70" name="homeurl" value="$website_url">

				    <br><br><br>
				    <font face="新細明體" color="#0000FF">
				    <b>LB5000 XP 的 URL 路徑。</b></font><br>
				    <font face="新細明體" color="#000000">
				    這裡是 URL 路徑。<b>必須</b>以 'http://' 開始。<br>
				    <b>請不要在結尾加 CGI 檔案名。這裡是目錄位址，不是檔案位址。</b>
				    <br><br>
				    <input type="text" size="70" name="boardurl" value="$myurl"><br><br>

				    <hr noshade color="#000000">
				    <br>
				    <font face="新細明體" color="#000000">
				    <b>個性化圖片和表情自動轉換</b><br><br>
				    <font face="新細明體" color="#000000">
				    使用個性化圖片，每個會員將擁有有自己特色的頭像。<br>
				    字元自動轉換，會自動將輸入的表情符號自動轉換成圖片形式（如輸入 :) 將自動轉換成圖片形式）。
				    <br>
				    <br>
				    <font face="新細明體" color="#0000FF">
				    <b>您是否使用個性化圖片？</b></font><br>
				    <font face="新細明體" color="#000000">
				    <br>
				    <select name="avatars">
				    <option value="on" selected>使用
				    <option value="off">不使用
				    </select>

				    <br>
				    <br><br>
				    <font face="新細明體" color="#0000FF">
				    <b>您是否使用表情自動轉換？</b></font><br>
				    <font face="新細明體" color="#000000">
				    <br>
				    <select name="emoticons">
				    <option value="on" selected>使用
				    <option value="off">不使用
				    </select><br><br>

				    <hr noshade color="#000000">
				    <br>
				    <font face="新細明體" color="#000000">
				    <b>郵件\功\能</b><br><br>
				    下面的預設設定僅僅適用於大部分安裝本程式的客戶，不是所有的客戶都適用。如果有錯$hk6137，請自行修改成正確的值。<br><font color="#FF0000">
				    請仔細檢查所有的設定，如果您對這些設定有任何的疑問，請詢問您的主機提供商！</font>
				    <br>
				    <br>
				    <font face="新細明體" color="#0000FF">
				    <b>您是否希望在論壇上使用郵件\功\能？</b></font><br>
				    <font face="新細明體" color="#000000">
				    <br>
				    <select name="emailfunctions">
				    <option value="off">關閉郵件\功\能
				    <option value="on" selected>使用郵件\功\能
				    </select>
				    <br><br><br>
				    <font face="新細明體" color="#0000FF">
				    <b>您使用何種郵件發送協議？</b></font><br>
				    <font face="新細明體" color="#000000">
				    Unix 類主機請選擇 Sendmail，Windows 類主機請選擇 SMTP 或者 ESMTP，如果您的主機採用了是 Blat 郵件發送程式，那麼請選擇 Blat。
				    <br><BR>
				    <select name="emailtype">
				    <option value="smtp_mail" selected>SMTP
				    <option value="esmtp_mail">ESMTP
				    <option value="send_mail">Sendmail
				    <option value="blat_mail">Blat
				    </select>
				    <br><br><br>
				    <font face="新細明體" color="#0000FF">
				    <b>Sendmail 路徑(只有當您選擇了 Sendmail 來發信此項$hk2088有效)。</b></font><br><br>
				    <input type=text size="60" name="SEND_MAIL" value="$mailprogram">
				    <br><br>
				    <br>
				    <font face="新細明體" color="#0000FF">
				    <b>SMTP 伺服器(只有當您選擇了 SMTP 或 ESMTP 來發信，此項$hk2088有效)。</b></font><br><br>
				    <input type=text size="60" name="SMTP_SERVER" value="localhost">
				    <br><br>
				    <br>
				    <font face="新細明體" color="#0000FF">
				    <b>SMTP 的端口(只有當您選擇了 SMTP 或 ESMTP 來發信此項$hk2088有效)。</b></font><br><br>
				    <input type=text size="60" name="SMTP_PORT" value="$SMTP_PORT">
				    <br><br>
				    <br>
				    <font face="新細明體" color="#0000FF">
				    <b>ESMTP 的用戶名(只有當您選擇了 ESMTP 來發信此項$hk2088有效)。</b></font><br><br>
				    <input type=text size="60" name="SMTPUSER" value="$SMTPUSER">
				    <br><br>
				    <br>
				    <font face="新細明體" color="#0000FF">
				    <b>ESMTP 的密碼(只有當您選擇了 ESMTP 來發信此項$hk2088有效)。</b></font><br><br>
				    <input type=text size="60" name="SMTPPASS" value="$SMTPPASS">
				    <br><br>
				    <br>
				    <font face="新細明體" color="#0000FF">
				    <b>您的發送郵件地址。</b></font><br><br>
				    <input type=text size="60" name="adminemail_in" value="$adminemail_in">
				    <br><br>
				    <br>
				    <font face="新細明體" color="#0000FF">
				    <b>您的接收郵件地址。</b></font><br><br>
				    <input type=text size="60" name="adminemail_out" value="$adminemail_out">
				    <br><br>
				    <br>
				    <font face="新細明體" color="#0000FF">
				    <b>您是否希望使用郵件來發送會員在論壇中的密碼？</b></font><br>
				    <font face="新細明體" color="#000000">
				    如果您發送郵件是有問題的話，那麼請務必不要使用這個\功\能！！
				    <br><br>
				    <select name="passwordverification">
				    <option value="no" selected>不要
				    <option value="yes" >需要
				    </select><br><br><br>
				    
				    <font face="新細明體" color="#0000FF">
				    <b>有新會員註冊是否用郵件通知您？</b></font>
				    <br><br>
				    <select name="newusernotify">
				    <option value="no">不要
				    <option value="yes" selected>需要
				    </select><br><br>

				    <hr noshade color="#000000">
				    <br>
				    <font face="新細明體" color="#000000">
				    <b>您論壇的詳細資料</b><br><br>
				    這裡將詢問您的 LB5000 XP 論壇的一些詳細資料。</font>
				    <br>
				    
				    <br>
				    <font face="新細明體" color="#0000FF">
				    <b>論壇名稱</b></font><br>
				    <input type=text size="60" name="boardname" value="CGI 編程者之家的論壇">
				    <br>

				    <br>
				    <font face="新細明體" color="#0000FF">
				    <b>論壇描述</b></font><br>
				    <input type=text size="60" name="boarddescription" value="我的 LB5000 XP 論壇，好酷酷 :)">
				    <br><br>
				    <font face="新細明體" color="#0000FF">
				    <b>您的版權資訊</b><br>這裡不需要加 '&copy\;'，程式會自動產生。<br>
				    &copy\;</font><input type=text size="58" name="copyrightinfo" value="中文版權所有： <a href=http://www.cgier.com>CGI 編程者之家</a>">
				    <br><br>
				    <font face="新細明體" color="#0000FF">
				    <b>您的首頁名稱</b></font><br>
				    <input type=text size="60" name="homename" value="CGI 編程者之家">
				    <br><br><br>
				    <font face="新細明體" color="#0000FF">
				    <b>是否採用灌水預防機制？</b></font><br>
				    <font face="新細明體" color="#000000">
				    灌水預防機制將控制您的會員在一定的時間內不能重複發表文章。 避免了一些會員為了升級而進行的灌水。<BR>
				    但這個\功\能不會影響論壇的壇主和板主的連續發表文章。
				    <br>
				    <br>
				    <select name="floodcontrol">
				    <option value="off">關閉灌水預防機制
				    <option value="on" selected>開啟灌水預防機制
				    </select>
				    <br><br>
				    
				    <br>
				    <font face="新細明體" color="#0000FF">
				    <b>會員發言相隔時間(只有當灌水預防機制啟動後，此項$hk2088有效)。</b></font><br>
				    <input type=text size="10" name="floodcontrollimit" value="30"> &nbsp; 秒
				    <br><br>

				    <br>
				    <font face="新細明體" color="#0000FF">
				    <b>伺服器時差設定</b></font><br>
				    <font face="新細明體" color="#000000">
				    您的伺服器現在時間是 $time_is_now。如果不正確，請使用下面的表單來改變伺服器時差。 
				    <br>
				    <br>
				    $timezone_choice 小時
				    <br><br>
				    <br>
				    <font face="新細明體" color="#0000FF">
				    <b>您所在的時區</b></font><br><br>
				    <input type=text size="60" name="basetimes" value="香港時間">
				    <br><br>
				    <br>
				    <font face="新細明體" color="#0000FF">
				    <b>是否使用論壇公告？</b></font><br>
				    <font face="新細明體" color="#000000">
				    您可以在論壇公告中發表論壇的重要說明、資訊等。
				    <br>
				    <br>
				    <select name="announcements">
				    <option value="no">不用
				    <option value="yes" selected>使用
				    </select>
				    <br><br><BR>
				    <font face="新細明體" color="#0000FF">
				    <b>查看文章回覆的時候，最新的回覆是緊跟主題呢？還是放在最後！</b></font><br>
				    <br>
                		    <select name="sticky">
                		    <option value="off" selected>正常順序，新的放在最後
                		    <option value="on">緊跟主題，新的放在最上面
                		    </select>
				    <br><br><BR>
		
				    <font face="新細明體" color="#0000FF">
				    <b>發表文章、回覆文章後自動轉移到？</b></font><br>
				    <br>
				    <select name="refreshurl">
				    <option value="0" selected>自動返回目前論壇
				    <option value="1">自動返回目前文章
				    </select>
				    <br><br>
				    
				    <font face="新細明體" color="#0000FF">
				    <b>支援上傳的附件類型</b><br>用,分割</font><br>
				    <br>
				     <input type=text size=40 name="addtype" value="gif,jpg,bmp,zip,png,swf,doc,txt,htm,html">
				    <br><br>
                
				    <hr noshade color="#000000">
				    <br>
				    <font face="新細明體" color="#000000">
				    <b>請仔細檢查上面您輸入的資訊</b><br>
				    </font>
				    <br>
				    
				    <input type=submit value="OK，進入下一步">
				    </form>~;
				    }
    print "</body></html>";
    exit(0);

sub check { local ($dr) = @_; return 0 if $dr eq ""; if (-e "$dr/$prog") { $true_path = $dr; return 1; } }

sub mailprogram
{
    $mailprogram='/usr/sbin/sendmail';
    if (!(-e $mailprogram)) {$mailprogram='/usr/bin/sendmail';} 
    if (!(-e $mailprogram)) {$mailprogram='/bin/sendmail';} 
    if (!(-e $mailprogram)) {$mailprogram='/lib/sendmail';} 
    if (!(-e $mailprogram)) {$mailprogram='/usr/slib/sendmail';} 
    if (!(-e $mailprogram)) {$mailprogram='sendmail';} 
    if (!(-e $mailprogram)) {$mailprogram='/usr/lib/sendmail';};
    if (!(-e $mailprogram)) {$mailprogram='perlmail';}; 
    if (!(-e $mailprogram)) {$mailprogram="沒有找到 Sendmail 路徑，可能您的主機不支援";};
    return $mailprogram;
}

sub chmodfiles {
opendir (FILE, "."); 
@filename = readdir(FILE);
closedir (FILE); 
foreach (@filename) {
next if (($_ eq ".")||($_ eq "..")||$_ eq "install.cgi");
chmod(0755,"./$_") if ($_ !~/forum/isg);
}

chmod(0755,"./forums.cgi");
chmod(0755,"./shareforums.cgi");
chmod(0755,"./forumoptions.cgi");
chmod(0755,"./setforums.cgi");
chmod(0777,"data");
chmod(0777,"help");
chmod(0777,"$memdir");
chmod(0777,"memfav");
chmod(0777,"memfriend");
chmod(0777,"backup");
chmod(0777,"lock");
chmod(0777,"FileCount");
chmod(0777,"forumdata");
chmod(0777,"$msgdir");
chmod(0777,"search");
chmod(0777,"Archive");
chmod(0777,"MIME");

opendir (FILE, "./data"); 
@filename = readdir(FILE);
closedir (FILE); 
foreach (@filename) {
    chmod(0777,"data/$_");
}
opendir (FILE, "./data/skin"); 
@filename = readdir(FILE);
closedir (FILE); 
foreach (@filename) {
    chmod(0777,"data/skin/$_");
}
opendir (FILE, "./Archive"); 
@filename = readdir(FILE);
closedir (FILE); 
foreach (@filename) {
    chmod(0777,"Archive/$_");
}
opendir (FILE, "./URI"); 
@filename = readdir(FILE);
closedir (FILE); 
foreach (@filename) {
    chmod(0777,"URI/$_");
}
opendir (FILE, "./MIME"); 
@filename = readdir(FILE);
closedir (FILE); 
foreach (@filename) {
    chmod(0777,"MIME/$_");
}

opendir (FILE, "./$msgdir"); 
@filename = readdir(FILE);
closedir (FILE); 
foreach (@filename) {
    chmod(0777,"$msgdir/$_");
}
}


sub lbagent {
    my $out="";
    my $url=shift;
    $url =~ m@http://(.*?)/(.*)@;
    my ($host,$path) = ($1,$2);
    my $port = 80;
    if ($host =~ /(.*):(\d+)/) { $host = $1; $port = $2; }
    my $file;
    if ($path =~ m@.*/(.*)@) { $file = $1; } else { $file = $path; }
    my ($name,$aliases,$addrtype,$len,@addrs) = gethostbyname($host);
    my ($a,$b,$c,$d) = unpack("C4",$addrs[0]);
    my $that = pack('S n C4 x8',2,$port,$a,$b,$c,$d);
    select (sock);
    $|=1;
    select (STDOUT);
    socket(sock,2,1,0);
    my $result = connect(sock,$that);
    if ($result != 1) { $out="error!"; }
    else {
	print sock "GET /$path HTTP/1.1\r\n";
	print sock "Host: $host\r\n";
	print sock "Accept: */*\r\n";
	print sock "User-Agent: LeoBoard Agent 1.1\r\n";
	print sock "Pragma: no-cache\r\n";
	print sock "Cache-Control: no-cache\r\n";
	print sock "Connection: close\r\n";
	print sock "\r\n";
	my @out = <sock>;
	foreach (@out){
	    $out=$out.$_;
	}
	close(sock);
    }
    return $out;
}
