 |
[這篇文章最後由小雨在 2007/06/23 00:43am 第 1 次編輯]-r3'5
©雷傲繁體中文網 -- 雷傲專屬討論網，探討一切有關雷傲繁體版本的相關問題與技術支援！ ZBkV
#!/usr/bin/perl ##################################################### # 繁體中文語系由 auron 維護製作 # ##################################################### # LEO SuperCool BBS / LeoBBS X / 雷傲極酷超級論壇 # ##################################################### # 基於山鷹(糊)、花無缺製作的 LB5000 XP 2.30 免費版 # # 新版程式製作 & 版權所有: 雷傲科技 (C)(R)2004 # ##################################################### # 網站位址： http://www.LeoBBS.com/ # # 論壇位址： http://bbs.LeoBBS.com/ # ##################################################### BEGIN { $startingtime=(times)[0]+(times)[1]; foreach ($0,$ENV{'PATH_TRANSLATED'},$ENV{'SCRIPT_FILENAME'}){ my $LBPATH = $_; next if ($LBPATH eq ''); $LBPATH =~ s/\\/\//g; $LBPATH =~ s/\/[^\/]+$//o; unshift(@INC,$LBPATH); } } use LBCGI; $LBCGI::POST_MAX = 200000; $LBCGI::DISABLE_UPLOADS = 1; $LBCGI::HEADERS_ONCE = 1; $LeoBBS_E_CHT = "作"; $LeoBBS_J_CHT = "誤"; $LeoBBS_L_CHT = "繼"; $versionnumber = "LeoBBS X Build060331"; $|++; $query = new LBCGI; $action = $query->param('action'); $mypath = mypath(); # 返回目前的絕對路徑 (正確) 最後沒有 / $myurl = myurl(); # 返回目前的 URL 路徑 (正確) 最後沒有 / ($html_dir, $html_url) = split(/\|/,myimgdir()); # 返回目前圖像目錄的絕對路徑和 url 路徑 (不一定正確) 最後沒有 / if (-e "$mypath/data/install.lock") { &output("q}Erd
警告！！安裝程式被鎖定，無法重複安裝。2
請手動刪除 data 目錄下的 install.lock 檔案後重新執行。I)BFU
"); exit; } if ($action eq "") { $output = qq~i
©雷傲繁體中文網 -- 雷傲專屬討論網，探討一切有關雷傲繁體版本的相關問題與技術支援！ n}
在進行安裝前，請先確定您已經完整上傳了整個論壇程式和圖片檔案，並已經依照要求設定好了所有目錄和檔案的屬性。'=*
下面 1 和 2 中的預設設定是由程式自動判斷產生的，適用於大部分安裝本程式的用戶，如果有錯$LeoBBS_J_CHT，請自行修改成正確的值。NH
☆ 如果因為您水準有限而無法正常安裝和使用本論壇，請按此註冊本論壇商$LeoBBS_H_CHT版，取得安裝使用協助等技術支援與服務。dn
1.設定程式腳本的路徑（一般情況下，自動判斷程式取得這裡的資料都是正確的）w/s
腳本程式(cgi-bin)的安裝路徑 結尾有 "/"bUn1B
腳本程式(cgi-bin)的 URL 路徑 結尾沒有 "/"l|2@
2.設定圖像檔案的路徑（如果第二行的最後有笑臉圖的話，就說明第二行填寫的資料是正確的，否則請自行修改填寫）%nY1
圖像檔案(non-cgi)的安裝路徑 結尾有 "/"(o|>m^
圖像檔案(non-cgi) URL 路徑  結尾沒有 "/"#;l
3.設定初始化管理員（如果是升級安裝的話，那麼這裡是無需填寫的，請務必留空白） >O
初始管理員會員名稱 開頭不要使用訪客字樣，也不要超過12個字元（6個中文字）=s'`1
初始管理員密碼 只允許\大小寫字母和數字的組合，不能全部是數字，並不得少於8個字元8Il7We
初始管理員密碼 請依照上一行再重新輸入一遍，以便確定！#S
~; &output("$output"); exit; } if ($action eq "proceed") { $lbdir = $query->param("lbdir"); $lbdir =~ s/\/$//isg; $mypath = $lbdir; $lbdir = "${lbdir}/"; $boardurl = $query->param("boardurl"); $boardurl =~ s/\/$//isg; $imagesdir = $query->param("imagesdir"); $imagesdir =~ s/\/$//isg; $imagesdir = "${imagesdir}/"; $imagesurl = $query->param("imagesurl"); $imagesurl =~ s/\/$//isg; $adminname = $query->param("adminname"); $adminpass = $query->param("adminpass"); $adminpass1= $query->param("adminpass1"); unlink ("$mypath/record.cgi"); opendir (DIRS, "$mypath"); my @files = readdir(DIRS); closedir (DIRS); my @searchdir = grep(/^search/i, @files); $searchdir = @searchdir; my @memdir = grep(/^members/i, @files); $memdir = @memdir; my @msgdir = grep(/^messages/i, @files); $msgdir = @msgdir; my @recorddir = grep(/^record/i, @files); $recorddir = @recorddir; my @ftpdir = grep(/^ftpdata/i, @files); $ftpdir = @ftpdir; my @memfavdir = grep(/^memfav/i, @files); $memfavdir = @memfavdir; if (($searchdir > 2)||($memdir > 1)||($msgdir > 1)||($recorddir > 1)||($ftpdir > 1)||($memfavdir > 1)) { if ($searchdir > 2) { $output = "search 開頭的目錄有兩個或兩個以上"; } elsif ($memdir > 1) { $output = "members 開頭的目錄有兩個或兩個以上"; } elsif ($recorddir > 1) { $output = "record 開頭的目錄有兩個或兩個以上"; } elsif ($ftpdir > 1) { $output = "ftpdata 開頭的目錄有兩個或兩個以上"; } elsif ($msgdir > 1) { $output = "messages 開頭的目錄有兩個或兩個以上"; } elsif ($memfavdir > 1) { $output = "memfav 開頭的目錄有兩個或兩個以上"; } &output("YA1?u
安裝程式發現錯$LeoBBS_J_CHT！6xPs
$mypath 目錄下的以 $output，if<9
請刪除多餘的，保持此相關目錄只有一個，然後重新執行安裝程式一次。]%K"
"); exit; } $memdir = $memdir[0]; $msgdir = $msgdir[0]; $memfavdir = $memfavdir[0]; &changemod($mypath, $html_dir); chmod(0777,"$mypath/$memdir"); mkdir("$mypath/$memdir/old",0777) unless (-e "$mypath/$memdir/old"); chmod(0777,"$mypath/$memdir/old"); chmod(0777,"$mypath/data"); $memdirwritabler = $memdirwritabler1 = $datadirwritabler =""; $makefile = "$mypath/$memdir/test.txt"; open (TEST, ">$makefile") or $memdirwritabler = "目錄 $mypath/$memdir 為不可寫，請變更屬性為 777 。wbRj
"; print TEST "-"; close (TEST); $memdirwritabler = "目錄 $mypath/$memdir 為不可寫，請變更屬性為 777 。z#R
" if (!(-e "$makefile")); unlink "$makefile"; $makefile = "$mypath/$memdir/old/test.txt"; open (TEST, ">$makefile") or $memdirwritabler1 = "目錄 $mypath/$memdir/old 為不可寫，請變更屬性為 777 。DFh
"; print TEST "-"; close (TEST); $memdirwritabler1 = "目錄 $mypath/$memdir/old 為不可寫，請變更屬性為 777 。6Py
" if (!(-e "$makefile")); unlink "$makefile"; $makefile = "$mypath/data/test.txt"; open (TEST, ">$makefile") or $datadirwritabler = "目錄 $mypath/data 為不可寫，請變更屬性為 777 。S|!
"; print TEST "-"; close (TEST); $datadirwritabler = "目錄 $mypath/data 為不可寫，請變更屬性為 777 。nG
" if (!(-e "$makefile")); unlink "$makefile"; if (($memdirwritabler ne "")||($memdirwritabler1 ne "")||($datadirwritabler)) { &output("X-'r!R
安裝程式發現錯$LeoBBS_J_CHT！l@}:{y
$datadirwritabler$memdirwritabler$memdirwritabler1?
"); exit; } chmod(0666,"${lbdir}data/boardinfo.cgi"); if (!(-e "${lbdir}data/boardinfo.cgi")) { &output("pVQ)vP
安裝程式發現錯$LeoBBS_J_CHT！v.
未發現 ${lbdir}data/boardinfo.cgi 檔案，可能您輸入的 *.cgi 腳本的安裝路徑錯$LeoBBS_J_CHT，請返回重新輸入。_I
"); exit; } if (!(-e "${imagesdir}images/logo.gif")) { &output("W
安裝程式發現錯$LeoBBS_J_CHT！7L
未發現 ${imagesdir}images/logo.gif 檔案，可能您輸入的 image 圖像檔案的安裝路徑錯$LeoBBS_J_CHT，請返回重新輸入。-
"); exit; } if (($adminname ne "")&&($adminpass ne "")) { $adminnametemp = $adminname; $adminname =~ s/\ \;//ig; $adminname =~ s/ / /g; $adminname =~ s/鍨/ /g; $adminname =~ s/[ ]+/ /g; $adminname =~ s/[ ]+/_/; $adminname =~ s/[_]+/_/; $adminname =~ s/ //isg; $adminname =~ s/ //isg; $adminname =~ s/ //isg; $adminname =~ s/鍨//isg; $adminname =~ s/()+//isg; $adminname =~ s/[\a\f\n\e\0\r\t\`\~\!\@\#\$\%\^\&\*\(\)\+\=\\\{\}\;\'\:\"\,\.\/\\?\[\]]//isg; $adminname =~ s/\s*$//g; $adminname =~ s/^\s*//g; if ($adminnametemp ne $adminname) { &output("ezV
安裝程式發現錯$LeoBBS_J_CHT！~,s'"
您輸入的管理員會員名稱有問題，請返回重新輸入！;ufu}
"); exit; } if ($adminname =~ /^訪客/) { &output("F.BZ
安裝程式發現錯$LeoBBS_J_CHT！T(
請不要在管理員會員名稱的開頭中使用訪客字樣，請返回重新輸入！`Ze
"); exit; } if (length($adminname)>12) { &output(" -b
安裝程式發現錯$LeoBBS_J_CHT！;q/i
管理員會員名稱太長，請不要超過12個字元（6個中文字），請返回重新輸入！w])
"); exit; } if (length($adminname)g\-:
安裝程式發現錯$LeoBBS_J_CHT！w)T+7
管理員會員名稱太短了，請不要少於2個字元（1個中文字），請返回重新輸入！I
"); exit; } if ($adminname =~ m/[\a\f\n\e\0\r\t\`\~\!\@\#\$\%\^\&\*\(\)\=\+\\\[\]\{\}\;\'\:\"\,\.\/\\?]/) { &output("4VRO=
安裝程式發現錯$LeoBBS_J_CHT！fw\RF<
對不起，您輸入的管理員會員名稱有問題，請不要在管理員會員名稱中包含\@\#\$\%\^\&\*\(\)\+\=\\\{\}\;\'\:\"\,\.\/\\?\[\]這類字元！，請返回重新輸入！9$.
"); exit; } if ($adminpass =~ /[^a-zA-Z0-9]/) { &output("li
安裝程式發現錯$LeoBBS_J_CHT！ e&$]'
管理員密碼只允許\大小寫字母和數字的組合，請返回後更換！K:_!`
"); exit; } if ($adminpass =~ /^lEO/) { &output("X1
安裝程式發現錯$LeoBBS_J_CHT！qyGp
管理員密碼不允許\是 lEO 開頭，請返回後更換！&
"); exit; } if (length($adminpass){
安裝程式發現錯$LeoBBS_J_CHT！=h{$Z$
管理員密碼太短了，請返回後更換（密碼必須 8 位以上）！p;bg
"); exit; } if ($adminpass =~ /^[0-9]+$/) { &output(":5$
安裝程式發現錯$LeoBBS_J_CHT！<Ao%D3
管理員密碼不能全部為數字，請返回後更換！
"); exit; } if ($adminname eq $adminpass) { &output("1#B
安裝程式發現錯$LeoBBS_J_CHT！TToKm
不要將管理員會員名稱和管理員密碼設定成相同的，請返回後更換！W2@b
"); exit; } if ($adminpass ne $adminpass1) { &output("Kq|1\#
安裝程式發現錯$LeoBBS_J_CHT！u$
對不起，您輸入的兩次管理員密碼不相同，請返回重新輸入！S(75
"); exit; } } open(FILE, "${lbdir}data/boardinfo.cgi"); @info = ; close(FILE); if (open(FILE, ">${lbdir}data/boardinfo.cgi")) { print FILE "\$lbdir = '$lbdir';\n"; print FILE "\$boardurl = '$boardurl';\n"; print FILE "\$imagesdir = '$imagesdir';\n"; print FILE "\$imagesurl = '$imagesurl';\n"; eval('flock(FILE, 2);'); print FILE $@ ne '' ? "\$OS_USED = 'Nt';\n" : "\$OS_USED = 'Unix';\n"; foreach (@info) { chomp; next if (($_ =~ /^\$lbdir/)||($_ =~ /^\$imagesdir/)||($_ =~ /^\$boardurl/)||($_ =~ /^\$imagesurl/)||($_ =~ /^\$OS_USED/)||($_ eq "")); print FILE "$_\n"; } print FILE "\n"; close(FILE); } else { &output(",9
安裝程式發現錯$LeoBBS_J_CHT！i&5pJ
${lbdir}data/boardinfo.cgi 檔案不可寫，請手動設定其屬性為 666 ，然後重新整理本頁面$LeoBBS_L_CHT續。<
"); exit; } if (($adminname ne "")&&($adminpass ne "")) { $oldadminname = $adminname; $adminname =~ s/ /\_/g; $adminname =~ tr/A-Z/a-z/; my $namenumber = ((ord(substr($adminname,0,1))&0x3c)>2); # my $namenumber = int((ord(substr($adminname,0,1))+ord(substr($adminname,1,1)))/2); mkdir ("${lbdir}$memdir/$namenumber", 0777) if (!(-e "${lbdir}$memdir/$namenumber")); chmod(0777,"${lbdir}$memdir/$namenumber"); if ((-e "$lbdir$memdir/$namenumber/$adminname.cgi")||(-e "$lbdir$memdir/old/$adminname.cgi")) { &output("c
安裝程式發現錯$LeoBBS_J_CHT！R
管理員帳號 $oldadminname 已經存在，請返回更換！O4
"); exit; } eval {$adminpass = md5_hex($adminpass);}; if ($@) {eval('use Digest::MD5 qw(md5_hex);$adminpass = md5_hex($adminpass);');} unless ($@) {$adminpass = "lEO$adminpass";} opendir(DIR, $lbdir); @files = readdir(DIR); closedir(DIR); @memdirs = grep(/^members/i, @files); $memdir = $memdirs[0]; chmod(0777,"$lbdir$memdir"); mkdir("$lbdir$memdir/old",0777) unless (-e "$lbdir$memdir/old"); chmod(0777,"$lbdir$memdir/old"); my $currenttime = time; if (open(FILE, ">$lbdir$memdir/$namenumber/$adminname.cgi")) { print FILE "$adminname\t$adminpass\tmember\tad\t0|0\t\tno\t保密\t\t\t\t\t\t$currenttime\t\t"; close(FILE); } else { &output("e
安裝程式發現錯$LeoBBS_J_CHT！-kZ>
${lbdir}$memdir 目錄不可寫，請手動設定其屬性為 777 ，然後重新整理本頁面$LeoBBS_L_CHT續。i7!
"); exit; } if (open(FILE, ">$lbdir$memdir/old/$adminname.cgi")) { print FILE "$adminname\t$adminpass\tmember\tad\t0|0\t\tno\t保密\t\t\t\t\t\t$currenttime\t\t"; close(FILE); } else { unlink("$lbdir$memdir/$namenumber/$adminname.cgi"); &output("&
安裝程式發現錯$LeoBBS_J_CHT！YeJ
${lbdir}$memdir/old 目錄不可寫，請手動設定其屬性為 777 ，然後重新整理本頁面$LeoBBS_L_CHT續。s'1
"); exit; } $output = "管理員帳號 $oldadminname 建立成功\！"; } open(LOCK, ">${lbdir}data/install.lock"); print LOCK "www.LeoBBS.com"; close(LOCK); unlink("${lbdir}install.cgi") if (!(-e "${lbdir}data/install.lock")); &changedirname(); # 變更會員關鍵目錄的名稱 &output("&m
論壇安裝完成！$outputU-6c
論壇安裝已經順利完成！目前安裝程式已經自動鎖定，無法再次執行，但我們還是強烈建議您直接將其從伺服器上刪除。2O<3
如果需要再次執行安裝程式，請先手動將 data 目錄下的 install.lock 檔案刪除，然後再執行安裝程式！<3:7?
現在您可以使用管理員帳號和密碼進入 論壇管理中心 重新設定所有基本變數和風格參數。)QL|
"); $versionnumber =~ s/\//isg; &sendurlinfo("lb.moninet.com.tw","LeoBBS/reg.cgi","ver=$versionnumber&url=$boardurl") if (($boardurl ne "")&&($boardurl !~ m/localhost/i)&&($boardurl !~ m/127\.0\.0\./i)&&($boardurl !~ m/192\.168\./i)); exit; } # 參數不對． &output("Zo
請不要胡亂執行本程式，謝謝合$LeoBBS_E_CHT！E
"); exit; sub output { my $outputinfo = shift; print header(-charset=>big5 , -expires=>"$EXP_MODE" , -cache=>"$CACHE_MODES"); print qq~ 3EUi9
雷傲極酷超級論壇 LeoBBS X 安裝程式,e*,4A
.©雷傲繁體中文網 -- 雷傲專屬討論網，探討一切有關雷傲繁體版本的相關問題與技術支援！ 20q&8
$outputinfo>%?,T
☆ 如果因為您水準有限而無法正常安裝和使用本論壇，請按此註冊本論壇商$LeoBBS_H_CHT版，取得安裝使用協助等技術支援與服務。nnJt
版權所有：雷傲科技 & 雷傲極酷超級論壇 繁體版權所有：摩尼網 $LBCGI::LBTYPE Copyright 2003-2004ET
~; } sub changemod { my ($cgibinpath, $noncgipath) = @_; opendir (DIRS, "$noncgipath"); my @files = readdir(DIRS); closedir (DIRS); my @usrdir = grep(/^usr/i, @files); my $usrdir = $usrdir[0]; $usrdir = $usrdir[1] if (lc($usrdir) eq 'usravatars'); chmod(0777,"$noncgipath/$usrdir"); chmod(0777,"$noncgipath/myimage"); chmod(0777,"$noncgipath/usravatars"); chmod(0777,"$noncgipath/face"); chmod(0777,"$noncgipath/face/js"); opendir (DIRS, "$cgibinpath"); my @files = readdir(DIRS); closedir (DIRS); foreach (@files) { chmod(0777,"$cgibinpath/$_") if ($_ !~ /\./); } my @files1 = grep(/\.cgi/i, @files); foreach (@files1) { chmod(0755,"$cgibinpath/$_"); } @files1 = grep(/\.pl/i, @files); foreach (@files1) { chmod(0755,"$cgibinpath/$_"); } @files1 = grep(/\.pm/i, @files); foreach (@files1) { chmod(0755,"$cgibinpath/$_"); } mkdir("$cgibinpath/$memdir/old",0777) unless (-e "$cgibinpath/$memdir/old"); chmod(0777,"$cgibinpath/$memdir/old"); mkdir("$cgibinpath/$msgdir/in",0777) unless (-e "$cgibinpath/$msgdir/in"); chmod(0777,"$cgibinpath/$msgdir/in"); mkdir("$cgibinpath/$msgdir/main",0777) unless (-e "$cgibinpath/$msgdir/main"); chmod(0777,"$cgibinpath/$msgdir/main"); mkdir("$cgibinpath/$msgdir/out",0777) unless (-e "$cgibinpath/$msgdir/out"); chmod(0777,"$cgibinpath/$msgdir/out"); mkdir("$cgibinpath/$msgdir/modscarddata",0777) unless (-e "$cgibinpath/$msgdir/modscarddata"); chmod(0777,"$cgibinpath/$msgdir/modscarddata"); mkdir("$cgibinpath/$memfavdir/open",0777) unless (-e "$cgibinpath/$memfavdir/open"); chmod(0777,"$cgibinpath/$memfavdir/open"); mkdir("$cgibinpath/$memfavdir/close",0777) unless (-e "$cgibinpath/$memfavdir/close"); chmod(0777,"$cgibinpath/$memfavdir/close"); mkdir("$cgibinpath/verifynum",0777) unless (-e "$cgibinpath/verifynum"); chmod(0777,"$cgibinpath/verifynum"); mkdir("$cgibinpath/verifynum/login",0777) unless (-e "$cgibinpath/verifynum/login"); chmod(0777,"$cgibinpath/verifynum/login"); } sub sendurlinfo { eval("use Socket;"); return if ($@ ne ""); ($host,$path,$content) = @_; $host =~ s/^http:\/\///isg; $port = 80; $path = "/$path" if ($path !~ /^\//); my ($name, $aliases, $type, $len, @thataddr, $a, $b, $c, $d, $that); my ($name, $aliases, $type, $len, @thataddr) = gethostbyname($host); my ($a, $b, $c, $d) = unpack("C4", $thataddr[0]); my $that = pack('S n C4 x8', 2, $port, $a, $b, $c, $d); return unless (socket(S, 2, 1, 0)); select(S); $| = 1; select(STDOUT); return unless (connect(S, $that)); print S "POST http://$host/$path HTTP/1.0\n"; print S "Content-type: application/x-www-form-urlencoded\n"; my $contentLength = length $content; print S "Content-length: $contentLength\n"; print S "\n"; print S "$content"; @results = ; close(S); undef $|; return; } # 測試絕對路徑 sub mypath { local $temp; 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 { $ENV{'PATH_TRANSLATED'} = $ENV{'SCRIPT_FILENAME'} if ($ENV{'PATH_TRANSLATED'} eq ""); $mypath=substr($ENV{'PATH_TRANSLATED'},0,rindex($ENV{'PATH_TRANSLATED'},"\\")); $mypath=~ s/\\/\//g; } return $mypath; } # 測試 URL 路徑 sub myurl { local $server_port,$fullurl; $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 = "$fullurl$server_port" if ($fullurl !~ /\:/); $fullurl = "http://$fullurl$ENV{'SCRIPT_NAME'}"; $myurl = substr($fullurl,0,rindex($fullurl,"/")); return $myurl; } # 測試圖像目錄的絕對路徑和 url 路徑 sub myimgdir { my $html_dir = $html_url = $base = $base1 = ""; $base = $mypath; $base1 = $myurl; if (-e "$base/non-cgi/editor/selcolor.html") { $html_dir = "$base/non-cgi"; $html_url = "$base1/non-cgi"; } elsif (-e "$base/lb5000/editor/selcolor.html") { $html_dir = "$base/lb5000"; $html_url = "$base1/lb5000"; } elsif (-e "$base/ib2000/editor/selcolor.html") { $html_dir = "$base/ib2000"; $html_url = "$base1/ib2000"; } elsif (-e "$base/lb/editor/selcolor.html") { $html_dir = "$base/lb"; $html_url = "$base1/lb"; } elsif (-e "$base/ib/editor/selcolor.html") { $html_dir = "$base/ib"; $html_url = "$base1/ib"; } elsif (-e "$base/bbs/editor/selcolor.html") { $html_dir = "$base/bbs"; $html_url = "$base1/bbs"; } elsif (-e "$base/leobbs/editor/selcolor.html") { $html_dir = "$base/leobbs"; $html_url = "$base1/leobbs"; } elsif (-e "$base/leo/editor/selcolor.html") { $html_dir = "$base/leo"; $html_url = "$base1/leo"; } elsif (-e "$base/non-cgi/non-cgi/editor/selcolor.html") { $html_dir = "$base/non-cgi/non-cgi"; $html_url = "$base1/non-cgi/non-cgi"; } elsif (-e "$base/lb5000/non-cgi/editor/selcolor.html") { $html_dir = "$base/lb5000/non-cgi"; $html_url = "$base1/lb5000/non-cgi"; } elsif (-e "$base/ib2000/non-cgi/editor/selcolor.html") { $html_dir = "$base/ib2000/non-cgi"; $html_url = "$base1/ib2000/non-cgi"; } elsif (-e "$base/lb/non-cgi/editor/selcolor.html") { $html_dir = "$base/lb/non-cgi"; $html_url = "$base1/lb/non-cgi"; } elsif (-e "$base/ib/non-cgi/editor/selcolor.html") { $html_dir = "$base/ib/non-cgi"; $html_url = "$base1/ib/non-cgi"; } elsif (-e "$base/bbs/non-cgi/editor/selcolor.html") { $html_dir = "$base/bbs/non-cgi"; $html_url = "$base1/bbs/non-cgi"; } elsif (-e "$base/leobbs/non-cgi/editor/selcolor.html") { $html_dir = "$base/leobbs/non-cgi"; $html_url = "$base1/leobbs/non-cgi"; } elsif (-e "$base/leo/non-cgi/editor/selcolor.html") { $html_dir = "$base/leo/non-cgi"; $html_url = "$base1/leo/non-cgi"; } elsif (-e "$base/non-cgi/bbs/editor/selcolor.html") { $html_dir = "$base/non-cgi/bbs"; $html_url = "$base1/non-cgi/bbs"; } elsif (-e "$base/non-cgi/non-cgi/editor/selcolor.html") { $html_dir = "$base/non-cgi/non-cgi"; $html_url = "$base1/non-cgi/non-cgi"; } elsif (-e "$base/non-cgi/lb/editor/selcolor.html") { $html_dir = "$base/non-cgi/lb"; $html_url = "$base1/non-cgi/lb"; } elsif (-e "$base/non-cgi/lb5000/editor/selcolor.html") { $html_dir = "$base/non-cgi/lb5000"; $html_url = "$base1/non-cgi/lb5000"; } elsif (-e "$base/non-cgi/ib2000/editor/selcolor.html") { $html_dir = "$base/non-cgi/ib2000"; $html_url = "$base1/non-cgi/ib2000"; } elsif (-e "$base/non-cgi/ib/editor/selcolor.html") { $html_dir = "$base/non-cgi/ib"; $html_url = "$base1/non-cgi/ib"; } elsif (-e "$base/non-cgi/leo/editor/selcolor.html") { $html_dir = "$base/non-cgi/leo"; $html_url = "$base1/non-cgi/leo"; } elsif (-e "$base/non-cgi/leobbs/editor/selcolor.html") { $html_dir = "$base/non-cgi/leobbs"; $html_url = "$base1/non-cgi/leobbs"; } elsif (-e "$base/htdocs/non-cgi/editor/selcolor.html") { $html_dir = "$base/htdocs/non-cgi"; $html_url = "$base1/non-cgi"; } elsif (-e "$base/htdocs/lb5000/editor/selcolor.html") { $html_dir = "$base/htdocs/lb5000"; $html_url = "$base1/lb5000"; } elsif (-e "$base/htdocs/ib2000/editor/selcolor.html") { $html_dir = "$base/htdocs/ib2000"; $html_url = "$base1/ib2000"; } elsif (-e "$base/htdocs/lb/editor/selcolor.html") { $html_dir = "$base/htdocs/lb"; $html_url = "$base1/lb"; } elsif (-e "$base/htdocs/ib/editor/selcolor.html") { $html_dir = "$base/htdocs/ib"; $html_url = "$base1/ib"; } elsif (-e "$base/htdocs/bbs/editor/selcolor.html") { $html_dir = "$base/htdocs/bbs"; $html_url = "$base1/bbs"; } elsif (-e "$base/htdocs/leobbs/editor/selcolor.html") { $html_dir = "$base/htdocs/leobbs"; $html_url = "$base1/leobbs"; } elsif (-e "$base/htdocs/leo/editor/selcolor.html") { $html_dir = "$base/htdocs/leo"; $html_url = "$base1/leo"; } elsif (-e "$base/htdocs/non-cgi/bbs/editor/selcolor.html") { $html_dir = "$base/htdocs/non-cgi/bbs"; $html_url = "$base1/non-cgi/bbs"; } elsif (-e "$base/htdocs/non-cgi/non-cgi/editor/selcolor.html") { $html_dir = "$base/htdocs/non-cgi/non-cgi"; $html_url = "$base1/non-cgi/non-cgi"; } elsif (-e "$base/htdocs/non-cgi/lb/editor/selcolor.html") { $html_dir = "$base/htdocs/non-cgi/lb"; $html_url = "$base1/non-cgi/lb"; } elsif (-e "$base/htdocs/non-cgi/lb5000/editor/selcolor.html") { $html_dir = "$base/htdocs/non-cgi/lb5000"; $html_url = "$base1/non-cgi/lb5000"; } elsif (-e "$base/htdocs/non-cgi/ib2000/editor/selcolor.html") { $html_dir = "$base/htdocs/non-cgi/ib2000"; $html_url = "$base1/non-cgi/ib2000"; } elsif (-e "$base/htdocs/non-cgi/ib/editor/selcolor.html") { $html_dir = "$base/htdocs/non-cgi/ib"; $html_url = "$base1/non-cgi/ib"; } elsif (-e "$base/htdocs/non-cgi/leo/editor/selcolor.html") { $html_dir = "$base/htdocs/non-cgi/leo"; $html_url = "$base1/non-cgi/leo"; } elsif (-e "$base/htdocs/non-cgi/leobbs/editor/selcolor.html") { $html_dir = "$base/htdocs/non-cgi/leobbs"; $html_url = "$base1/non-cgi/leobbs"; } if (($html_dir eq "")||(!(-e "$html_dir/images/board.js"))) { if ($base =~ m|(.*)/(.+?)|) { $base = $1; } else { $base = $mypath; } if ($base1 =~ m|(.*)/(.+?)|) { $base1 = $1; } else { $base1 = $myurl; } if (-e "$base/non-cgi/editor/selcolor.html") { $html_dir = "$base/non-cgi"; $html_url = "$base1/non-cgi"; } elsif (-e "$base/lb5000/editor/selcolor.html") { $html_dir = "$base/lb5000"; $html_url = "$base1/lb5000"; } elsif (-e "$base/ib2000/editor/selcolor.html") { $html_dir = "$base/ib2000"; $html_url = "$base1/ib2000"; } elsif (-e "$base/lb/editor/selcolor.html") { $html_dir = "$base/lb"; $html_url = "$base1/lb"; } elsif (-e "$base/ib/editor/selcolor.html") { $html_dir = "$base/ib"; $html_url = "$base1/ib"; } elsif (-e "$base/bbs/editor/selcolor.html") { $html_dir = "$base/bbs"; $html_url = "$base1/bbs"; } elsif (-e "$base/leobbs/editor/selcolor.html") { $html_dir = "$base/leobbs"; $html_url = "$base1/leobbs"; } elsif (-e "$base/leo/editor/selcolor.html") { $html_dir = "$base/leo"; $html_url = "$base1/leo"; } elsif (-e "$base/non-cgi/non-cgi/editor/selcolor.html") { $html_dir = "$base/non-cgi/non-cgi"; $html_url = "$base1/non-cgi/non-cgi"; } elsif (-e "$base/lb5000/non-cgi/editor/selcolor.html") { $html_dir = "$base/lb5000/non-cgi"; $html_url = "$base1/lb5000/non-cgi"; } elsif (-e "$base/ib2000/non-cgi/editor/selcolor.html") { $html_dir = "$base/ib2000/non-cgi"; $html_url = "$base1/ib2000/non-cgi"; } elsif (-e "$base/lb/non-cgi/editor/selcolor.html") { $html_dir = "$base/lb/non-cgi"; $html_url = "$base1/lb/non-cgi"; } elsif (-e "$base/ib/non-cgi/editor/selcolor.html") { $html_dir = "$base/ib/non-cgi"; $html_url = "$base1/ib/non-cgi"; } elsif (-e "$base/bbs/non-cgi/editor/selcolor.html") { $html_dir = "$base/bbs/non-cgi"; $html_url = "$base1/bbs/non-cgi"; } elsif (-e "$base/leobbs/non-cgi/editor/selcolor.html") { $html_dir = "$base/leobbs/non-cgi"; $html_url = "$base1/leobbs/non-cgi"; } elsif (-e "$base/leo/non-cgi/editor/selcolor.html") { $html_dir = "$base/leo/non-cgi"; $html_url = "$base1/leo/non-cgi"; } elsif (-e "$base/non-cgi/bbs/editor/selcolor.html") { $html_dir = "$base/non-cgi/bbs"; $html_url = "$base1/non-cgi/bbs"; } elsif (-e "$base/non-cgi/non-cgi/editor/selcolor.html") { $html_dir = "$base/non-cgi/non-cgi"; $html_url = "$base1/non-cgi/non-cgi"; } elsif (-e "$base/non-cgi/lb/editor/selcolor.html") { $html_dir = "$base/non-cgi/lb"; $html_url = "$base1/non-cgi/lb"; } elsif (-e "$base/non-cgi/lb5000/editor/selcolor.html") { $html_dir = "$base/non-cgi/lb5000"; $html_url = "$base1/non-cgi/lb5000"; } elsif (-e "$base/non-cgi/ib2000/editor/selcolor.html") { $html_dir = "$base/non-cgi/ib2000"; $html_url = "$base1/non-cgi/ib2000"; } elsif (-e "$base/non-cgi/ib/editor/selcolor.html") { $html_dir = "$base/non-cgi/ib"; $html_url = "$base1/non-cgi/ib"; } elsif (-e "$base/non-cgi/leo/editor/selcolor.html") { $html_dir = "$base/non-cgi/leo"; $html_url = "$base1/non-cgi/leo"; } elsif (-e "$base/non-cgi/leobbs/editor/selcolor.html") { $html_dir = "$base/non-cgi/leobbs"; $html_url = "$base1/non-cgi/leobbs"; } elsif (-e "$base/htdocs/non-cgi/editor/selcolor.html") { $html_dir = "$base/htdocs/non-cgi"; $html_url = "$base1/non-cgi"; } elsif (-e "$base/htdocs/lb5000/editor/selcolor.html") { $html_dir = "$base/htdocs/lb5000"; $html_url = "$base1/lb5000"; } elsif (-e "$base/htdocs/ib2000/editor/selcolor.html") { $html_dir = "$base/htdocs/ib2000"; $html_url = "$base1/ib2000"; } elsif (-e "$base/htdocs/lb/editor/selcolor.html") { $html_dir = "$base/htdocs/lb"; $html_url = "$base1/lb"; } elsif (-e "$base/htdocs/ib/editor/selcolor.html") { $html_dir = "$base/htdocs/ib"; $html_url = "$base1/ib"; } elsif (-e "$base/htdocs/bbs/editor/selcolor.html") { $html_dir = "$base/htdocs/bbs"; $html_url = "$base1/bbs"; } elsif (-e "$base/htdocs/leobbs/editor/selcolor.html") { $html_dir = "$base/htdocs/leobbs"; $html_url = "$base1/leobbs"; } elsif (-e "$base/htdocs/leo/editor/selcolor.html") { $html_dir = "$base/htdocs/leo"; $html_url = "$base1/leo"; } elsif (-e "$base/htdocs/non-cgi/bbs/editor/selcolor.html") { $html_dir = "$base/htdocs/non-cgi/bbs"; $html_url = "$base1/non-cgi/bbs"; } elsif (-e "$base/htdocs/non-cgi/non-cgi/editor/selcolor.html") { $html_dir = "$base/htdocs/non-cgi/non-cgi"; $html_url = "$base1/non-cgi/non-cgi"; } elsif (-e "$base/htdocs/non-cgi/lb/editor/selcolor.html") { $html_dir = "$base/htdocs/non-cgi/lb"; $html_url = "$base1/non-cgi/lb"; } elsif (-e "$base/htdocs/non-cgi/lb5000/editor/selcolor.html") { $html_dir = "$base/htdocs/non-cgi/lb5000"; $html_url = "$base1/non-cgi/lb5000"; } elsif (-e "$base/htdocs/non-cgi/ib2000/editor/selcolor.html") { $html_dir = "$base/htdocs/non-cgi/ib2000"; $html_url = "$base1/non-cgi/ib2000"; } elsif (-e "$base/htdocs/non-cgi/ib/editor/selcolor.html") { $html_dir = "$base/htdocs/non-cgi/ib"; $html_url = "$base1/non-cgi/ib"; } elsif (-e "$base/htdocs/non-cgi/leo/editor/selcolor.html") { $html_dir = "$base/htdocs/non-cgi/leo"; $html_url = "$base1/non-cgi/leo"; } elsif (-e "$base/htdocs/non-cgi/leobbs/editor/selcolor.html") { $html_dir = "$base/htdocs/non-cgi/leobbs"; $html_url = "$base1/non-cgi/leobbs"; } } if (($html_dir eq "")||(!(-e "$html_dir/images/board.js"))) { if ($base =~ m|(.*)/(.+?)|) { $base = $1; } else { $base = $mypath; } if ($base1 =~ m|(.*)/(.+?)|) { $base1 = $1; } else { $base1 = $myurl; } if (-e "$base/non-cgi/editor/selcolor.html") { $html_dir = "$base/non-cgi"; $html_url = "$base1/non-cgi"; } elsif (-e "$base/lb5000/editor/selcolor.html") { $html_dir = "$base/lb5000"; $html_url = "$base1/lb5000"; } elsif (-e "$base/ib2000/editor/selcolor.html") { $html_dir = "$base/ib2000"; $html_url = "$base1/ib2000"; } elsif (-e "$base/lb/editor/selcolor.html") { $html_dir = "$base/lb"; $html_url = "$base1/lb"; } elsif (-e "$base/ib/editor/selcolor.html") { $html_dir = "$base/ib"; $html_url = "$base1/ib"; } elsif (-e "$base/bbs/editor/selcolor.html") { $html_dir = "$base/bbs"; $html_url = "$base1/bbs"; } elsif (-e "$base/leobbs/editor/selcolor.html") { $html_dir = "$base/leobbs"; $html_url = "$base1/leobbs"; } elsif (-e "$base/leo/editor/selcolor.html") { $html_dir = "$base/leo"; $html_url = "$base1/leo"; } elsif (-e "$base/non-cgi/non-cgi/editor/selcolor.html") { $html_dir = "$base/non-cgi/non-cgi"; $html_url = "$base1/non-cgi/non-cgi"; } elsif (-e "$base/lb5000/non-cgi/editor/selcolor.html") { $html_dir = "$base/lb5000/non-cgi"; $html_url = "$base1/lb5000/non-cgi"; } elsif (-e "$base/ib2000/non-cgi/editor/selcolor.html") { $html_dir = "$base/ib2000/non-cgi"; $html_url = "$base1/ib2000/non-cgi"; } elsif (-e "$base/lb/non-cgi/editor/selcolor.html") { $html_dir = "$base/lb/non-cgi"; $html_url = "$base1/lb/non-cgi"; } elsif (-e "$base/ib/non-cgi/editor/selcolor.html") { $html_dir = "$base/ib/non-cgi"; $html_url = "$base1/ib/non-cgi"; } elsif (-e "$base/bbs/non-cgi/editor/selcolor.html") { $html_dir = "$base/bbs/non-cgi"; $html_url = "$base1/bbs/non-cgi"; } elsif (-e "$base/leobbs/non-cgi/editor/selcolor.html") { $html_dir = "$base/leobbs/non-cgi"; $html_url = "$base1/leobbs/non-cgi"; } elsif (-e "$base/leo/non-cgi/editor/selcolor.html") { $html_dir = "$base/leo/non-cgi"; $html_url = "$base1/leo/non-cgi"; } elsif (-e "$base/non-cgi/bbs/editor/selcolor.html") { $html_dir = "$base/non-cgi/bbs"; $html_url = "$base1/non-cgi/bbs"; } elsif (-e "$base/non-cgi/non-cgi/editor/selcolor.html") { $html_dir = "$base/non-cgi/non-cgi"; $html_url = "$base1/non-cgi/non-cgi"; } elsif (-e "$base/non-cgi/lb/editor/selcolor.html") { $html_dir = "$base/non-cgi/lb"; $html_url = "$base1/non-cgi/lb"; } elsif (-e "$base/non-cgi/lb5000/editor/selcolor.html") { $html_dir = "$base/non-cgi/lb5000"; $html_url = "$base1/non-cgi/lb5000"; } elsif (-e "$base/non-cgi/ib2000/editor/selcolor.html") { $html_dir = "$base/non-cgi/ib2000"; $html_url = "$base1/non-cgi/ib2000"; } elsif (-e "$base/non-cgi/ib/editor/selcolor.html") { $html_dir = "$base/non-cgi/ib"; $html_url = "$base1/non-cgi/ib"; } elsif (-e "$base/non-cgi/leo/editor/selcolor.html") { $html_dir = "$base/non-cgi/leo"; $html_url = "$base1/non-cgi/leo"; } elsif (-e "$base/non-cgi/leobbs/editor/selcolor.html") { $html_dir = "$base/non-cgi/leobbs"; $html_url = "$base1/non-cgi/leobbs"; } elsif (-e "$base/htdocs/non-cgi/editor/selcolor.html") { $html_dir = "$base/htdocs/non-cgi"; $html_url = "$base1/non-cgi"; } elsif (-e "$base/htdocs/lb5000/editor/selcolor.html") { $html_dir = "$base/htdocs/lb5000"; $html_url = "$base1/lb5000"; } elsif (-e "$base/htdocs/ib2000/editor/selcolor.html") { $html_dir = "$base/htdocs/ib2000"; $html_url = "$base1/ib2000"; } elsif (-e "$base/htdocs/lb/editor/selcolor.html") { $html_dir = "$base/htdocs/lb"; $html_url = "$base1/lb"; } elsif (-e "$base/htdocs/ib/editor/selcolor.html") { $html_dir = "$base/htdocs/ib"; $html_url = "$base1/ib"; } elsif (-e "$base/htdocs/bbs/editor/selcolor.html") { $html_dir = "$base/htdocs/bbs"; $html_url = "$base1/bbs"; } elsif (-e "$base/htdocs/leobbs/editor/selcolor.html") { $html_dir = "$base/htdocs/leobbs"; $html_url = "$base1/leobbs"; } elsif (-e "$base/htdocs/leo/editor/selcolor.html") { $html_dir = "$base/htdocs/leo"; $html_url = "$base1/leo"; } elsif (-e "$base/htdocs/non-cgi/bbs/editor/selcolor.html") { $html_dir = "$base/htdocs/non-cgi/bbs"; $html_url = "$base1/non-cgi/bbs"; } elsif (-e "$base/htdocs/non-cgi/non-cgi/editor/selcolor.html") { $html_dir = "$base/htdocs/non-cgi/non-cgi"; $html_url = "$base1/non-cgi/non-cgi"; } elsif (-e "$base/htdocs/non-cgi/lb/editor/selcolor.html") { $html_dir = "$base/htdocs/non-cgi/lb"; $html_url = "$base1/non-cgi/lb"; } elsif (-e "$base/htdocs/non-cgi/lb5000/editor/selcolor.html") { $html_dir = "$base/htdocs/non-cgi/lb5000"; $html_url = "$base1/non-cgi/lb5000"; } elsif (-e "$base/htdocs/non-cgi/ib2000/editor/selcolor.html") { $html_dir = "$base/htdocs/non-cgi/ib2000"; $html_url = "$base1/non-cgi/ib2000"; } elsif (-e "$base/htdocs/non-cgi/ib/editor/selcolor.html") { $html_dir = "$base/htdocs/non-cgi/ib"; $html_url = "$base1/non-cgi/ib"; } elsif (-e "$base/htdocs/non-cgi/leo/editor/selcolor.html") { $html_dir = "$base/htdocs/non-cgi/leo"; $html_url = "$base1/non-cgi/leo"; } elsif (-e "$base/htdocs/non-cgi/leobbs/editor/selcolor.html") { $html_dir = "$base/htdocs/non-cgi/leobbs"; $html_url = "$base1/non-cgi/leobbs"; } } if (($html_dir eq "")||(!(-e "$html_dir/images/board.js"))) { if ($base =~ m|(.*)/(.+?)|) { $base = $1; } else { $base = $mypath; } if ($base1 =~ m|(.*)/(.+?)|) { $base1 = $1; } else { $base1 = $myurl; } if (-e "$base/non-cgi/editor/selcolor.html") { $html_dir = "$base/non-cgi"; $html_url = "$base1/non-cgi"; } elsif (-e "$base/lb5000/editor/selcolor.html") { $html_dir = "$base/lb5000"; $html_url = "$base1/lb5000"; } elsif (-e "$base/ib2000/editor/selcolor.html") { $html_dir = "$base/ib2000"; $html_url = "$base1/ib2000"; } elsif (-e "$base/lb/editor/selcolor.html") { $html_dir = "$base/lb"; $html_url = "$base1/lb"; } elsif (-e "$base/ib/editor/selcolor.html") { $html_dir = "$base/ib"; $html_url = "$base1/ib"; } elsif (-e "$base/bbs/editor/selcolor.html") { $html_dir = "$base/bbs"; $html_url = "$base1/bbs"; } elsif (-e "$base/leobbs/editor/selcolor.html") { $html_dir = "$base/leobbs"; $html_url = "$base1/leobbs"; } elsif (-e "$base/leo/editor/selcolor.html") { $html_dir = "$base/leo"; $html_url = "$base1/leo"; } elsif (-e "$base/non-cgi/non-cgi/editor/selcolor.html") { $html_dir = "$base/non-cgi/non-cgi"; $html_url = "$base1/non-cgi/non-cgi"; } elsif (-e "$base/lb5000/non-cgi/editor/selcolor.html") { $html_dir = "$base/lb5000/non-cgi"; $html_url = "$base1/lb5000/non-cgi"; } elsif (-e "$base/ib2000/non-cgi/editor/selcolor.html") { $html_dir = "$base/ib2000/non-cgi"; $html_url = "$base1/ib2000/non-cgi"; } elsif (-e "$base/lb/non-cgi/editor/selcolor.html") { $html_dir = "$base/lb/non-cgi"; $html_url = "$base1/lb/non-cgi"; } elsif (-e "$base/ib/non-cgi/editor/selcolor.html") { $html_dir = "$base/ib/non-cgi"; $html_url = "$base1/ib/non-cgi"; } elsif (-e "$base/bbs/non-cgi/editor/selcolor.html") { $html_dir = "$base/bbs/non-cgi"; $html_url = "$base1/bbs/non-cgi"; } elsif (-e "$base/leobbs/non-cgi/editor/selcolor.html") { $html_dir = "$base/leobbs/non-cgi"; $html_url = "$base1/leobbs/non-cgi"; } elsif (-e "$base/leo/non-cgi/editor/selcolor.html") { $html_dir = "$base/leo/non-cgi"; $html_url = "$base1/leo/non-cgi"; } elsif (-e "$base/non-cgi/bbs/editor/selcolor.html") { $html_dir = "$base/non-cgi/bbs"; $html_url = "$base1/non-cgi/bbs"; } elsif (-e "$base/non-cgi/non-cgi/editor/selcolor.html") { $html_dir = "$base/non-cgi/non-cgi"; $html_url = "$base1/non-cgi/non-cgi"; } elsif (-e "$base/non-cgi/lb/editor/selcolor.html") { $html_dir = "$base/non-cgi/lb"; $html_url = "$base1/non-cgi/lb"; } elsif (-e "$base/non-cgi/lb5000/editor/selcolor.html") { $html_dir = "$base/non-cgi/lb5000"; $html_url = "$base1/non-cgi/lb5000"; } elsif (-e "$base/non-cgi/ib2000/editor/selcolor.html") { $html_dir = "$base/non-cgi/ib2000"; $html_url = "$base1/non-cgi/ib2000"; } elsif (-e "$base/non-cgi/ib/editor/selcolor.html") { $html_dir = "$base/non-cgi/ib"; $html_url = "$base1/non-cgi/ib"; } elsif (-e "$base/non-cgi/leo/editor/selcolor.html") { $html_dir = "$base/non-cgi/leo"; $html_url = "$base1/non-cgi/leo"; } elsif (-e "$base/non-cgi/leobbs/editor/selcolor.html") { $html_dir = "$base/non-cgi/leobbs"; $html_url = "$base1/non-cgi/leobbs"; } elsif (-e "$base/htdocs/non-cgi/editor/selcolor.html") { $html_dir = "$base/htdocs/non-cgi"; $html_url = "$base1/non-cgi"; } elsif (-e "$base/htdocs/lb5000/editor/selcolor.html") { $html_dir = "$base/htdocs/lb5000"; $html_url = "$base1/lb5000"; } elsif (-e "$base/htdocs/ib2000/editor/selcolor.html") { $html_dir = "$base/htdocs/ib2000"; $html_url = "$base1/ib2000"; } elsif (-e "$base/htdocs/lb/editor/selcolor.html") { $html_dir = "$base/htdocs/lb"; $html_url = "$base1/lb"; } elsif (-e "$base/htdocs/ib/editor/selcolor.html") { $html_dir = "$base/htdocs/ib"; $html_url = "$base1/ib"; } elsif (-e "$base/htdocs/bbs/editor/selcolor.html") { $html_dir = "$base/htdocs/bbs"; $html_url = "$base1/bbs"; } elsif (-e "$base/htdocs/leobbs/editor/selcolor.html") { $html_dir = "$base/htdocs/leobbs"; $html_url = "$base1/leobbs"; } elsif (-e "$base/htdocs/leo/editor/selcolor.html") { $html_dir = "$base/htdocs/leo"; $html_url = "$base1/leo"; } elsif (-e "$base/htdocs/non-cgi/bbs/editor/selcolor.html") { $html_dir = "$base/htdocs/non-cgi/bbs"; $html_url = "$base1/non-cgi/bbs"; } elsif (-e "$base/htdocs/non-cgi/non-cgi/editor/selcolor.html") { $html_dir = "$base/htdocs/non-cgi/non-cgi"; $html_url = "$base1/non-cgi/non-cgi"; } elsif (-e "$base/htdocs/non-cgi/lb/editor/selcolor.html") { $html_dir = "$base/htdocs/non-cgi/lb"; $html_url = "$base1/non-cgi/lb"; } elsif (-e "$base/htdocs/non-cgi/lb5000/editor/selcolor.html") { $html_dir = "$base/htdocs/non-cgi/lb5000"; $html_url = "$base1/non-cgi/lb5000"; } elsif (-e "$base/htdocs/non-cgi/ib2000/editor/selcolor.html") { $html_dir = "$base/htdocs/non-cgi/ib2000"; $html_url = "$base1/non-cgi/ib2000"; } elsif (-e "$base/htdocs/non-cgi/ib/editor/selcolor.html") { $html_dir = "$base/htdocs/non-cgi/ib"; $html_url = "$base1/non-cgi/ib"; } elsif (-e "$base/htdocs/non-cgi/leo/editor/selcolor.html") { $html_dir = "$base/htdocs/non-cgi/leo"; $html_url = "$base1/non-cgi/leo"; } elsif (-e "$base/htdocs/non-cgi/leobbs/editor/selcolor.html") { $html_dir = "$base/htdocs/non-cgi/leobbs"; $html_url = "$base1/non-cgi/leobbs"; } } $html_dir = $mypath if ($html_dir eq ""); $html_url = $myurl if ($html_url eq ""); return "$html_dir|$html_url|"; } sub changedirname { opendir (DIRS, "$lbdir"); my @files = readdir(DIRS); closedir (DIRS); @files = grep(/^\w+?$/i, @files); my @searchdir = grep(/^search/i, @files); my $searchdir = $searchdir[0]; my @memdir = grep(/^members/i, @files); my $memdir = $memdir[0]; my @msgdir = grep(/^messages/i, @files); my $msgdir = $msgdir[0]; my @memfavdir = grep(/^memfav/i, @files); my $memfavdir = $memfavdir[0]; my @recorddir = grep(/^record/i, @files); my $recorddir = $recorddir[0]; my @saledir = grep(/^sale/i, @files); my $saledir = $saledir[0]; my @ftpdir = grep(/^ftpdata/i, @files); my $ftpdir = $ftpdir[0]; opendir(DIRS, $imagesdir); my @files = readdir(DIRS); closedir(DIRS); @files = grep(/^\w+?$/i, @files); my @usrdir = grep(/^usr/i, @files); my $usrdir = $usrdir[0]; $usrdir = $usrdir[1] if (lc($usrdir) eq 'usravatars'); my $x = &myrand(1000000000); $x = crypt($x, aun); $x =~ s/%([a-fA-F0-9]{2})/pack("C", hex($1))/eg; $x =~ s/[^\w\d]//g; $x = substr($x, 2, 9); $usrdir = "usr$x" if (rename("$imagesdir$usrdir", "${imagesdir}usr$x")); $recorddir = "record$x" if (rename("$lbdir$recorddir", "${lbdir}record$x")); $saledir = "sale$x" if (rename("$lbdir$saledir", "${lbdir}sale$x")); my $x = &myrand(1000000000); $x = crypt($x, aun); $x =~ s/%([a-fA-F0-9]{2})/pack("C", hex($1))/eg; $x =~ s/[^\w\d]//g; $x = substr($x, 2, 9); $memdir = "members$x" if (rename("$lbdir$memdir", "${lbdir}members$x")); $msgdir = "messages$x" if (rename("$lbdir$msgdir", "${lbdir}messages$x")); my $x = &myrand(1000000000); $x = crypt($x, aun); $x =~ s/%([a-fA-F0-9]{2})/pack("C", hex($1))/eg; $x =~ s/[^\w\d]//g; $x = substr($x, 2, 9); $searchdir = "search$x" if (rename("$lbdir$searchdir", "${lbdir}search$x")); $ftpdir = "ftpdata$x" if (rename("$lbdir$ftpdir", "${lbdir}ftpdata$x")); $memfavdir = "memfav$x" if (rename("$lbdir$memfavdir", "${lbdir}memfav$x")); }I,zDU!
|
|
C_^
©雷傲繁體中文網 -- 雷傲專屬討論網，探討一切有關雷傲繁體版本的相關問題與技術支援！ Pvd\s
©雷傲繁體中文網 -- 雷傲專屬討論網，探討一切有關雷傲繁體版本的相關問題與技術支援！ !|ugm
打開就顯示這段文字w
害我現在都無法安裝)1a"
遇到這種問題要怎麼辦啊  R
©雷傲繁體中文網 -- 雷傲專屬討論網，探討一切有關雷傲繁體版本的相關問題與技術支援！ iZ$Q8I
-=-=-=- 以下內容由 小雨 在 2007年06月23日 00:46am 時新增 -=-=-=-fAX}
順代一提3'1l
我的DATA目錄下根本沒有install.lock但是卻顯示請手動刪除 data 目錄下的 install.lock 檔案後重新執行。.......到底為何會這樣啊~~~A{5@9
| | |
版權所有，不得擅自轉載
|
雷傲繁體中文網廣告位置
|
|
短訊息
查看
搜尋
通訊錄
引用
回覆
只看我
2007/06/23 00:40am 
IP: 已設定保密
