[12.18] [求助]討論區日期顯示不對 @ 『 LeoBBS 技術討論區』

» 歡迎您，訪客：登入論壇

按這裡註冊

使用說明

外掛程式

程式下載商業註冊

>>> 對安裝和使用 LeoBBS 論壇出現問題的技術支援，簡單的說，就是討論一切和雷傲超級論壇 LeoBBS 有關的訊息。。。

雷傲繁體中文網 → 『 LeoBBS 技術討論區』 [返回] → 瀏覽：[12.18] [求助]討論區日期顯示不對　

標記論壇所有內容為已讀取

目前論壇總在線 5 人，本主題共有 1 人瀏覽。其中註冊會員 0 人，訪客 1 人。　 [關閉詳細名單]


		◆此文章被閱讀 7927 次◆

* 文章主題： [12.18] [求助]討論區日期顯示不對

不分頁顯示此文章

儲存此頁為檔案

本文章有問題，傳送短訊息報告給版主

加到我的最愛&關注本文章

顯示可列印的版本

把本文章打包郵寄

把本文章加到我的最愛

傳送本頁面給朋友

等級: 俠客
資料: 此會員目前不在線上

此會員目前不在線上

威望: 0　積分: 12
現金: 1140 摩尼幣
存款: 沒開戶
貸款: 沒貸款
來自: 保密　

發文: 1 篇
精華: 0 篇
資料:

　
在線: 00 時 35 分 42 秒
註冊: 2007/12/18 02:40pm
造訪: 2007/12/21 07:25am

回覆文章

[這篇文章最後由Phuipwi在 2007/12/18 02:58pm 第 1 次編輯]~NV
©雷傲繁體中文網 -- 雷傲專屬討論網，探討一切有關雷傲繁體版本的相關問題與技術支援！　　 0A@
大家好。這是我在網路下載下來的CGI討論區。[0 I*k
©雷傲繁體中文網 -- 雷傲專屬討論網，探討一切有關雷傲繁體版本的相關問題與技術支援！　　 V9b%l
討論區裡的【最近更新】的日期有問題。怪怪的。例如。今天是12/18日卻在討論區上顯示 2/18日？？？12月成了2月了？？？Ocs/
©雷傲繁體中文網 -- 雷傲專屬討論網，探討一切有關雷傲繁體版本的相關問題與技術支援！　　 fr$oI_
還有【列表表格中包含的主題數】已經SET為20。可是20個主題後﹐不會跳到新的一頁？A\
©雷傲繁體中文網 -- 雷傲專屬討論網，探討一切有關雷傲繁體版本的相關問題與技術支援！　　 Oq2
那位好心人士可以幫忙看看嗎？:c
©雷傲繁體中文網 -- 雷傲專屬討論網，探討一切有關雷傲繁體版本的相關問題與技術支援！　　 F
拜託！拜託！5
©雷傲繁體中文網 -- 雷傲專屬討論網，探討一切有關雷傲繁體版本的相關問題與技術支援！　　 r#+
現謝謝大家了。'(Gt
©雷傲繁體中文網 -- 雷傲專屬討論網，探討一切有關雷傲繁體版本的相關問題與技術支援！　　 .@!
#!/usr/local/bin/perlU
©雷傲繁體中文網 -- 雷傲專屬討論網，探討一切有關雷傲繁體版本的相關問題與技術支援！　　 0!h Q
# require './jcode.pl';drVA
©雷傲繁體中文網 -- 雷傲專屬討論網，探討一切有關雷傲繁體版本的相關問題與技術支援！　　 r1&Gu/
#-----------------------------------------------'WaWQ
$ver="Child Forum v1.2";#(簡易主題表示式揭示板)!w+P
#-----------------------------------------------d?
# Copyright(C) りゅういちUV<%0
# E-Mail:macchibi@mvf.biglobe.ne.jpf@]~e+
# W W W :http://www2u.biglobe.ne.jp/~ryu_1/cj_c/\=dl
# 中譯 :月之家-配音間- http://www.bigfoot.com/~fukikaebhV
#----------------------------------------------- \
©雷傲繁體中文網 -- 雷傲專屬討論網，探討一切有關雷傲繁體版本的相關問題與技術支援！　　 8"Q:
###--- 初期設定 ------------*64
$met = "POST";# 數據送出方式(POST or GET)1<[%
$backurl="http://www.bigfoot.com/~fukikae";# 主頁網址K)
$pass = "neoranga";# 管理用密碼(半型英數字)fyx0zI
©雷傲繁體中文網 -- 雷傲專屬討論網，探討一切有關雷傲繁體版本的相關問題與技術支援！　　 V}ab]8
$title = "-Child Forum-";# 討論板標題e
$tface = "Verdana";# 標題文字字型Ic*#\G
$tsize = 6;# 標題文字大小V={w,
$tcolor= "#F3A265";# 標題文字顏色 (16進數))
©雷傲繁體中文網 -- 雷傲專屬討論網，探討一切有關雷傲繁體版本的相關問題與技術支援！　　 -GX
$text = "#787878";# 標準文字色指定(16進數)]
$bg = "#FFF1DF";# 背景色指定 (〃)W`
$link = "#8A98F4";# 未訪問連結色指定 (〃)]oMC
$vlink= "#73CE91";# 已訪問連結色指定 (〃)^Ms
$ttb = "#F3BE9E";# 說明書上部表格顏色(〃)!?w
$k_back="#FFFFFF";# 記事表格的背景色 (〃)X>
$t_font="#7275EF";# 記事標題顏色 (〃)f
$res_f ="#B6B6B6";# 引用記事顏色 (〃)]6
$kijino="#FB8D64";# 記事編號顏色 (〃)N=c|
$obg = "#FFFFFF";# 主題標題背景色 (〃)< }
$back = "";# 壁紙網址(不輸入代不使用壁紙，使用例：http://www.neoranga.com/gif/neoranga.jpg)GGD[
$max = 100;# 主題最大保留件數=n}*fp
$res_r= 1;# 開啟回覆上浮機能？(1=YES 0=NO)zS
$tab_m= 3;# 一頁中表示的主題列表表格數kq
$a_max= 10;# 一個列表表格中包含的主題數R
$topic= 10;# 一個主題在一頁中的記事表示數]({
$topok= 1;# 是否任何人都能追加新主題？(1=YES 0=NO)GsBi)
$tpmax= 0;# 對同一個主題的最大記事保留數(0 代表無制限)g
$t_max= 50;# 主題標題文字表度(初期設定-英文50文字/中日文25文字)]h
$tp_hi= 0;# 主題內容的初期排列(1=新到記事排在最頂 0=原主題排在最頂)Mn=B.A
©雷傲繁體中文網 -- 雷傲專屬討論網，探討一切有關雷傲繁體版本的相關問題與技術支援！　　 E/|
#-------------------------------------------+Ej=Vk
# [記事標記圖案設定] |Fc
# 畫像=><img>タグ / テキスト=>□など直接書く|"9H_
# $hed_i は通常記事用 (テキスト例：○ / ●) |]-JzLK
# $new_i は新著記事用 (テキスト例：Ｎ / NEW)|0F6Qh|
# $up_i_ は更新記事用 (テキスト例：UP / ◇) |IXo7vx
#-------------------------------------------+d`A
$hed_i= '<img src="hed.gif" height=15 width=15 border=0 alt="TOPIC">';W E.s
$new_i= '<img src="new.gif" height=15 width=15 border=0 alt="NEW TOPIC">';tq
$up_i_= '<img src="uph.gif" height=15 width=15 border=0 alt="UpDate TOPIC">';N,
©雷傲繁體中文網 -- 雷傲專屬討論網，探討一切有關雷傲繁體版本的相關問題與技術支援！　　 Dw~])
$new_t = 24;# 附加NEW/UP(新到主題／新追加記事)圖案標記的時間m<?Ht
$new_s = 10;# 新到記事列表中的表示數"lZ_
$locks = 1;# 使用File Lock？(1=YES 0=NO)C
$end_f = 0;# 使用"完結"可選記號？(1=YES 0=NO)%#&^M
# 插入廣告代碼(預設為Virtualave廣告代碼)}
$adbanner= '';]2L#X
# 選擇"完結"時的代表付號(可使用Html 如用圖案時就是<img>代碼)L)+
$end_ok= '<font color=red>◎</font>';s
# 促成點選"完結"選項的文字(例: 能解決本問題就請點選這裏！)e["B
$end_m =<<"_END_";e*r
©雷傲繁體中文網 -- 雷傲專屬討論網，探討一切有關雷傲繁體版本的相關問題與技術支援！　　 J,
<font color=red><small>能解決本問題就請點選這裏！</small></color>1nL[
©雷傲繁體中文網 -- 雷傲專屬討論網，探討一切有關雷傲繁體版本的相關問題與技術支援！　　 %)R<
_END_©雷傲繁體中文網 -- 雷傲專屬討論網，探討一切有關雷傲繁體版本的相關問題與技術支援！　　 G
#↑不能刪除"}l
###v%BY
# 列表頁上部文字描述(可用Html)Kb
$com_top=<<"_COM_"; # 是改下面的文字而不是這一行哦～oJ
©雷傲繁體中文網 -- 雷傲專屬討論網，探討一切有關雷傲繁體版本的相關問題與技術支援！　　 Wm
■ 請自由地利用這個板來討論各種ＸＸＹＹＺＺ話題！<br>.
©雷傲繁體中文網 -- 雷傲專屬討論網，探討一切有關雷傲繁體版本的相關問題與技術支援！　　 _C_
_COM_©雷傲繁體中文網 -- 雷傲專屬討論網，探討一切有關雷傲繁體版本的相關問題與技術支援！　　 c{UO/K
#↑不能刪除)yt;w
###--- 過去記錄關連 ------------*{&m\r
$klog_s= 1;# 使用過去記錄機能？(1=YES 0=NO)euF
$klog_c= "./cfk.log";# 過去記錄數目的計數檔案8o
$klog_d= ".";# 過去記錄生成目錄hD78
$klog_l= 100;# 一個過去記錄的容量(單位KB)-/
#©雷傲繁體中文網 -- 雷傲專屬討論網，探討一切有關雷傲繁體版本的相關問題與技術支援！　　 &'3TM]
###--- 以下視使用所需而修改---*Nz@]
$t_mail= 0;# 使用新投稿電郵通知功能？(1=YES 0=NO)R`B\
$mymail= 1;# 對自已的投稿也作電郵通知？(1=YES 0=NO)<gH
$mailto= 'ranga@neoranga.com';# 電郵通知受信地址f
$s_mail= '/usr/sbin/sendmail';# sendmail路徑(預設為Virtualave sendmail路徑)P
©雷傲繁體中文網 -- 雷傲專屬討論網，探討一切有關雷傲繁體版本的相關問題與技術支援！　　 /"
$t_img = "";# 討論板標題圖案的網址(例：http://www.neoranga.com/title.gif)}v7A
$twid = "135";# 圖案的闊度(像素Pixel):$W#
$thei = "80";# 圖案的高度(像素Pixel)r]N<d'
©雷傲繁體中文網 -- 雷傲專屬討論網，探討一切有關雷傲繁體版本的相關問題與技術支援！　　 }9n
$cou = 0;# 設置訪客計數器？ (1=YES 0=NO)}w
$fig = 5;# 計數器的桁數m
$c_co = "#38B52F";# 文字式計數器=> 文字色!x+
$m_wid= 8;# 畫像式計數器=> 畫像闊度t
$m_hei= 12;# 〃 => 畫像高度v/s
$m_pas= "";# 〃 => 畫像存放目錄(如與cf.cgi放在同一目錄，則此項設為$m_pas= "." Wink

Wink

*_p
$c_f = "./cfc.dat";# 計數器記錄檔案名稱^2r#V1
$cloc = "./c.loc";# Count Lock]5
$wrap = "soft";# 內容輸內欄的換行方式(soft=手動 or hard=強制)(=at
$cgi_f= "./cf.cgi";# 本討論板程序的檔案名稱lc~
$srch = "./cfs.cgi";# 檢索/過去記錄閱覽用CGI程序的檔案名稱*M
$log = "./cf.dat";# 記行記錄檔案名稱&vo
$lockf= "./cf.loc";# Lock FilevyP
$tag = 1;# 內容輸入輸可以使用Html代碼 (YES=1 NO=0)BD3PN`
$bup = 1;# 對現行記錄進行備份 (YES=1 NO=0)7?0=
$bup_f= "./cf.bak";# 備份檔案名稱!
©雷傲繁體中文網 -- 雷傲專屬討論網，探討一切有關雷傲繁體版本的相關問題與技術支援！　　 {'
$k_font="新細明體";# 基本字體(以訪客的的設定為準)l{%aHh
$b_font="新細明體";# 強調字體(以訪客的的設定為準)/UD\
$k_size="10pt";# 基本字體尺寸(單位pt)(RU
$b_size="10pt";# 強調字體尺寸( 〃 )T
$ie_c = "#E88C8E";# 按下網址連結時的顏色(16進數只對IE起作用))Ly
###--- 設定到此為止 ------------*]/q<(:
©雷傲繁體中文網 -- 雷傲專屬討論網，探討一切有關雷傲繁體版本的相關問題與技術支援！　　 bfI
&d_code_;cqJ|
if($tp_hi) {$r=1;}else{$r=0;}]BDKB1
if($topok) {$newt_link="　□<a href=\"$cgi_f?mode=new\"> 貼上新主題</a>\n";}l3Y
if($klog_s){$klog_link="　□<a href=\"$srch?mode=log\"> 過去記錄</a>\n";}`B*i1~
if($tag) { $tagcom = "<b>可以使用Html代碼。</b>\n";tUxJ#
}elsif ($tag == 0){ $tagcom = "<b>不能使用Html代碼。</b>\n"; }u/#
$atcom=<<"ATCOM";K
<ul type="square">KY
<li>本自由討論板$tagcom</li>3Q
<li>本自由討論板禁止任何人身攻擊、非法活動的文章出現，任何管理員不能容忍的文章都有可能在未經事先通知而被刪除。</li>OX~[ (
<li><b>名字、內容為必須輸入的項目</b>。忘記輸入了就會出錯。</li>s
<li>內容中的網址及電郵會自動連結。</li>PQ?
<li><b>刪除密碼</b>應該輸入並好好記住、<b>可以用它來刪除或編輯自己的投稿記事內容</b>。</li>+vF6rw
</ul>?v}C,,
ATCOM©雷傲繁體中文網 -- 雷傲專屬討論網，探討一切有關雷傲繁體版本的相關問題與技術支援！　　 M
if($mode eq "bma"){ &bma_; }C8
if($mode eq "man"){ &man_; }L1L&N
if($mode eq "n_w"){ &n_w_; }!BSuv
if($mode eq "wri"){ &wri_; }1S
if($mode eq "del"){ &del_; }':c+
if($mode eq "s_d"){ &s_d_; }4
if($mode eq "nam"){ &hen_; }NJ$rS
if($mode eq "h_w"){ &h_w_; }%0N
if($mode eq "new"){ &new_; }V`"
if($mode eq "all"){ &all_; }f
if($mode eq "key"){ &key_; }$#FIWd
&html_;]k%[3L
#©雷傲繁體中文網 -- 雷傲專屬討論網，探討一切有關雷傲繁體版本的相關問題與技術支援！　　 m
# [フォーム表示]uPde
#©雷傲繁體中文網 -- 雷傲專屬討論網，探討一切有關雷傲繁體版本的相關問題與技術支援！　　 QS y
sub forms_ {(/95x-
&get_;r
if($namber eq ""){$namber=0;}%s692
if ($ty eq ""){$sp=0;$namber=$namb;}AxK
elsif($ty == 0) {$sp=15;$namber=$namb;}ev(b)^
elsif($ty > 0) {$sp=$space+15;}|3[
if($space ne "" && $end_f == 1){$wt
$end_form=<<"_ENDBOX_";(d
$end_ok BOX5l/<m
<input type=checkbox name=end value="1">j
$end_mw
_ENDBOX_|@
}©雷傲繁體中文網 -- 雷傲專屬討論網，探討一切有關雷傲繁體版本的相關問題與技術支援！　　 &BB
print <<"_form_";",d},
<blockquote><form action="$cgi_f" method="$met">:MS2g;
<input type=hidden name=mode value=wri>d)(
<input type=hidden name=type value=$namber>%J:2W
<input type=hidden name=kiji value=$namb>a1
<input type=hidden name=space value=$sp>|sx
<table><tr><td>名字</td><td><input type=text name="name" value="$c_name" size=20></td></tr>ACRL
<tr><td>電郵</td><td><input type=text name="email" value="$c_email" size=35></td></tr>Zfg4+
<tr><td>網址</td><td><input type=text name="url" value="http://$c_url" size=45></td></tr>[-FRy
<tr><td>主題</td><td><input type=text name="d_may" size=35 value="$ti"></td></tr>'
<tr><td colspan=2>內容▽ <small>(請適當地進行換行)</small><br>dqE
<textarea name="comment" rows=12 cols=75 wrap=$wrap>$com</textarea></td></tr>wjM
<tr><td colspan=2>$end_form]~Qrsg
</td></tr><tr><td>刪除密碼</td><td><input type=password name=delkey value="$c_key" size=8>,I
<small>(英數8文字以內)</small>　9JFtD
<input type=submit value=" 送出 ">Ye_9
<input type=reset value=" 清除 "></td></tr></table></form></blockquote>,N*p|G
<div align=right>i
<form action="$cgi_f" method=$met>_i
<input type=hidden name=mode value=del>o'
<input type=password name=pass size=6><input type=submit value=" 管理用 "><br>|/zxp
</form></div>3d5=Y
_form_QE(s8`
}©雷傲繁體中文網 -- 雷傲專屬討論網，探討一切有關雷傲繁體版本的相關問題與技術支援！　　 EpI
#©雷傲繁體中文網 -- 雷傲專屬討論網，探討一切有關雷傲繁體版本的相關問題與技術支援！　　 43h
# [トップページ表示]B3
#©雷傲繁體中文網 -- 雷傲專屬討論網，探討一切有關雷傲繁體版本的相關問題與技術支援！　　 WxS-4*
sub html_ {P
open(LOG,"$log") || &er_("Can't open $log");q%
@lines = <LOG>;~
close(LOG);|v^h
@NEW = ();,
foreach (0 .. $#lines) {a
($namber,$date,$name,$email,$d_may,$comment,$url,FG
$space,$end,$type,$del,$ip,$tim) = split(/<>/,$lines[$_]);Z2
©雷傲繁體中文網 -- 雷傲專屬討論網，探討一切有關雷傲繁體版本的相關問題與技術支援！　　 =
if ($type == 0) { push(@NEW,$lines[$_]); }h
}©雷傲繁體中文網 -- 雷傲專屬討論網，探討一切有關雷傲繁體版本的相關問題與技術支援！　　 B'&_
@lines = reverse(@lines);9ef(x@
&hed_;ry*=j
print <<"_HTML_"; 1m
□<a href="$cgi_f?mode=n_w"> 新到記事</a>=
$newt_link　(^)ggL
□ 一覽表\示　i
□<a href="$srch"> 關鍵字檢索</a>n/
$klog_link'E[Llb
<hr width=90\%>s4er@
<table cellspacing=0 cellpadding=0><tr><td>dhKR
$com_top\Qc1v
</td></tr><tr><td>F]K
■ 在$new_t小時以內產生的新主題會用 $new_i 來表\示出來。<br>X?0
■ 在$new_t小時以內有回覆的主題會用 $up_i_ 來表\示出來。<br>7
■ 要\閱\覽\某\主\題\的內文時，只須按下該討論主題的標題文字。aB~v
</td></tr></table><hr width=70\% size=5>\!xC
_HTML_7$P#
$total=@NEW;+,;I
$page_=int(($total-1)/($a_max*$tab_m));td<;"
$k=0;$q=0;o65
for($i=0;$i<$tab_m;$i++){re
if($k){$p=$tab_m-$i;$page+=$a_max*$p;last;})^Pw`
print <<"_HTML_";#<B
<br><table width=90% border><tr bgcolor=$ttb>f.Q
<th>討論主題</th>p#
<th>總記事數</th><th>討論提出者</th><th>最近發言者</th><th>最近更新</th>Q{dt^
_HTML_#|
if($end_f){print"<th>解決</th>";}b?Q1/=
print"</tr>";RtP
if($form{'page'} eq "" && $q==0) { $page = 0; }V+@Q&
elsif($form{'page'} ne "" && $q==0){$page=$form{'page'};}AWK<
$end_data=@NEW-1;?<}"g
$page_end=$page+($a_max-1);-,[
if($q){$page+=$a_max;$page_end+=$a_max;}~%RXn
if($page_end >= $end_data) {$page_end=$end_data;$k=1;}`gW53
foreach ($page .. $page_end) {4Su
($namber,$date,$name,$email,$d_may,$comment,$url,+!8
$space,$end,$type,$del,$ip,$tim) = split(/<>/,$NEW[$_]);V
if(($time_k - $tim) > $new_t*3600){ $news = "$hed_i"; }6F6
else { $news = "$new_i"; }*D{0
if($email ne ""){ $name="<a href=\"mailto:$email\">$name</a>"; }Gq
if($d_may eq ""){ $d_may = "No title"; }''m`hs
if(length($d_may)>$t_max){$d_may=substr($d_may,0,($t_max-2));$d_may="$d_may.."; }&|E
$reok="<br>";$date=substr($date,6,15);"zS|[
$ksu=1;&c'
foreach $lines(@lines) {`=
($rnam,$rd,$rname,$rmail,$rdm,$rcom,$rurl,D
$rsp,$re,$rtype,$del,$ip,$rtim) = split(/<>/,$lines);zv]%vV
if($namber eq "$rtype"){]
if($re ne ""){$reok="$end_ok";}_!f
$ksu++;NjDDQ
if(($time_k-$rtim)>$new_t*3600){ $news="$hed_i"; }e"!w6
else { $news = "$up_i_";}t5`oj`
if($rmail ne "") { $rn="<a href=\"mailto:$rmail\">$rname</a>"; }else{$rn="$rname";}RYa
$rdd=substr($rd,6,15);Px|=v
}©雷傲繁體中文網 -- 雷傲專屬討論網，探討一切有關雷傲繁體版本的相關問題與技術支援！　　 gbX
}©雷傲繁體中文網 -- 雷傲專屬討論網，探討一切有關雷傲繁體版本的相關問題與技術支援！　　 y_9EMl
if($rdd eq ""){$rdd="$date";},q&\,}
if($rn eq "") {$rn="$name";}&=r0 b
print <<"_HTML_";Vq0pE
<tr bgcolor=$obg align=center>$&GPkl
<td align=left>k$
<a href="$cgi_f?mode=all&namber=$namber&rev=$r">$news $d_may</a></td>`Fs
<th>$ksu件</th><td>$name</td><td>$rn</td><td>$rdd</td>7{qZ::
_HTML_[sGsvW
if($end_f){print"<td>$reok</td>";}]"4,
print"</tr>";(L^p
$rdd="";$rn="";D{rB.
}©雷傲繁體中文網 -- 雷傲專屬討論網，探討一切有關雷傲繁體版本的相關問題與技術支援！　　 n!
print"</table><br><hr width=70\%>\n";$q=1;nHl.
}©雷傲繁體中文網 -- 雷傲專屬討論網，探討一切有關雷傲繁體版本的相關問題與技術支援！　　 {
$page-=$a_max*($tab_m-1);,vZXhU
$a_max=$a_max*$tab_m;m%0zrA
$next_line = $page_end + 1;R2
$back_line = $page - $a_max;zXqVt
print "<table><tr>\n";L*6=
if ($back_line >= 0) {I2,qCh
print <<"_BACK_";8BHF!8
<td><form method="post" action="$cgi_f">Fyh?Y
<input type=hidden name=page value="$back_line">BRJlh
<input type=submit value="前$a_max個主題">T0#i
</form></td>rn&
_BACK_1W
}©雷傲繁體中文網 -- 雷傲專屬討論網，探討一切有關雷傲繁體版本的相關問題與技術支援！　　 Q
if ($page_end ne $end_data) {'I
print <<"_NEXT_";a
<td><form method="post" action="$cgi_f">mNzn
<input type=hidden name=page value="$next_line">7#:2A_
<input type=submit value="下$a_max個主題">i
</form></td>aq %
_NEXT_CTT8e3
}©雷傲繁體中文網 -- 雷傲專屬討論網，探討一切有關雷傲繁體版本的相關問題與技術支援！　　 Ya+
print"</tr></table>分頁顯示：";/!PI
$a=0;^^kK4
for($i=0;$i<=$page_;$i++){o=+F6
$af=$page/$a_max;JC
if($i eq $af){ print "[<b>$i</b>] \n";A
}else{/H0Y
print "[<A HREF=\"$cgi_f?page=$a\">$i</A>]\n";oxv(j
}©雷傲繁體中文網 -- 雷傲專屬討論網，探討一切有關雷傲繁體版本的相關問題與技術支援！　　 W4^.Y
$a+=$a_max;cs6O
}©雷傲繁體中文網 -- 雷傲專屬討論網，探討一切有關雷傲繁體版本的相關問題與技術支援！　　 f=DM;)
print "</center><hr width=70\% size=5>\n";.c*
if ($cou) { &con_; }~V[}A#
print <<"_HTML_";I+a
<div align=right>KUs@ e
<form action="$cgi_f" method=$met>D;4iMk
<input type=hidden name=mode value=del>PPC
<input type=password name=pass size=6><input type=submit value="管理用"><br>-;
</form></div>YYbH
_HTML_S.as
©雷傲繁體中文網 -- 雷傲專屬討論網，探討一切有關雷傲繁體版本的相關問題與技術支援！　　 5Rp
&foot_;mc^{C1
}©雷傲繁體中文網 -- 雷傲專屬討論網，探討一切有關雷傲繁體版本的相關問題與技術支援！　　 "?#`#B
#©雷傲繁體中文網 -- 雷傲專屬討論網，探討一切有關雷傲繁體版本的相關問題與技術支援！　　 7HoHl
# [新著記事表示]aW
#©雷傲繁體中文網 -- 雷傲專屬討論網，探討一切有關雷傲繁體版本的相關問題與技術支援！　　 Yl>>
sub n_w_ {fb
open(DB,"$log");E
@lines = <DB>;z2a*k
close(DB);z$Mo][
@lines = reverse(@lines);G
&hed_;\9$
print <<"_FTOP_";J-pWO
□ 新到記事G(
$newt_link　Ik+
□<a href="$cgi_f"> 一覽表\示</a>　 tzr
□<a href="$srch"> 關鍵字檢索</a>(h
$klog_linkw
<hr width=90\%><br>*8/j
■ 最近$new_t小時以內的$new_s件新到記事。<br><br>ROKJu1
_FTOP_@3pK!
$i=0;]+K1xr
foreach $line (@lines) {>K(F3M
($nam,$date,$name,$email,$d_may,$comment,$url,.JV${
$sp,$end,$ty,$del,$ip,$tim) = split(/<>/,$line);XJ;
if($i >= $new_s){last;}K!\
if(($time_k - $tim) <= $new_t*3600){.D()81
if($email ne ""){$name="<a href=\"mailto:$email\">$name</a>";}v;WV
if($d_may eq ""){$d_may = "No title";}Z`$a
if($url ne ""){$url = "<a href=\"http://$url\" target=\"_top\">http://$url</a>";}y`
$comment="<br>$comment";{}GlV
&auto_($comment);|`8R
if($ty == 0){$num="$nam";}else{$num="$ty";}IL
print <<"_KIJI_";gn"
<hr width=90\%><br>b.
<table width=80\% bgcolor=$k_back cellpadding=10>u=1-
<tr><td><b><ul>L kw[~
<font color=$kijino>[$nam]</font> <font color=$t_font>$d_may</font></b><br>■$end■<br>D,l #t
</b>O
□投稿者：$name<br>3c
□投稿日：$date<br>+dG+v
□網址：$url<br>;R
<ul>N
$comment<br></ul></ul>nEoi4
<div align=right>0V2
<a href="$cgi_f?mode=all&namber=$num&rev=$r"><b>一覽本主題的所有記事</b></a>　W,
</div></td></tr></table><br>P_mD
_KIJI_p69s&
$i++;$num="";$
}©雷傲繁體中文網 -- 雷傲專屬討論網，探討一切有關雷傲繁體版本的相關問題與技術支援！　　 _?Tb%W
}©雷傲繁體中文網 -- 雷傲專屬討論網，探討一切有關雷傲繁體版本的相關問題與技術支援！　　 lM!
if($i==0){print"<br>沒有任何新到記事。<br><br>\n";} [
&foot_;U$ N/L
}©雷傲繁體中文網 -- 雷傲專屬討論網，探討一切有關雷傲繁體版本的相關問題與技術支援！　　 #7
#©雷傲繁體中文網 -- 雷傲專屬討論網，探討一切有關雷傲繁體版本的相關問題與技術支援！　　 p
# [トピック追加]W
#©雷傲繁體中文網 -- 雷傲專屬討論網，探討一切有關雷傲繁體版本的相關問題與技術支援！　　 Ub40?
sub new_ {H?5$=,
if($topok==0){if($form{'pass'} ne "$pass"){ &er_("密碼不正確。"); }}r9:SBr
&hed_;KBe
print <<"_FTOP_";F/$w(
□<a href="$cgi_f?mode=n_w"> 新到記事</a>　"D9
□ 貼上歌詞徵求　vC
□<a href="$cgi_f"> 一覽表\示</a>　E53
□<a href="$srch"> 關鍵字檢索　</a>?V
$klog_link=
<hr width=90\%><table bgcolor=$k_back><tr><td>2
$atcom</td></tr></table><hr width=90\%>\tbd
_FTOP_uQ4M
&forms_;}_
&foot_;0J;7
}©雷傲繁體中文網 -- 雷傲專屬討論網，探討一切有關雷傲繁體版本的相關問題與技術支援！　　 y9J/+
#©雷傲繁體中文網 -- 雷傲專屬討論網，探討一切有關雷傲繁體版本的相關問題與技術支援！　　 ?ClCA
# [コメント引用]QdpSL9
#©雷傲繁體中文網 -- 雷傲專屬討論網，探討一切有關雷傲繁體版本的相關問題與技術支援！　　 ;xTy
sub comin_{g[9D
if($sp==0){$re=1;}elsif($sp>0){$re=$sp/15+1;}.f_
if($d_may=~ /Re/){-U8`
$resuji=index("$d_may" , "\:");r^<N
$d_may =~ s/\:\ //;.L
$d_may=substr($d_may,$resuji);4Ps
}©雷傲繁體中文網 -- 雷傲專屬討論網，探討一切有關雷傲繁體版本的相關問題與技術支援！　　 g1
$ti="Re[$re]: $d_may";$space=$sp;.
$com="> $co";r
$com=~ s/<br>/\r> /g;{\f"}A
$com=~ s/> > />>/g;:[
}©雷傲繁體中文網 -- 雷傲專屬討論網，探討一切有關雷傲繁體版本的相關問題與技術支援！　　 ,B9c
#©雷傲繁體中文網 -- 雷傲專屬討論網，探討一切有關雷傲繁體版本的相關問題與技術支援！　　 JgJA>Q
# [トピック表示]*U*#\s
#©雷傲繁體中文網 -- 雷傲專屬討論網，探討一切有關雷傲繁體版本的相關問題與技術支援！　　 0
sub all_ {@GEds2
$rev=$form{'rev'};lcjC
open(DB,"$log");Wc`}
@lines = <DB>;r
close(DB);ur
@lines=reverse(@lines);I6
@TOP = ();$k=0;f
foreach (0 .. $#lines) {.PQ:iX
($nam,$da,$na,$mail,$d_may,$co,$ur,$sp,$end,$ty,$de,$ip,$time) = split(/<>/,$lines[$_]);-z_Q
if(($ty == 0 && $namber eq "$nam")||($ty != 0 && $namber eq $ty)){4H,j#
push(@TOP,$lines[$_]);$k++;\=,$x
if($mo){if($mo eq $nam){&comin_;}f
}else{&comin_;}-slj
$namb=$nam;r.
}©雷傲繁體中文網 -- 雷傲專屬討論網，探討一切有關雷傲繁體版本的相關問題與技術支援！　　 EW_ZV`
}©雷傲繁體中文網 -- 雷傲專屬討論網，探討一切有關雷傲繁體版本的相關問題與技術支援！　　 m=
if($rev){@TOP=reverse(@TOP);}:||:
$fhy= <<"_F_";2lb
<a name="F"><table width=90\% align=center>)ncp}B
<tr><th bgcolor=$ttb>對這篇記事作出回覆</th></tr></table></a></center>^ 8`
_F_©雷傲繁體中文網 -- 雷傲專屬討論網，探討一切有關雷傲繁體版本的相關問題與技術支援！　　 0}Hq
&hed_;AU
print<<"_ALLTOP_";yV&
□<a href="$cgi_f?mode=n_w"> 新到記事</a>[`$^Q
$newt_link　"3Z^!,
□<a href="$cgi_f"> 一覽表\示</a>　oXL!
□<a href="$srch"> 關鍵字檢索</a>,$Scxc
$klog_link=
<hr width=90\%><form action="$cgi_f" method=$met>w5D
_ALLTOP_ZO
if($rev == 0){RA
print<<"_REV_";5-1
<b>[<a href="$cgi_f?mode=all&namber=$namber&rev=1">^|<V
將回覆表格及最新回覆作優先顯示</a>u$
]</b><hr width=90\%>F$mq
_REV_©雷傲繁體中文網 -- 雷傲專屬討論網，探討一切有關雷傲繁體版本的相關問題與技術支援！　　 3
}elsif($rev){7_vf5*
print<<"_REV_";*@
<b>[<a href="$cgi_f?mode=all&namber=$namber&rev=0">mPzPn!
將歌詞徵求原文作優先顯示</a>+z
]</b><hr width=90\%>+
_REV_©雷傲繁體中文網 -- 雷傲專屬討論網，探討一切有關雷傲繁體版本的相關問題與技術支援！　　 %e
}©雷傲繁體中文網 -- 雷傲專屬討論網，探討一切有關雷傲繁體版本的相關問題與技術支援！　　 aK\:Y
if($rev){print"$fhy";&forms_;print"<center>";}vI
$total=@TOP;Z
$page_=int(($total-1)/$topic);_ujM^
if ($form{'page'} eq '') { $page = 0; }/
else { $page = $form{'page'}; }L<'
$end_data=@TOP-1;:nG?3
$page_end=$page+($topic-1);.)1A
if ($page_end >= $end_data) { $page_end = $end_data; }DNe
$i=0;j%
foreach ($page .. $page_end) {N
($nam,$date,$name,$email,$d_may,$comment,$url,_&)U
$sp,$end,$ty,$del,$ip,$tim) = split(/<>/,$TOP[$_]);WP2s
if(($ty == 0 && $namber eq "$nam")||($ty != 0 && $namber eq $ty)){-xf
if($end ne ""){$end="$end_ok / ";}elsif($ty==0){$end="原主題 ";}6c3"
if($email ne ""){ $name="<a href=\"mailto:$email\">$name</a>"; }p hA;
if($d_may eq ""){ $d_may = "No title"; }P|
if($url ne ""){$url="<a href=\"http://$url\" target=\"_top\">http://$url</a>";}+E+
$comment="<br>$comment";wf
&auto_($comment);.!^/
if($i==0){$i=1;$tops=" bgcolor=$ttb>主題內容表\示</th>\n";};(M%Qd
else{$tops="><hr width=90\%>";} 'I`z^
$fp=$topic*$page_;.
print <<"_KIJI_";'?
<table width=90\% bgcolor=$k_back cellspacing=0 cellpadding=0 border=0>M
<tr><th colspan=2$tops</th></tr>pmsB
<tr><td width=95\%><ul><br><b>[5
<font color=$kijino>[$nam]</font>;> j
<font color=$t_font>$d_may</font></b>-<input type=radio value=$nam name=del><br><br>R[Z
■$end<a href="$cgi_f?mode=all&mo=$nam&namber=$namber&rev=$rev&page=$fp#F">引用本篇文字</a>■|..ssv
<br><br>□投稿者： $name<br>□投稿日： $date<br>□網址： $urlTkPLcP
<ul>$comment</ul></ul><br></td><td width=95\%><br></td></tr></table>aQ<
_KIJI_g
}©雷傲繁體中文網 -- 雷傲專屬討論網，探討一切有關雷傲繁體版本的相關問題與技術支援！　　 05
}©雷傲繁體中文網 -- 雷傲專屬討論網，探討一切有關雷傲繁體版本的相關問題與技術支援！　　 txjh
print <<"_DEL_";K|p
</center><ul>將點選的記事：<select name=mode>yu/O
<option value=key>刪除JF
<option value=nam>編輯X
</select>#cerN
　刪除密碼：<input type=password name=delkey size=4>cvg
<input type=submit value="處理"></ul>?=TT:
</form><center><table border=0><tr>H:V2z
_DEL_©雷傲繁體中文網 -- 雷傲專屬討論網，探討一切有關雷傲繁體版本的相關問題與技術支援！　　 v+
$nl=$page_end + 1;iN0~%-
$bl=$page - $topic;,`q
©雷傲繁體中文網 -- 雷傲專屬討論網，探討一切有關雷傲繁體版本的相關問題與技術支援！　　 9h
if ($bl >= 0) {ay
print "<td><b>[<a href=\"$cgi_f?mode=all&namber=$namber&page=$bl&rev=$rev\">";$TU
print "前$topic件記事內容</a>]</b></td>\n";|zgJ
}©雷傲繁體中文網 -- 雷傲專屬討論網，探討一切有關雷傲繁體版本的相關問題與技術支援！　　 AfiWpR
if ($page_end ne $end_data) {u`
print "<td><b>[<a href=\"$cgi_f?mode=all&namber=$namber&page=$nl&rev=$rev\">";Jkj
print "下$topic件記事內容</a>]</b></td>\n";VtH-
}©雷傲繁體中文網 -- 雷傲專屬討論網，探討一切有關雷傲繁體版本的相關問題與技術支援！　　 E<ZX*
print"</tr></table><br>分頁顯示關於本主題的記事內容：";E
$a=0;k^2
for($i=0;$i<=$page_;$i++){Mp]m
$af=$page/$topic;F2d
if($i eq $af){ print "[<b>$i</b>] \n";k8B7RY
}else{fpbR
print "[<A HREF=\"$cgi_f?mode=all&namber=$namber&page=$a&rev=$rev\">$i</A>]\n";dSJN
}©雷傲繁體中文網 -- 雷傲專屬討論網，探討一切有關雷傲繁體版本的相關問題與技術支援！　　 n5[bs
$a+=$topic;3,
}©雷傲繁體中文網 -- 雷傲專屬討論網，探討一切有關雷傲繁體版本的相關問題與技術支援！　　 w}(6c;
if($total <= ($page+$topic) && $rev==0){ab}+e:
print"<br><br>$fhy</center>";z*1GUc
&forms_;xH3
}elsif($total >= ($page+$topic) && $rev==0){RA+v
$page=$i-1;$a-=$topic;s0"E
print <<"_WR_";vB"ytq
<br><br><b>要對本主題作出回覆，請移行到第k*t$R
[<A HREF="$cgi_f?mode=all&namber=$namber&page=$a">$page</a>]lhI
頁的最下部。</b>-rR;
_WR_©雷傲繁體中文網 -- 雷傲專屬討論網，探討一切有關雷傲繁體版本的相關問題與技術支援！　　 xM<|:l
}©雷傲繁體中文網 -- 雷傲專屬討論網，探討一切有關雷傲繁體版本的相關問題與技術支援！　　 dtI
&foot_;\L} $
}©雷傲繁體中文網 -- 雷傲專屬討論網，探討一切有關雷傲繁體版本的相關問題與技術支援！　　 |+Og
#©雷傲繁體中文網 -- 雷傲專屬討論網，探討一切有關雷傲繁體版本的相關問題與技術支援！　　 ~$Y),
# [ログ書きこみ處理]P/W U
#©雷傲繁體中文網 -- 雷傲專屬討論網，探討一切有關雷傲繁體版本的相關問題與技術支援！　　 E
sub wri_ {G/OQ ~
if($form{'name'} eq ""){ &er_("忘記輸入名字。"); }kja<aM
if($form{'comment'} eq ""){ &er_("忘記輸入內容。"); }!;m
if(length($delkey) > 8){ &er_("刪除密碼必須為英數8文字以內。"); }lD"*
if ($locks == 1) { &lock_; }Q)XlX>
open(LOG,"$log") || &er_("Can't open $log");VU',
@lines = <LOG>;q=
close(LOG);SnyBN
if($bup){&backup_;},8Z`
($knum,$kd,$kname,$kem,$ksub,$kcom) = split(/<>/,$lines[0]);]>gw
if($namber eq "") {$namber = $knum + 1;}{c~VqJ
if($kd eq "" && $kcom eq ""){splice(@lines,0,1);}\I<
&set_;@b^gr
&cry_;x
$ipip = $ENV{'REMOTE_ADDR'};p+EE(
$oya=0;`0a7~g
if ($res_r == 1 && $type != 0) {N"%(
@r_date = ();@new = ();tm
foreach (0 .. $#lines) {KRosc
$resres = 0;?Y5Hu
($nam,$d,$na,$mail,$d_m,$com,$u,$s,$e,$ty,$de,$ip,$tim) = split(/<>/,$lines[$_]);M
if($name eq $na && $comment eq $com && $d_may eq $d_m) { &er_("不能送出相同的內容。"); }Z jay
if ($ty == 0 && $nam eq "$type") {nAY
$new_line = "$nam<>$d<>$na<>$mail<>$d_m<>$com<>$u<>$s<>$e<>$ty<>$de<>$ip<>$tim<>\n";bjjr
$resres = 1;d
}elsif ($ty eq "$type") {A&o
if($nam eq "$kiji"){2*=:
push(@r_data,"$namber<>$date<>$name<>$email<>$d_may<>$comment<>$url<>$space<>$end<>$type<>$epasswd<>$ipip<>$time_k<>\n");LZ6fSs
$oya=1;Z0N
}©雷傲繁體中文網 -- 雷傲專屬討論網，探討一切有關雷傲繁體版本的相關問題與技術支援！　　 ;`_=kI
push(@r_data,$lines[$_]);iC\t17
$resres = 1;&Fb2=
}©雷傲繁體中文網 -- 雷傲專屬討論網，探討一切有關雷傲繁體版本的相關問題與技術支援！　　 |*0xa
if ($resres == 0) { push(@new,$lines[$_]); }R>nn
}©雷傲繁體中文網 -- 雷傲專屬討論網，探討一切有關雷傲繁體版本的相關問題與技術支援！　　 '1qh
if($tpmax != 0){4XoW`
if(@r_data > $tpmax-1){?agI
while (@r_data > ($tpmax-1)){ pop(@r_data); }2
@r_data=reverse(@r_data);x[Z?L
($rn,$rd,$rnm,$rml,$rdm,$rco,$ru,$rs,$re,$rt,$rde,$ri,$rti) = split(/<>/,$r_data[0]);<\<QmQ
($n,$d,$nm,$ml,$dm,$co,$u,$s,$e,$t,$de,$i,$ti) = split(/<>/,$new_line);SmYGY
$new_line="$n<>$rd<>$rnm<>$rml<>$dm<>$rco<>$ru<>0<>$re<>0<>$rde<>$ri<>$rti<>\n";MV
@r_data=reverse(@r_data);7fSd
pop(@r_data)1qms
}©雷傲繁體中文網 -- 雷傲專屬討論網，探討一切有關雷傲繁體版本的相關問題與技術支援！　　 u[E
}©雷傲繁體中文網 -- 雷傲專屬討論網，探討一切有關雷傲繁體版本的相關問題與技術支援！　　 C4Xe]
unshift(@new,$new_line);cBiZ;
unshift(@new,@r_data);Wi
}else{!
$h = 0;8t]w
foreach (0 .. $#lines) {I77aB
($nam,$d,$na,$mail,$d_m,$com,$u,$s,$e,$ty,$de,$ip,$tim) = split(/<>/,$lines[$_]);yg|
$rn =~ s/\n/0/;#gJ~:
if ($ty == 0) { $h++; }H(
push(@new,$lines[$_]);Ij_1r(
if ($h >= $max-1) { last; }N|B*?
}©雷傲繁體中文網 -- 雷傲專屬討論網，探討一切有關雷傲繁體版本的相關問題與技術支援！　　 R
}©雷傲繁體中文網 -- 雷傲專屬討論網，探討一切有關雷傲繁體版本的相關問題與技術支援！　　 %84N'~
if($type==0 || $oya==0){.//
unshift(@new,"$namber<>$date<>$name<>$email<>$d_may<>$comment<>$url<>$space<>$end<>$type<>$epasswd<>$ipip<>$time_k<>\n");HPn
}elsif($oya){unshift(@new,"$namber<><><><><><><><><>$namber<><><><>\n");}Uj
©雷傲繁體中文網 -- 雷傲專屬討論網，探討一切有關雷傲繁體版本的相關問題與技術支援！　　 !@-
open(LOG,">$log") || &er_("Can't write $log");1a
print LOG @new;5*1AFy
close(LOG);f>E
©雷傲繁體中文網 -- 雷傲專屬討論網，探討一切有關雷傲繁體版本的相關問題與技術支援！　　 E6;N2
if ($klog_s) { &log_; }b]8sJ@
if (-e $lockf) { unlink($lockf); }-vK"et
©雷傲繁體中文網 -- 雷傲專屬討論網，探討一切有關雷傲繁體版本的相關問題與技術支援！　　 |
if ($mymail == 0){x}>_q
if ($t_mail == 1 && $form{'email'} ne $mailto) { &mail_; }R
} elsif ($mymail == 1){>k
if ($t_mail == 1) { &mail_; }XjT%1
}©雷傲繁體中文網 -- 雷傲專屬討論網，探討一切有關雷傲繁體版本的相關問題與技術支援！　　 7|XvI
}©雷傲繁體中文網 -- 雷傲專屬討論網，探討一切有關雷傲繁體版本的相關問題與技術支援！　　 ~'dp2{
#©雷傲繁體中文網 -- 雷傲專屬討論網，探討一切有關雷傲繁體版本的相關問題與技術支援！　　 9#U7V
# [記事一括削除]Me%M
#©雷傲繁體中文網 -- 雷傲專屬討論網，探討一切有關雷傲繁體版本的相關問題與技術支援！　　 On:Bkj
sub s_d_ {&.2=W~
if ($form{'pass'} ne "$pass") { &er_("密碼不正確。"); }bPST
open(DB,">$log");P|F
printf DB "";\/@
close(DB);E:?f$\
}©雷傲繁體中文網 -- 雷傲專屬討論網，探討一切有關雷傲繁體版本的相關問題與技術支援！　　 m
#©雷傲繁體中文網 -- 雷傲專屬討論網，探討一切有關雷傲繁體版本的相關問題與技術支援！　　 ia
# [說明書]?V'hp
#©雷傲繁體中文網 -- 雷傲專屬討論網，探討一切有關雷傲繁體版本的相關問題與技術支援！　　 %R%
sub man_ {`V|?
&hed_;TX$&
if($end_f){$end_msg="<li>當您貼上歌詞解決別人提出的徵求時、請點選一下 $end_ok <b>BOX</b> 來代表本主題已經得到解決。</li>\n";}|yWT
if($topok){$new_msg="<li>使用<b>「貼上新主題」</b>來追加您想和大家討論的題目。</li>\n";}Q
print <<"_HTML_";u;x
□<a href="$cgi_f?mode=n_w"> 新到記事</a>F,~
$newt_link　Z#4
□<a href="$cgi_f"> 一覽表\示</a>　{-fZ
□<a href="$srch"> 關鍵字檢索</a>>hhWo
$klog_linkHn
<hr width=90\%>[
<table width=90\%><tr><th bgcolor="$ttb">$title 使用說明書</th></tr></table>F.G
<center><table width=65% align=center bgcolor=$k_back><tr><td>KF$omz
□ 使用時的注意事項$sX:
<ul>P5b(t,
<li>本歌詞徵求板為<b>Comment Link型式</b>的BBS。</li>Nivw]U
<li>按下<b>一覽顯示頁</b>的徵求主題文字\來\閱\覽\有\關徵求的內容、也能對該徵求作出回覆。</li>Mr(_C+
$new_msgGr}
<li><b>「新到記事」</b>顯示的是最近 <b>$new_t</b> 小時內的 <b>$new_s</b> 件新增主題及回覆記事。</li>I2|ZO
<li><b>「關鍵字檢索」</b>可以用來檢索記錄文件中的特定字詞。</li>"
<li>現行記錄<b>最多能保留 $max 個</b>主題。</li>Q_
<li>本自由討論板支援<b>Cookie</b>。(當瀏覽器的Cookie選項為生效的場合)。</li>m$
$end_msg9
</ul>z$ZR
□ 書寫時的注意事項@
$atcomtA}]s
</td></tr></table></center>Zc(
_HTML_hX
&foot_;<'S.
}©雷傲繁體中文網 -- 雷傲專屬討論網，探討一切有關雷傲繁體版本的相關問題與技術支援！　　 d~Os
#©雷傲繁體中文網 -- 雷傲專屬討論網，探討一切有關雷傲繁體版本的相關問題與技術支援！　　 fd)
# [ヘッダ表示]:F
#©雷傲繁體中文網 -- 雷傲專屬討論網，探討一切有關雷傲繁體版本的相關問題與技術支援！　　 xd9XS
sub hed_ {DXZDp
print "Content-type: text/html\n\n";4
©雷傲繁體中文網 -- 雷傲專屬討論網，探討一切有關雷傲繁體版本的相關問題與技術支援！　　 fH6v
print "<html><head>\n";^RqO1~
print <<"_HTML_";O29
<style TYPE="text/css">p$!4>
=PepRd
</style>\
h!c)|
<title>$title</title>S~
<META HTTP-EQUIV="Content-type" CONTENT=\"text/html; charset=big5">s7
</head>\
_HTML_J^u*L
print"<body text=$text link=$link vlink=$vlink bgcolor=$bg";-!X
if ($back ne "") { [Xv
print " background=\"$back\">\n";,JpUjI
} elsif ($back eq "") { (6%gw
print ">\n";M^Q
}©雷傲繁體中文網 -- 雷傲專屬討論網，探討一切有關雷傲繁體版本的相關問題與技術支援！　　 `;J8
print <<"_HTML_";$
,%uI
©雷傲繁體中文網 -- 雷傲專屬討論網，探討一切有關雷傲繁體版本的相關問題與技術支援！　　 VeCYE%
0zDl
_HTML_N
print "<center>\n";E \@
if ($t_img eq "") {<7
print "<font color=$tcolor face=\"$tface\" size=$tsize>$title</font>\n";WX'T
} elsif ($t_img ne "") {:A
print "<img src=\"$t_img\" width=$twid height=$thei>\n";Wz
}©雷傲繁體中文網 -- 雷傲專屬討論網，探討一切有關雷傲繁體版本的相關問題與技術支援！　　 B
print <<"_HTML_";?FW(?
<hr width=90%>o-6
□<a href="$backurl"> 回到主頁</a>　M/
□<a href="$cgi_f?mode=man"> 使用說明</a>　=UCd]O
_HTML_^}~3
}©雷傲繁體中文網 -- 雷傲專屬討論網，探討一切有關雷傲繁體版本的相關問題與技術支援！　　 g/
#©雷傲繁體中文網 -- 雷傲專屬討論網，探討一切有關雷傲繁體版本的相關問題與技術支援！　　 R]oD
# [フッタ表示]^$
#©雷傲繁體中文網 -- 雷傲專屬討論網，探討一切有關雷傲繁體版本的相關問題與技術支援！　　 bZ0
sub foot_ {[b?cqx
print <<"_HTML_";y~
PbhWU
<center><hr width=90\%>77\|X
- <a href="http://www2u.biglobe.ne.jp/~ryu_1/cj_c/" target="_top">Child Forum</a> - - <a href=\"http://www.bigfoot.com/~fukikae\" target=\"_blank\">配音間</a> -lnA
b@U-"
<CENTER>$adbanner</center>}R
a
</center>5S
_HTML_}9K
print "</body></html>\n";,5$
exit;C%+;?&
}©雷傲繁體中文網 -- 雷傲專屬討論網，探討一切有關雷傲繁體版本的相關問題與技術支援！　　 &
©雷傲繁體中文網 -- 雷傲專屬討論網，探討一切有關雷傲繁體版本的相關問題與技術支援！　　 tb
#©雷傲繁體中文網 -- 雷傲專屬討論網，探討一切有關雷傲繁體版本的相關問題與技術支援！　　 s@b9
# [フォームなどのデコード]ip2U
#©雷傲繁體中文網 -- 雷傲專屬討論網，探討一切有關雷傲繁體版本的相關問題與技術支援！　　 ZbL7
sub d_code_ {J6a
if ($ENV{'REQUEST_METHOD'} eq "POST") {;F<G
if ($ENV{'CONTENT_LENGTH'} > 51200) { &error("文章的長度過大！"); }R
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});^
} else { $buffer = $ENV{'QUERY_STRING'}; }9g
©雷傲繁體中文網 -- 雷傲專屬討論網，探討一切有關雷傲繁體版本的相關問題與技術支援！　　 Q
@pairs = split(/&/,$buffer);HkP
foreach $pair (@pairs) {PaCw
($name, $value) = split(/=/, $pair);*/P@P
$value =~ tr/+/ /;'hChs^
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;ce!{F
©雷傲繁體中文網 -- 雷傲專屬討論網，探討一切有關雷傲繁體版本的相關問題與技術支援！　　 MK{
# &jcode'convert(*value,'sjis');C~X
©雷傲繁體中文網 -- 雷傲專屬討論網，探討一切有關雷傲繁體版本的相關問題與技術支援！　　 H!}
if ($tag == 0) {d
$value =~ s/</\<\;/g;,S:B&U
$value =~ s/>/\>\;/g;]
$value =~ s/\"/\"\;/g;X
} else {74lo;
$value =~ s/<>/\<\;\>\;/g;F9)2B
$value =~ s///g;Q=`
}©雷傲繁體中文網 -- 雷傲專屬討論網，探討一切有關雷傲繁體版本的相關問題與技術支援！　　 Y20
$form{$name} = $value;rMP<
if ($name eq 'del') { push(@d_,$value); }ZX)\Q
}©雷傲繁體中文網 -- 雷傲專屬討論網，探討一切有關雷傲繁體版本的相關問題與技術支援！　　 X:l
©雷傲繁體中文網 -- 雷傲專屬討論網，探討一切有關雷傲繁體版本的相關問題與技術支援！　　 eF
$d_may= $form{'d_may'};<S
$name = $form{'name'};+lL[A\
$comment = $form{'comment'};$comment =~ s/\r\n/<br>/g;$comment =~ s/\r|\n/<br>/g;7ACp
$email = $form{'email'};Kj
$url = $form{'url'};$url =~ s/^http\:\/\///;:;OB
$mode = $form{'mode'};'`BEJ:
$end = $form{'end'};buX?
$space= $form{'space'};\
$kiji = $form{'kiji'};0k\6Y
$namber=$form{'namber'};&lI<v.
$type = $form{'type'};(1"
$delkey=$form{"delkey"};9^T^%&
$mo =$form{"mo"};n;8GB
©雷傲繁體中文網 -- 雷傲專屬討論網，探討一切有關雷傲繁體版本的相關問題與技術支援！　　 (ys$a
$ENV{'TZ'} = "JST-8";'
$time_k=time;-UbU
($sec,$min,$hour,$mday,$mon,$year,$wday) = localtime($time_k);MSc2b_
$year=$year+1900;U5%svY
$mon++;RgdD
if ($mon < 10) { $mon = "0$mon"; }V_2r
if ($mday < 10) { $mday = "0$mday"; }&<Rw
if ($hour < 10) { $hour = "0$hour"; }ff+W+)
if ($min < 10) { $min = "0$min"; }kb%>
if ($sec < 10) { $sec = "0$sec"; }r
$week = ('Sun','Mon','Tue','Wed','Thu','Fri','Sat') [$wday];I_mdK
©雷傲繁體中文網 -- 雷傲專屬討論網，探討一切有關雷傲繁體版本的相關問題與技術支援！　　 -t?&R8
$date = "$year\/$mon\/$mday\($week\) $hour\:$min\:$sec";EG
}©雷傲繁體中文網 -- 雷傲專屬討論網，探討一切有關雷傲繁體版本的相關問題與技術支援！　　 Koxpl
#©雷傲繁體中文網 -- 雷傲專屬討論網，探討一切有關雷傲繁體版本的相關問題與技術支援！　　 ^;8\j
# [クッキー發行]PNFh
#©雷傲繁體中文網 -- 雷傲專屬討論網，探討一切有關雷傲繁體版本的相關問題與技術支援！　　 LB1
sub set_ { I[R&?1
($secg,$ming,$hourg,$mdayg,$mong,$yearg,$wdayg,$ydayg,$isdstg) = gmtime(time + 30*24*60*60);*4R
$yearg += 1900;$
if ($secg < 10) { $secg = "0$secg"; }Tc::q
if ($ming < 10) { $ming = "0$ming"; }8PC{_
if ($hourg < 10) { $hourg = "0$hourg"; }E*FG
if ($mdayg < 10) { $mdayg = "0$mdayg"; }AvOz,>
$month = ('Jan','Feb','Mar','Apr','May','Jun','Jul','Aug','Sep','Oct','Nov','Dec')[$mong];I\ T
$youbi = ('Sunday','Monday','Tuesday','Wednesday','Thursday','Friday','Saturday')[$wdayg];x
$date_gmt = "$youbi, $mdayg\-$month\-$yearg $hourg:$ming:$secg GMT";l9c%
$cook="name\:$name\,email\:$email\,url\:$url\,delkey\:$delkey";?
print "Set-Cookie: CBBS=$cook; expires=$date_gmt\n";lr
}©雷傲繁體中文網 -- 雷傲專屬討論網，探討一切有關雷傲繁體版本的相關問題與技術支援！　　 y5[x
#©雷傲繁體中文網 -- 雷傲專屬討論網，探討一切有關雷傲繁體版本的相關問題與技術支援！　　 w&vE~
# [クッキー取得]U
#©雷傲繁體中文網 -- 雷傲專屬討論網，探討一切有關雷傲繁體版本的相關問題與技術支援！　　 e`
sub get_ { X
$cookies = $ENV{'HTTP_COOKIE'};lf
@pairs = split(/;/,$cookies);`
foreach $pair (@pairs) {SF`X
($name, $value) = split(/=/, $pair);zS8+*
$name =~ s/ //g;8T}
$DUMMY{$name} = $value;<jt
}©雷傲繁體中文網 -- 雷傲專屬討論網，探討一切有關雷傲繁體版本的相關問題與技術支援！　　 E~fE+F
@pairs = split(/,/,$DUMMY{'CBBS'});A
foreach $pair (@pairs) {VJUQ
($name, $value) = split(/:/, $pair);=|h/{U
$COOKIE{$name} = $value;.CX
}©雷傲繁體中文網 -- 雷傲專屬討論網，探討一切有關雷傲繁體版本的相關問題與技術支援！　　 o
$c_name = $COOKIE{'name'};%o]rz@
$c_email= $COOKIE{'email'};m+R_+[
$c_url = $COOKIE{'url'};j
$c_key = $COOKIE{'delkey'};m{w
if ($form{'name'}) { $c_name = $form{'name'}; }_W.
if ($form{'email'}) { $c_email= $form{'email'}; }F2?
if ($form{'url'}) { $c_url = $url; }n
if ($form{'delkey'}) { $c_key = $form{'delkey'}; }/yZZK
}©雷傲繁體中文網 -- 雷傲專屬討論網，探討一切有關雷傲繁體版本的相關問題與技術支援！　　 q&Mh8{
#©雷傲繁體中文網 -- 雷傲專屬討論網，探討一切有關雷傲繁體版本的相關問題與技術支援！　　 ^`
# [管理ページ]s|g<
#©雷傲繁體中文網 -- 雷傲專屬討論網，探討一切有關雷傲繁體版本的相關問題與技術支援！　　 ElVR
sub del_ {rzRc
if($form{'pass'} ne "$pass"){ &er_("密碼不正確！"); }'vL\7-
&hed_;oOInPx
$a_max=$a_max*$tab_m;O2/
open(DB,"$log");e]
@lines = <DB>;p
close(DB);P
@NEW = ();eGCmC4
foreach (0 .. $#lines) {,
($namber,$date,$name,$email,$d_may,$comment,$url,f2G-
$space,$end,$type,$delk,$ip,$tim) = split(/<>/,$lines[$_]);=ro<R
if ($type == 0 || $type eq "") { push(@NEW,$lines[$_]); }5vc.x
}©雷傲繁體中文網 -- 雷傲專屬討論網，探討一切有關雷傲繁體版本的相關問題與技術支援！　　 yt;I|
$total=@NEW;,a'3
$page_=int(($total-1)/$a_max);{"Xl
@lines = reverse(@lines);a
if (-s $log) { $l_size = -s $log; }else{ $l_size = 0; }X;x
print <<"_HTML_";H)Dn%
□<a href="$cgi_f?mode=new&pass=$pass"> 板主追加新主題</a>　gs37u
□<a href="$cgi_f"> 返回</a><br>D
<hr width=90\%>UL&|d
<table width=90\%><tr><th bgcolor="$ttb">管理模式</th></tr></table></center>O~@lG
現行記錄的檔案大小：$l_size byte[1>
<center><table><tr><td nowrap>/Vgj
■ 想對記事的內容進行編輯時、請按下該記事的標題文字。<br>gwf~\Z
■ 想要刪除某項記事時，請點選它並按下「刪除」按鈕。<br>8;9{i
■ 名字之前的一組數字是該記事投稿者當時的 IP地址。<br>T
□ 刪除主題會令整個和主題有關的記事（包括回覆記事）消失。<br>h&;s
□ 要令某項回覆記事完全消失，要使用「回覆記事完全刪除」。H uebt
</td></tr></table>$msg</center>5PW>"S
<form action=\"$cgi_f\" method=$met>g/0<d
<input type=hidden name=mode value="key"><input type=hidden name=mo value="1">fkC|V
<input type=hidden name=pass value="$form{'pass'}"><hr width=90\%>4@=z
_HTML_O
if ($form{'page'} eq '') { $page = 0; } Sa]=g1
else { $page = $form{'page'}; }64@l
©雷傲繁體中文網 -- 雷傲專屬討論網，探討一切有關雷傲繁體版本的相關問題與技術支援！　　 zG/<
$end_data = @NEW - 1;kmAB
$page_end = $page + ($a_max - 1);7i?
if ($page_end >= $end_data) { $page_end = $end_data; }R}S1ce
©雷傲繁體中文網 -- 雷傲專屬討論網，探討一切有關雷傲繁體版本的相關問題與技術支援！　　 YM!9d
foreach ($page .. $page_end) {(VoPu_
($namber,$date,$name,$email,$d_may,$comment,$url,,3 N
$space,$end,$type,$delkey,$ip) = split(/<>/,$NEW[$_]);3he
if($email ne ""){$name = "<a href=\"mailto:$email\">$name</a>";}GQH=
if($d_may eq ""){$d_may= "No title";}Z5g
if(length($d_may)>$t_max){$d_may=substr($d_may,0,($t_max-2));$d_may="$d_may..";}v)h
$date=substr($date,0,21);2`dC
print <<"_HTML_";q%7r
<ul><input type=radio name="kiji" value="$namber">刪除主題<br>k~
<input type=checkbox name="del" value="$namber">cVJp,
<a href="$cgi_f?mode=nam&pass=$form{'pass'}&kiji=$namber&mo=1">$d_may</a>`
/[$ip]$name <small>($date) <font color=$kijino>NO\.$namber</font></small><br><ul>\s
_HTML_s%2
foreach $lines(@lines) {Gd@H!!
($rnam,$rd,$rname,$rmail,$rdm,$rcom,$rurl,$rsp,$re,$rtype,$rde,$rip) = split(/<>/,$lines);9
if ($namber eq "$rtype"){`mD10[
if($rmail ne "") { $rname="<a href=\"mailto:$rmail\">$rname</a>"; }HPdo?=
if($rd_may eq ""){ $rd_may= "No title"; }N7V`U
if(length($rdm)>$t_max){$rdm=substr($rdm,0,($t_max-2));$rdm="$rdm..";}j%{(
$rd=substr($rd,0,21);Xmn_
if($re ne ""){$re="$end_ok";}^p
print <<"_HTML_";Q%a3AL
<input type=checkbox name="del" value="$rnam">&
<a href="$cgi_f?mode=nam&pass=$form{'pass'}&kiji=$rnam&mo=1">$rdm</a>_0
/[$rip]$rname <small>($rd) <font color=$kijino>NO\.$rnam</font></small> $re<br>z-
_HTML_PbEb
}©雷傲繁體中文網 -- 雷傲專屬討論網，探討一切有關雷傲繁體版本的相關問題與技術支援！　　 H
}©雷傲繁體中文網 -- 雷傲專屬討論網，探討一切有關雷傲繁體版本的相關問題與技術支援！　　 <
print"</ul></ul><hr width=70\%>";YQ X
}©雷傲繁體中文網 -- 雷傲專屬討論網，探討一切有關雷傲繁體版本的相關問題與技術支援！　　 b
print <<"_DEL_";(Zm:q
</table><center>)`
<input type=checkbox name=kiji value=A>回覆記事完全刪除<br>U=
<input type=submit value=" 刪除 ">CA
<input type=reset value=" 重選 "></form>LIXsg
<table border=0>+RB"^g
_DEL_©雷傲繁體中文網 -- 雷傲專屬討論網，探討一切有關雷傲繁體版本的相關問題與技術支援！　　 ;^@
$next_line = $page_end + 1;>_m',5
$back_line = $page - $a_max;=+,.zK
©雷傲繁體中文網 -- 雷傲專屬討論網，探討一切有關雷傲繁體版本的相關問題與技術支援！　　 A}
if ($back_line >= 0) { aD`!
print <<"_BACK_";+-hu
<td><form method="post" action="$cgi_f">-dKS
<input type=hidden name=page value="$back_line">@G
<input type=hidden name=mode value=del>HNd
<input type=hidden name=pass value="$form{'pass'}">Pt/
<input type=submit value="前$a_max個主題">Y
</form></td>h
_BACK_wb/d|E
}©雷傲繁體中文網 -- 雷傲專屬討論網，探討一切有關雷傲繁體版本的相關問題與技術支援！　　 1kD
if ($page_end ne $end_data) {|
print <<"_NEXT_";Q#
<td><form method="post" action="$cgi_f">-7e
<input type=hidden name=page value="$next_line">)5T4
<input type=hidden name=pass value="$form{'pass'}">l="94o
<input type=hidden name=mode value=del>zeE,r^
<input type=submit value="下$a_max個主題">/6
</form></td>_CEw^
_NEXT_O|D
}©雷傲繁體中文網 -- 雷傲專屬討論網，探討一切有關雷傲繁體版本的相關問題與技術支援！　　 p)|)}[
print "</table>分頁顯示：\n";p"hh\c
$a=0;>
for($i=0;$i<=$page_;$i++){J^fiDC
$af=$page/$a_max;O
if($i eq $af){ print "[<b>$i</b>] \n";^af/n
}else{B,};/o
print "[<A HREF=\"$cgi_f?mode=del&page=$a&pass=$pass\">$i</A>]\n";B
}©雷傲繁體中文網 -- 雷傲專屬討論網，探討一切有關雷傲繁體版本的相關問題與技術支援！　　 NAP #
$a+=$a_max;ji
}©雷傲繁體中文網 -- 雷傲專屬討論網，探討一切有關雷傲繁體版本的相關問題與技術支援！　　 ]
if($bup){e75%
if(-e $bup_f){ $bl=int(-M $bup_f);$bs=-s $bup_f;Frkg
$bc="$bs byte、$bl 日前的備份檔案存在。";Gj
}else{$bc="沒有備份檔案。";}|G
print <<"_BUP_";%WV@5=
<center><hr width=90%><form action=$cgi_f method=$met>yg=,<
<input type=hidden name=mode value="bma">使用備份檔案來修復現行記錄（只限開動了備份功能的板使用）。Sk
<br>$bc<br><input type=submit value="修復現行記錄">s"IO9M
</form>R1eVd
_BUP_©雷傲繁體中文網 -- 雷傲專屬討論網，探討一切有關雷傲繁體版本的相關問題與技術支援！　　 \*:ye
}©雷傲繁體中文網 -- 雷傲專屬討論網，探討一切有關雷傲繁體版本的相關問題與技術支援！　　 &gxE
print <<"_HTML_";<_]oa
<hr width=90%><form action=$cgi_f method=$met>格式化記錄檔案（絕對危險！）Ca7
<input type=hidden name=pass value="$form{'pass'}">t)(]mV
<input type=hidden name=mode value="s_d"><input type=submit value="進行格式化">.N>*
</form></center>{WTCp
_HTML_J
&foot_;&"
}©雷傲繁體中文網 -- 雷傲專屬討論網，探討一切有關雷傲繁體版本的相關問題與技術支援！　　 ;
#©雷傲繁體中文網 -- 雷傲專屬討論網，探討一切有關雷傲繁體版本的相關問題與技術支援！　　 f(Hr
# [記事編集ページ]B/N
#©雷傲繁體中文網 -- 雷傲專屬討論網，探討一切有關雷傲繁體版本的相關問題與技術支援！　　 O Xt
sub hen_ {(gILLk
if($mo eq ""){[
if ($form{'del'} eq "") { &er_("沒有點選要處理的記事項目！"); }F
if ($delkey eq "") { &er_("刪除密碼未輸入！"); }b?
$kiji=$form{'del'};qjqH
}elsif($mo==1){if($form{'pass'} ne "$pass"){ &er_("密碼不正確！"); }}~
open(DB,"$log");Z/y}uM
@lines = <DB>;-]ej=j
close(DB);I s0
@lines = reverse(@lines);biw@Ux
@new = ();0t
$flag = 0;ZjJ<3
foreach $line (@lines) {2:Y
($namber,$d,$name,$email,$d_may,$comment,$url,$s,$end,$t,$de) = split(/<>/,$line);!Z`cp
if ($kiji eq "$namber") {dgiY
if($mo eq ""){R:
if($de eq "") { &er_("本記事沒有設定過刪除密碼。"); }Z
&cryma_($de);b:\}5
if($ok eq "n"){ &er_("密碼不正確！"); }A@+z[[
$hen_l="$cgi_f";H?BsI
}else{$hen_l="$cgi_f?mode=del&pass=$form{'pass'}";}?[zI
&hed_;r
$comment =~ s/<br>/\n/g;n0Rwob
if ($tag) { $comment =~ s/</</g; $comment =~ s/>/>/g; }X>H
print <<"_HTML_";mW$
□<a href="$hen_l"> 返回</a><br><hr width=90%>pzs?'c
<table width=90\% bgcolor=$ttb><tr><th>編輯記事編號[$namber]</th></tr></table>'bmV
<blockquote><form action="$cgi_f" method="$met">#
<input type=hidden name=pass value="$form{'pass'}">;fnyJ
<input type=hidden name=mode value=h_w>hx`
<input type=hidden name=namber value=$namber>U
<table><tr><td>名字</td><td>/<input type=text name="name" value="$name" size=20></td></tr>T:rHX>
<tr><td>電郵</td><td>/<input type=text name="email" value="$email" size=30></td></tr>/_zWZm
<tr><td>網址</td><td>/<input type=text name="url" value="http://$url" size=40></td></tr>VmDA7J
<tr><td>title</td><td>/<input type=text name="d_may" size=40 value="$d_may"></td></tr>^
<tr><td colspan=2>內容▽ <small>(請適當地進行換行)</small><br>*$a,Y
<textarea name="comment" rows=15 cols=70 wrap=$wrap>$comment</textarea></td></tr>2sg
</td></tr><tr><td></td><td><input type=submit value=" 編輯 ">3y*
<input type=reset value=" 清除 "></td></tr></table></form></blockquote>B
_HTML_5d+bJ
&foot_;D
}©雷傲繁體中文網 -- 雷傲專屬討論網，探討一切有關雷傲繁體版本的相關問題與技術支援！　　 SIKTH
}©雷傲繁體中文網 -- 雷傲專屬討論網，探討一切有關雷傲繁體版本的相關問題與技術支援！　　 Rc-
}©雷傲繁體中文網 -- 雷傲專屬討論網，探討一切有關雷傲繁體版本的相關問題與技術支援！　　 }8
#©雷傲繁體中文網 -- 雷傲專屬討論網，探討一切有關雷傲繁體版本的相關問題與技術支援！　　 G
# [パスワード暗號化]{g:q4
#©雷傲繁體中文網 -- 雷傲專屬討論網，探討一切有關雷傲繁體版本的相關問題與技術支援！　　 nwyj
sub cry_ {|f
$time = time;Jo**<
($p1, $p2) = unpack("C2", $time);569W}:
$wk = $time / (60*60*24*7) + $p1 + $p2 - 8;;m
@saltset = ('a'..'z','A'..'Z','0'..'9','.','/');F
$nsalt = $saltset[$wk % 64] . $saltset[$time % 64];Pj$
$epasswd = crypt($form{'delkey'}, $nsalt);|cY"
}©雷傲繁體中文網 -- 雷傲專屬討論網，探討一切有關雷傲繁體版本的相關問題與技術支援！　　 J}
#©雷傲繁體中文網 -- 雷傲專屬討論網，探討一切有關雷傲繁體版本的相關問題與技術支援！　　 sg
# [パスワード解讀]b
#©雷傲繁體中文網 -- 雷傲專屬討論網，探討一切有關雷傲繁體版本的相關問題與技術支援！　　 {
sub cryma_ {cm*)
if ($de =~ /^\$1\$/) { $crptkey = 3; }z=-
else { $crptkey = 0; }pl#2;{
$ok = "n";xq
if (crypt($form{'delkey'}, substr($de,$crptkey,2)) eq $de) {PG_
$ok = "y";ht
}©雷傲繁體中文網 -- 雷傲專屬討論網，探討一切有關雷傲繁體版本的相關問題與技術支援！　　 *8/A\T
}©雷傲繁體中文網 -- 雷傲專屬討論網，探討一切有關雷傲繁體版本的相關問題與技術支援！　　 f
#©雷傲繁體中文網 -- 雷傲專屬討論網，探討一切有關雷傲繁體版本的相關問題與技術支援！　　 1OCqY
# [削除處理]I\u
#©雷傲繁體中文網 -- 雷傲專屬討論網，探討一切有關雷傲繁體版本的相關問題與技術支援！　　 ng5>
sub key_ {Y66$=]
if($mo eq ""){qHk
if($form{'del'} eq ""){ &er_("沒有點選要處理的記事項目！"); }@p`=
if($delkey eq "") { &er_("刪除密碼未輸入！"); }@;ySd4
}elsif($mo==1){if($form{'pass'} ne "$pass"){ &er_("密碼不正確！"); }}`,a"@S
open(DB,"$log") || &er_("Can't open $log");T{D
@mens = <DB>;6
close(DB);d
@mens = reverse(@mens);@CAS = ();$dok=0;rJt7F
foreach $mens (@mens) {<e%3T
$mens =~ s/\n//g;s2J`C?
($nam,$d,$na,$mail,$d_,$com,$url,$sp,$e,$ty,$de,$ip,$ti) = split(/<>/,$mens);XYY;
foreach $namber (@d_) {B
if ($namber eq "$nam") {J
if($mo eq ""){-
if($de eq "" && $dok==0) { &er_("本記事沒有設定過刪除密碼。"); }MG#1u
&cryma_($de);&}al
if($ok eq "n" && $dok==0){ &er_("密碼不正確！"); }f@Y
}©雷傲繁體中文網 -- 雷傲專屬討論網，探討一切有關雷傲繁體版本的相關問題與技術支援！　　 ^
$mens = "";$dok=1;KJheLQ
}©雷傲繁體中文網 -- 雷傲專屬討論網，探討一切有關雷傲繁體版本的相關問題與技術支援！　　 Xv.=~E
}©雷傲繁體中文網 -- 雷傲專屬討論網，探討一切有關雷傲繁體版本的相關問題與技術支援！　　 _lS*
if($kiji ne "" && ($kiji eq "$nam"||$kiji eq "$ty")){$mens = "";}_
$n="\n";%uOk-(
if($mens eq "" && $kiji eq ""){5'Xq#
$mens = "$nam<>$d<>/<><>$kiji（刪除）<>本記事被投稿者自行刪除了<><>$sp<><>$ty<><><><>";an
}elsif($mens eq "" && $kiji ne ""){U?kiQ}
$mens="";$n="";J,M
if($mens[0] eq ""){m1p
$mens[0] = "$nam<><><><><><><><><>$nam<><><><>";P{
$n="\n";~
}©雷傲繁體中文網 -- 雷傲專屬討論網，探討一切有關雷傲繁體版本的相關問題與技術支援！　　 !OrQX!
}©雷傲繁體中文網 -- 雷傲專屬�