Make your own free website on Tripod.com
#!/usr/local/bin/perl #++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ #+++　[ Motto Kakikomitai 多功能晉級留言板 Ver0.864 ] 原程式更新於 2001.02.04 / 中文版更新於 2001.03.04 (二版) #+++ >>> Copyright (c) 1999.10 Tacky's Room. All rights reserved. #+++ 原作者: Tacky 　　電子郵箱 >>> tackysrm@lily.freemail.ne.jp 個人網站 >>> http://tackysroom.com #+++ 中文化: 驚直　　　電子郵箱 >>> webmaster@kiddiken.net 個人網站 >>> http://kiddiken.net #+++ ※由於小弟不懂日文，所以程式裡很多地方都是猜出來翻的！如果有什麼地方是誤翻的，請你寫信或在留言板告訴我吧！ #+++ #+++ 設置方法 #+++ #+++ public_html (首頁資料夾) #+++ |-- mkakikomitai (777或711) (任何一個空的資料夾) #+++ |-- mkakikomitai.cgi (755或700) (主程式) #+++ |-- mkakikomitai.txt (666或600) (留言記錄檔 - 開始時是空的) #+++ |-- mkakikomitai_cnt.txt (666或600) (晉級狀態記錄檔 - 開始時是空的) #+++ |-- mkakikomitai.cnt (666或600) (計數器記錄檔 - 開始時是空的) #+++ |-- img (755) (程式圖檔資料夾) #+++ | |-- *.gif (644) (程式圖檔) #+++ |-- cicon (755) (計數器圖檔資料夾) #+++ | |-- num6_0∼9.gif (644) (計數器圖檔) #+++ |-- icon (755) (留言板圖檔資料夾) #+++ | |-- *.gif (644) (留言板圖檔) #+++ |-- old (755) (舊留言集存放位置 - 啟動留言板之前必須先建立這個資料夾) #+++ #+++ 　　■括號()內的數字表示該資料夾或檔案要設成的檔案權限數值。 #+++ 　　■除了gif檔案是使用二進位模式(Binary Mode)上傳外，其餘檔案必須使用純文字模式(ASCII Mode)上傳到伺服器。 #+++ 　　■mkakikomitai.lock這個檔案在有需要的時候會自動產生及刪除。 #+++ 　　■在下面基本設定填入檔名的時候，如果有需要(例如檔案放在別處)，便要使用完整路徑(http://∼)來指定。 #+++ #+++ >>> 原日文版更新歷程... #+++ 2001.02.04(Ver0.864) >> 把圖檔一覽表的「返回」連結加回去(不適用於中文版)。「一氣回覆」套用留言內容最高字數的限制。 #+++ 2001.01.31(Ver0.863) >> 修正當刪除留言記錄後，留言編號的數值沒有清空的臭蟲。 #+++ 2001.01.22(Ver0.862) >> 修正 語法錯誤。 #+++ 2001.01.16(Ver0.861) >> 修正設定管理者專用圖檔時一個錯誤的變數。 #+++ 2001.01.13(Ver0.86) >> 加入了專為管理者而設的「一氣回覆」功能。 #+++ 加入了提供留言記錄下載功能，讓使用者可以離線閱讀。目的是要節省電話費。(^-^) #+++ 管理者專用圖檔＆常連者專用圖檔使用不同矩陣，前者並加入密碼維護安全。 #+++ 晉級說明及晉級狀態的連結改以表單按鈕進入，列表加強表格顯示。 #+++ 改變各種GIF圖檔指定IMG語法的設定模式，使其可以加入圖檔闊度與高度的值。這樣可以避免頁面顯示出來的時候移來移去。（笑） #+++ 使用sendmail程式寄發郵件通知的功能加入了一個設定值，可以讓你避免連自己寫入的留言記錄也要通知。 #+++ 2000.10.29(Ver0.851) >> 修正因檔案鎖定程序錯誤而引致的計數器問題．．．m(_ _)m #+++ 2000.10.28 >> 圖檔一覽表加入管理者及常連者專用圖檔。 #+++ 簡化檢查重複輸入留言的程序。 #+++ 2000.08.07 >> 修正留言內容輸入表單的表格錯誤語法。 #+++ 2000.07.26 >> 修正關於多重刪除留言記錄的臭蟲。 #+++ 2000.07.14 >> 修正當不使用留言標題($titleset=0)的時候，「送出留言」按鈕跳到別處的錯誤。 #+++ 2000.07.12 >> 修正檔案鎖定之問題。 #++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ $ver = '0.864'; #(驚直修改 - 加入程式版本編號) #─＜基本設定開始＞──────────────────────────────────────────────────────── $url = "http://kiddiken.net"; #首頁的網址 $script = './mkakikomitai.cgi'; #主程式檔名 $logfile = './mkakikomitai.txt'; #留言記錄檔名 $lockfile = './mkakikomitai.lock'; #鎖定檔檔名 $cntfile = './mkakikomitai.cnt'; #計數器記錄檔名 (不使用則改為'') $logfile2 = './mkakikomitai_cnt.txt'; #設定記錄留言者留言篇數的晉級狀態記錄檔。(使用晉級制度必須有此檔案,不使用則改為'') #要使用計數器的功能，必須設定每個計數器圖檔的語法。src=之後的是圖檔路徑。如果你知道每個圖檔的大小，最好也加入闊度(width)和高度(height)的數值。 #設定圖檔路徑時，也可以用類似src=http://www.∼/xxx.gif的語法來指定存在於主機伺服器以外其他位置的圖檔。 #如果不指定計數器圖檔，請改為''，便會使用純文字形式表示。 $cnt_gif[0] = ''; $cnt_gif[1] = ''; $cnt_gif[2] = ''; $cnt_gif[3] = ''; $cnt_gif[4] = ''; $cnt_gif[5] = ''; $cnt_gif[6] = ''; $cnt_gif[7] = ''; $cnt_gif[8] = ''; $cnt_gif[9] = ''; $cnt_keta = 5; #計數器要顯示幾多位數字？ $title = 'RDN'; #留言板的標題 $titlelogo = ''; #留言板標題圖檔IMG語法 (不使用則改為'') $backpicture = ''; #背景圖檔 $bgcolor = 'white'; #背景顏色 $tbgcolor = ''; #填寫留言表格的背景顏色 $tcolor = 'gray'; #文字顏色 $linkcolor = 'dimgray'; #連結顏色 (從未到訪) $vlinkcolor = 'dimgray'; #連結顏色 (曾經到訪) $alinkcolor = 'firebrick'; #連結顏色 (正在到訪) $hovercolor = 'red'; #連結顏色 (滑鼠經過時) #i000331 $pt = '10pt'; #整體字形大小，建議：9,10,11,12 #i000331 $pt_mini = '9pt'; #微縮字形大小，建議：8,9,10 (驚直加入 - 套用於"圖檔一覽表"連結、顏色方塊、使用者晉級資訊及留言資訊) $e_font = "Tahoma, Verdana, Arial"; #英文專屬字形集 (驚直加入) $res_gif = './img/res.gif'; #設定讓訪客「回覆留言」的圖檔。(不使用則改為'',便會以純文字形式表示) $gif_spacer = './img/spacer.gif'; #調整空位的DUMMY圖檔 $name_color = 'white'; #每篇留言之中，留言者名字等資訊的顏色 $msg_color = 'white'; #每篇留言之中，留言內容的背景顏色 $titleset = 1; #每篇留言都要有標題嗎？(0:不要 1:要) $homelinklogo = '個人網站'; #留言者個人網站連結圖檔IMG語法 (不使用則改為'') $maillinklogo = '電子郵箱'; #留言者電子郵箱連結圖檔IMG語法 (不使用則改為'') $top_l = ''; #造成留言框圓角效果的圖檔IMG語法 (左上角) (不使用則改為'') $top_r = ''; #造成留言框圓角效果的圖檔IMG語法 (右上角) (不使用則改為'') $bottom_l = ''; #造成留言框圓角效果的圖檔IMG語法 (左下角) (不使用則改為'') $bottom_r = ''; #造成留言框圓角效果的圖檔IMG語法 (右下角) (不使用則改為'') $datamax = 100 ; #最新的留言集，保留的留言篇數 (只要留言達到這個數目，最原先的留言便會存入舊留言集) $pagemax = 20 ; #１頁可顯示之留言篇數 $password = '882882'; #管理者密碼 $tag = 'yes'; #允許使用HTML碼？(yes,no) $resflag = 'yes'; #最新回覆的留言搬到最頂？(yes,no) $hostflag = 'yes'; #顯示留言者的HOST位址？(yes,no) $row = 4; #輸入留言內容方塊的列數(高度) $col = 56; #輸入留言內容方塊的欄數(闊度) $t_width = 540; #每篇留言的闊度(以像素計) #設定留言可用之背景顏色．原作者的設定：@COLORS_B = ('#666666','#003399','#990000','#669900','#cc3399','#ff6633','#cccc00'); @COLORS_B = ('deepskyblue','steelblue','dimgray','seagreen','cadetblue','darkturquoise','royalblue','darkorchid','mediumvioletred','hotpink','tomato','crimson','goldenrod','chocolate','saddlebrown',); #(驚直修改 - 使用文字顏色碼並加入更多顏色) $colb_use = 0; #(0:顏色由留言者選擇 1:顏色由管理者指定) $colb = 'silver' ; #如果上面的值是'1'，全部留言都使用這個指定的背景顏色 #設定留言可用之文字顏色．原作者的設定：@COLORS_F = ('#666666','#003399','#990000','#669900','#cc3399','#ff6633','#cccc00','#000000'); @COLORS_F = ('lightskyblue','lightsteelblue','darkgray','mediumseagreen','lightseagreen','turquoise','cornflowerblue','orchid','palevioletred','lightpink','lightsalmon','lightcoral','gold','sandybrown','peru','black'); #(驚直修改 - 使用文字顏色碼並加入更多顏色) $colf_use = 0; #(0:顏色由留言者選擇 1:顏色由管理者指定) $colf = 'black' ; #如果上面的值是'1'，全部留言都使用這個指定的文字顏色 #留言表格的各個欄目（名字、電子郵箱、個人網站、標題等）可以使用一套圖檔顯示出來 $gif_flg = 1; #想要使用留言表格欄目圖檔嗎？(0:不使用 1:使用) #設定留言表格的各個欄目圖檔 $gif_name = './img/kakikomitai_name.gif'; #(名字) $gif_email = './img/kakikomitai_email.gif'; #(電子郵箱) $gif_home = './img/kakikomitai_homepage.gif'; #(個人網站) $gif_title = './img/kakikomitai_title.gif'; #(標題) $gif_message = './img/kakikomitai_message.gif'; #(留言內容) $icon_use = 'yes'; #留言內容使用圖檔嗎？(yes,no) #↓設定管理者專用圖檔。除了管理者以外，沒有其他人可以使用這個圖檔。 #你可以在$oiconpass為這個屬於你的專用圖檔設定一個密碼，留言內容掃出來的時候驗證密碼＆名字如果跟記錄所載相同才會顯示出來，否則會使用一般圖檔。 #醬子就算有人要冒充你來寫留言，也必須知道你的專用圖檔密碼才能夠成功盜用你的身份。(不使用則改為$oiconpass = '';) $oicon_gif = './icon/d_ahiru.gif' ; $oiconpass = 'opass'; $oicon_gif_w = 32 ; $oicon_gif_h = 32 ; #↓設定常連者專用圖檔。你可以為你的朋友或經常上來寫留言的網友(常連者)增加其他圖檔如$jicon_gif[2]...[5]等，餘此類推。 #留言內容掃出來的時候，會驗證留言者的名字是否跟這裡所設定的$jiconnm一樣，如是者便會出現對應的個人圖檔，不受自行選擇之圖檔影響。 $jicon_gif[0] = './icon/kuma.gif' ; $jiconnm[0] = 'Ａ君' ; $jicon_gif_w[0] = 38 ; $jicon_gif_h[0] = 38 ; $jicon_gif[1] = './icon/parappa.gif' ; $jiconnm[1] = 'Ｂ君' ; $jicon_gif_w[1] = 37 ; $jicon_gif_h[1] = 35 ; #↓設定留言者一般可選擇之圖檔。可以依個人需要增加其他圖檔如$icon_gif[11]...[20]等，餘此類推。 $icon_gif[0] = './icon/ball.gif' ; $iconnm[0] = '皮球' ; $icon_gif_w[0] = 32 ; $icon_gif_h[0] = 32 ; $icon_gif[1] = './icon/corgi.gif' ; $iconnm[1] = '小狗' ; $icon_gif_w[1] = 32 ; $icon_gif_h[1] = 32 ; $icon_gif[2] = './icon/cow.gif' ; $iconnm[2] = '乳牛' ; $icon_gif_w[2] = 32 ; $icon_gif_h[2] = 32 ; $icon_gif[3] = './icon/denchi.gif' ; $iconnm[3] = '電池' ; $icon_gif_w[3] = 32 ; $icon_gif_h[3] = 32 ; $icon_gif[4] = './icon/dorayaki.gif' ; $iconnm[4] = '燒餅' ; $icon_gif_w[4] = 32 ; $icon_gif_h[4] = 32 ; $icon_gif[5] = './icon/duck.gif' ; $iconnm[5] = '鴨子' ; $icon_gif_w[5] = 32 ; $icon_gif_h[5] = 32 ; $icon_gif[6] = './icon/h_bambi.gif' ; $iconnm[6] = '松鼠' ; $icon_gif_w[6] = 32 ; $icon_gif_h[6] = 32 ; $icon_gif[7] = './icon/h_bear.gif' ; $iconnm[7] = '米熊' ; $icon_gif_w[7] = 32 ; $icon_gif_h[7] = 32 ; $icon_gif[8] = './icon/h_kaeru.gif' ; $iconnm[8] = '青蛙' ; $icon_gif_w[8] = 32 ; $icon_gif_h[8] = 32 ; $icon_gif[9] = './icon/h_momo.gif' ; $iconnm[9] = 'momo' ; $icon_gif_w[9] = 32 ; $icon_gif_h[9] = 32 ; $icon_gif[10] = './icon/h_saru.gif' ; $iconnm[10] = '猴子' ; $icon_gif_w[10] = 32 ; $icon_gif_h[10] = 32 ; $icon_line = 3 ; #顯示圖檔一覽表時，每行顯示幾多個圖檔？ $method = 'POST'; #METHOD方式(POST或GET) #設定有問題的網域清單。只要符合這清單的網域都會被攔截(禁止寫入留言)。 # 設定 "xxx?.com" 即包括了 "xxx1.com","xxx2.com" 等，「?」可以是任何１個字元。 # 設定 "xxx*.com" 即包括了 "xxx1.com","xxx12345.com" 等，「*」可以是０個或以上的任何字元。 @DANGER_LIST=("xxx.com","yyy.com","zzz*.org.tw"); #設定留言內容的最高字數(以字元計算)。如果不設定最高字數，改為''即可。這個數值不能夠設得太大，最好是5000或以下，否則可能會出現錯誤信息。 $maxword = '2000'; #2000個字元即代表1000個中文字。 #設定晉級制度的每個類別。 @rank = ('BB仔','小學生','中學生','東大學生','名模特兒','名偵探','死亡筆記持有人','死神','自訂名稱'); #設定每個類別的晉級資格，數目為留言篇數。 @rankno = ('0-50篇','51-100篇','101-300篇','301-500篇','501-700篇','701-900篇','901-1000篇','1000篇以上'); #你想要根據各人的晉級狀態來指定圖檔嗎？如果你使用這個模式，留言者在留言時毋須選擇圖檔。 #此外，圖檔的數目須與晉級制度的級數互相對應。（註：除管理者專用圖檔外，其餘常連者專用圖檔會失效） #例: # $icon_gif[0] = 'xx1.gif'; $iconnm[0] = '第一級'; # $icon_gif[1] = 'xx2.gif'; $iconnm[1] = '第二級'; # $icon_gif[2] = 'xx3.gif'; $iconnm[2] = '第三級'; # @rank = ('第一級','第二級','第三級'); # @rankno = ('701-900篇','901-100篇','1000篇以上'); ※設定３個晉級類別，便要設定３個圖檔，而每個圖檔分別代表這３個類別。 $icon_rank = 1; #0:不要根據晉級狀態指定圖檔（留言時自行選擇圖檔） 1:根據晉級狀態指定圖檔 #設定sendmail程式的路徑。此項資料可向網路管理者查詢。(一般是/usr/sbin/sendmail或/usr/lib/sendmail) #如果你想要在有新留言的時候把留言資料寄到你的電子郵箱，便要設定，否則可保留為$sendmail = ""; $sendmail = ""; #設定寄發郵件通知時，要收件的電子郵箱。「@」之前的一個「\」符號是必須加上的。如果沒有了「\」這符號，會出現Internal Server Error錯誤訊息。 #（使用sendmail程式送信才需要設定） $smail_address = "deathnote_light_l_misa\@yahoo.com.hk"; $sendsw = 1; #當使用寄發郵件通知功能時，連你自己寫入的留言記錄(以上面的郵箱作對照)也要利用郵件通知嗎？(0:忽略 1:全部都要通知) $hiho = 0; #設為「1」即可使用「hi-ho」形式傳送郵件。某些伺服器不支援。　※使用sendmail程式送信才需要設定 #留言密碼的加密程序(使用crypt函數將密碼暗號化) $ango = 1; #1: 不使用 1:使用　（建議使用） #舊留言集的設定…指定一個資料夾($olddir)存放"01.txt".."10.txt"等等的舊留言記錄檔。 $olddir = './old/'; #保存舊留言集的資料夾所在。(不使用則改為'') $oldmax = 100; #每個舊留言集可容納之留言串列數。每當超過這個串列數後，會建立另一個舊留言集。 #你想要使用像『nyaponika學習帳』留言板的「橫線隔行」功能嗎？ $nya = 0 ; #留言內容的換行符號(
)要用橫線(
)取代嗎？(0:否 1:是) $maru = 0 ; #留言框要使用圓角嗎？(0:否 1:是)…如果「否」，則可以不要$top_l,r,$bottom_l,r這些圖檔。 #============================================================================================================================================================================================= #設定ＣＳＳ樣式表　※如果不使用，請改為 $css_style = "";　有需要的話，可以輸入２行或以上的文字(只要設定在兩個EOM標記之間就可以)。 $css_style = <<"EOM"; #(一般輸入欄位的樣式表設定,套用於表單中的textarea及input type=text,password) style="font-size:$pt; font-family:'新細明體','PMingLiU'; color:dimgray; background-color:white; border-width:1px; border-style:solid; border-color:lightgrey;" onFocus="this.style.backgroundColor='ivory'" onBlur="this.style.backgroundColor='white'" EOM $css_style_e = <<"EOM"; #(驚直加入 - 英數文字輸入欄位的樣式表設定,套用於表單中的[電子郵箱/個人網站/留言編號]欄位) style="font-size:$pt; font-family:$e_font; color:dimgray; background-color:white; border-width:1px; border-style:solid; border-color:lightgrey;" onFocus="this.style.backgroundColor='ivory'" onBlur="this.style.backgroundColor='white'" EOM $css_button = <<"EOM"; #(驚直加入 - 按鈕專用的樣式表設定,套用於表單中的input type=submit,reset,button) style="font-size:$pt; font-family:'新細明體','PMingLiU'; line-height:12pt; color:gray; background-color:white; border-width:1px; border-style:solid; border-color:lightgrey;" onMouseOver="this.style.color='dimgray';this.style.backgroundColor='ivory'" onMouseOut="this.style.color='gray';this.style.backgroundColor='white'" EOM $css_select = <<"EOM"; #(驚直加入 - 下拉選單專用的樣式表設定,套用於表單中的select) style="font-size:$pt; font-family:'新細明體','PMingLiU'; color:gray; background-color:white;" onFocus="this.style.backgroundColor='ivory'" onBlur="this.style.backgroundColor='white'" EOM $css_style_ = <<"EOM"; #(驚直加入 - 針對非IE瀏覽器的一般輸入欄位的樣式表設定) style="font-size:$pt; font-family:'新細明體','PMingLiU'; color:dimgray; background-color:white; padding-left:2px;" onFocus="this.style.backgroundColor='ivory'" onBlur="this.style.backgroundColor='white'" EOM $css_style_e_ = <<"EOM"; #(驚直加入 - 針對非IE瀏覽器的英數文字輸入欄位的樣式表設定) style="font-size:$pt; font-family:$e_font; color:dimgray; background-color:white; padding-left:2px;" onFocus="this.style.backgroundColor='ivory'" onBlur="this.style.backgroundColor='white'" EOM $css_button_ = <<"EOM"; #(驚直加入 - 針對非IE瀏覽器的按鈕專用的樣式表設定) style="font-size:9pt; font-family:'新細明體','PMingLiU'; color:gray; background-color:white;" onMouseOver="this.style.color='dimgray';this.style.backgroundColor='ivory'" onMouseOut="this.style.color='gray';this.style.backgroundColor='white'" EOM #■↓以下這個功能目的是要惡作劇留言者，使用隨機數目回扣留言者的留言篇數，如果不想使用請設為「$rdm = 0;」。 $rdm = 5; #數值範圍是0∼30，隨機變化。 @DOWN = (1,2,3,5,7,10); #隨機回扣留言篇數的數目，建議數值在15以下。 $kaisu_disp = 1; #留言內容顯示留言者的最新留言篇數？(0:否 1:是) $ikkiflg = 0 ; #你想要使用「一氣回覆模式」嗎？(0:否 1:是) #當留言板轉換到「一氣回覆模式」的時候，在留言輸入表單與留言內容之間會出現以下文字，提醒使用者要注意的事情。 $ikkimsg = <<"EOM";
■現在你進入了「一氣回覆模式」，你可以同時回覆多篇留言。只要在想要回覆的留言串列下面的留言框，把對應的留言分別填寫好，然後再按上面表單的「一氣回覆」按鈕即可。（注意：你只可以選擇一個圖檔。）如果你按下「關閉一氣回覆」，即可回到正常模式，所有留言串列下面的留言框隨即消失。
EOM #檢查留言內容的危險語法標籤 @errtag = ('table','meta','form','!--','embed','html','body','tr','td','th','a'); #危險語法標籤 #─＜基本設定結束＞──────────────────────────────────────────────────────── ############################################################################### #### Main Process START ##################################################### ############################################################################### $agent = $ENV{'HTTP_USER_AGENT'}; $agent =~ s/,/./g; $col2 = 1; $col2e = 1; #(驚直加入 - 調整英數欄位在Netscape瀏覽器的闊度) if ($agent =~ /Mozilla/i && $agent !~ /compatible/i && $agent !~ /Opera/i) { $col2 = 0.8; $col2e = 0.6; } #(驚直修改 - 不套用於Opera瀏覽器) $ENV{'TZ'} = "CST-8"; #(驚直修改 - 使用中國及台灣地區時間) ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time); #取得系統時間 $year = sprintf("%21d",$2004r + 1900); $12 = $mon + 1; #(驚直修改 - 月日不前置０或空白) $hour = sprintf("%21d",$19); $19 = sprintf("%21d",$19); $week = ('Sun','Mon','Tue','Wed','Thu','Fri','Sat') [$wday]; $today = "$2004/$12/$21($Tue) $19:$19"; #(驚直修改 - 加入年份顯示) if ($agent !~ /MSIE/i || $agent =~ /Opera/i) { #(驚直修改 - 非IE瀏覽器使用特別樣式表) $css_style = $css_style_; $css_style_e = $css_style_e_; $css_button = $css_button_; } &logchk ; &cookieget; #取得COOKIE資訊 &decode ; #過濾留言內容 if ( $FORM{'action'} eq 'icondisp' ) { &icondisp ; } #顯示圖檔一覽表 if ( $FORM{'action'} eq 'maintenance' ) { #進入管理模式 &Maintenance; &dataread ; #讀取記錄檔 } if ( $FORM{'action'} eq 'update' ) { #更新記錄檔（編輯時） &update ; &cookieget; #取得COOKIE資訊 &dataread ; #讀取記錄檔 } if ( $FORM{'action'} eq 'regist' ) { #寫入留言記錄 ®ist ; &cookieget; #取得COOKIE資訊 &dataread ; #讀取記錄檔 &logchk ; $FORM{'action'} = "" ; } if ( $FORM{'action'} eq 'info' ) { &info ; } #顯示晉級資格說明 if ( $FORM{'action'} eq 'download' ) { &dataread ; &download ; } #下載留言記錄 #i001112 if ( $FORM{'action'} eq 'rankdisp' ) { &rankdisp ; } #顯示各人晉級狀態 &dataread ; #讀取記錄檔 &header ; #顯示HTML頁首 &header2 ; &forminput if ( $FORM{'action'} ne 'oldlogfind' || $FORM{'oldlogno'} == 0 ) ; #輸入留言內容 &view ; #顯示留言記錄 &footer ; #顯示HTML頁尾 exit; ############################################################################### #### Main Process END ####################################################### ############################################################################### ###<-------------------------------------------------------------- ###<--- 過濾留言內容＆代入變數 ###<-------------------------------------------------------------- sub decode{ if ($ENV{'REQUEST_METHOD'} eq "POST") { read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'}); } else { $buffer = $ENV{'QUERY_STRING'}; } @pairs = split(/&/,$buffer); foreach $pair (@pairs) { ($name, $value) = split(/=/, $pair); $value =~ tr/+/ /; $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; if ($tag eq 'yes') { #禁止使用危險語法!!! foreach ( @errtag ) { if ($value =~ /<$_(.|\n)*/i) { &error("抱歉，留言板禁止使用危險語法！"); } #(驚直修改 - 針對"\n"; print "\n"; #<<>> print "\n"; if ($backpicture) { $set = "background=\"$backpicture\""; if ( $bgcolor ) { $set .= " bgcolor=\"$bgcolor\"" ; } } elsif ($bgcolor ) { $set = "bgcolor=\"$bgcolor\""; } print "\n"; } ###<-------------------------------------------------------------- ###<--- 顯示HTML頁首 ###<-------------------------------------------------------------- sub header2 { print "
\n"; print "\n"; #(驚直修改 - 改以全視窗方式開啟) if ( $logfile2 && $FORM{'action'} ne 'download') { print "\n"; #(驚直修改 - 改以新視窗方式開啟) print "\n"; #(驚直修改 - 改以新視窗方式開啟) } if ( $ikkiflg == 1 ) { print "\n"; #(驚直修改 - 改以同一視窗方式開啟) } else { print "\n"; #(驚直修改 - 改以同一視窗方式開啟) } } if ( $#oldcnt >= 0 ) { print "\n"; } print "
"; #(驚直修改 - 外加表格) print " 
 
 
\n"; if ( $FORM{'kflg'} eq '' ) { print " 
\n"; #(驚直修改 - 加入空白表格欄) print "  \n"; print "\n"; print "
"; if ( $cntfile ) { #顯示計數器 $edt = "%0" .$cnt_keta . "d" ; $COUNT = sprintf("$edt",$COUNT) ; if ( $cnt_gif[0] ) { for ( $i = 1 ; $i <= $cnt_keta ; $i++ ) { $c = substr($COUNT,$i - 1 , 1 ) ; print "$cnt_gif[$c]"; } } else { print "瀏覽人次 → $COUNT"; #(驚直修改 - 使用英文字形顯示純文字計數器) } } else { print " "; } print "
\n"; print "

\n"; if ( $titlelogo ) { print "$titlelogo
\n"; } else { print "$title
\n"; } print "
\n"; } ###<-------------------------------------------------------------- ###<--- 顯示HTML頁尾 ###<-------------------------------------------------------------- sub footer { #<<<↓以下版權宣告部份不得刪除，但可略作修改。（尊重智慧財產權 — 請勿將中文化作者刪掉或改為你自己的名字） print "
\n"; print "mkakikomitai Ver$ver Created by Tacky\'s Room
\n"; print "中文化：天真的驚直 [2001.3.4]
\n"; print "\n"; } ###<-------------------------------------------------------------- ###<--- 讀取記錄檔 ###<-------------------------------------------------------------- sub dataread { #讀取記錄檔 if ( ( $FORM{'action'} ne 'oldlogfind' && $FORM{'action'} ne 'download' ) || $FORM{'oldlogno'} == 0 ) { if ( !(open(IN,"$logfile"))) { &error("記錄檔 ($logfile) 讀取失敗。"); } } else { $wk = $olddir . $FORM{'oldlogno'} . ".txt" ; if ( !(open(IN,"$wk"))) { &error("記錄檔 ($wk) 讀取失敗。"); } } @LOG = ; close(IN); @RESLOG = () ; @MAINLOG = () ; $MAXNO = ''; @SVLOG = () ; foreach ( @LOG ) { ($no,$name,$email,$hp,$ttl,$comment,$regdate,$color_f,$color,$resno,$hst,$ksu,$pass,$dmy,$dmy,$icon) = split(/,/,$_); if ( $resno eq '' ) { push(@MAINLOG,$_) ; } else { push(@RESLOG,$_) ; } push(@SVLOG,"$_"); if ( $no >= $MAXNO ) { $MAXNO = $no ; } } if ( $FORM{'action'} ne 'oldlogfind' || $FORM{'oldlogno'} == 0 ) { #I991220 @RESLOG = reverse @RESLOG ; } #I991220 #<<<讀取計數器記錄檔 if ( $cntfile && $FORM{'action'} ne 'download' ) { #u001112 if ( !(open(IN,"$cntfile"))) { &error("計數器記錄檔 ($cntfile) 讀取失敗。"); } $COUNT = ; close(IN); if ( $FORM{'action'} eq '') { $COUNT++ ; if ( !(open(OUT,">$cntfile"))) { &error("計數器記錄檔 ($cntfile) 讀取失敗。"); } print OUT $COUNT; close(OUT); } } } ###<-------------------------------------------------------------- ###<--- 顯示留言記錄 ###<-------------------------------------------------------------- sub view { print "
\n"; #計算留言記錄所需之頁數 $dm = @MAINLOG; if ( $dm % $pagemax == 0) { $p = $dm / $pagemax ; } else { $p = $dm / $pagemax + 1; } $p = sprintf("%3d",$p); if ( $FORM{'page'} eq "下一頁" ) { if ( $FORM{'disppage'} == 0 ) { $FORM{'disppage'} = 1 } ; $d = ($FORM{'disppage'} + 1) * $pagemax - $pagemax ; $FORM{'disppage'} = $FORM{'disppage'} + 1 ; } elsif ( $FORM{'page'} eq "上一頁" ) { $d = ($FORM{'disppage'} - 1) * $pagemax - $pagemax ; $FORM{'disppage'} = $FORM{'disppage'} - 1 ; } elsif ( $FORM{'disppage'} ne "" ) { #I991123 $d = $FORM{'disppage'} * $pagemax - $pagemax ; #I991123 } else { $d = 0 ; $FORM{'disppage'} = 1 ; } if ( $msg_color ) { $tbbg = "bgcolor=\"$msg_color\"" ; } else { $tbbg = "" ; } $z = 1 ; if ( $FORM{'action'} eq 'download' ) { #i001112 $d = 0 ; $pagemax = $dm ; $maru = 0 ; $maillinklogo=""; $homelinklogo=""; $icon_use = "no"; print "
$title
\n"; } for ( $i = $d ; ( $z <= $pagemax ) && ( $i < $dm ); $i++ ) { ($no,$name,$email,$hp,$ttl,$comment,$regdate,$color_f,$color,$resno,$host,$ksu,$pass,$dmy,$dmy,$icon) = split(/,/,$MAINLOG[$i]); if ( ($FORM{'action'} ne 'res' || ($FORM{'action'} eq 'res' && $FORM{'no'} eq $no)) || $FORM{'action'} eq 'download' ) { #u001112 if ( $FORM{'action'} ne 'res' && $FORM{'kflg'} eq '' ) { #i001103 print "
"; print ""; print ""; print "\n"; #I991123 } if ( $nya == 0 ) { $comment =~ s/([^=^\"]|^)(http|ftp)([\w|\!\#\&\=\-\%\@\~\;\+\:\.\?\/]+)/$1LINK HERE<\/b><\/font><\/a>/g; #(驚直修改 - 改為LINK HERE英文字樣及開新視窗) } else { $comment =~ s/
/
/g; } if ( $colf_use != 1 ) { $color_f = $COLORS_F[$color_f] ; } #留言者選擇的文字顏色 else { $color_f = $colf ; } #管理者指定的文字顏色 if ( $colb_use != 1 ) { $color = $COLORS_B[$color] ; } #留言者選擇的背景顏色 else { $color = $colb ; } #管理者指定的背景顏色 print "
\n"; print "\n"; if ( $maru == 1 ) { #使用圓角留言框的場合 print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; } else { print "\n"; if ( $FORM{'action'} ne 'download' ) { #kxxk20010217 print "\n"; } else { print "\n"; } print "\n"; } print "\n"; if ( $FORM{'action'} ne 'download' ) { #kxxk20010217 print "\n"; } else { print "\n"; } print "\n"; if ( $FORM{'action'} ne 'download' ) { #kxxk20010217 print "\n"; } else { print "\n"; } print "\n"; if ( $FORM{'action'} ne 'download' ) { #kxxk20010217 print "\n"; } else { print "\n"; } print "\n"; if ( $FORM{'action'} ne 'download' ) { #kxxk20010217 print "\n"; } else { print "\n"; } print "\n"; if ( $maru == 1 ) { #使用圓角留言框的場合 print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; } else { print "\n"; if ( $FORM{'action'} ne 'download' ) { #kxxk20010217 print "\n"; } else { print "\n"; } print "\n"; } print "
$top_l$top_r
 
 \n"; if ( $titleset == 1 ) { if ( !($ttl) ) { $ttl = "(無題)"; } print "■ $ttl
\n"; } print "$name   "; if ( $logfile2 ne '' ) { $ranking = &rankget($ksu) ; print "  ($ranking)"; #(驚直修改 - 以微縮字形大小顯示) if ( $kaisu_disp == 1 ) { print "　∼第$ksu篇∼"; } #(驚直修改 - 留言篇數用英文字形顯示) print "\n"; } print "   "; #(驚直修改 - 修正原程式語法錯誤) if ( $email ne '' ) { if ( $maillinklogo ) { print "$maillinklogo\n"; } else { print "[ MAIL ]\n"; } #(驚直修改 - 美化字形) } if ( $hp ne '' ) { if ( $homelinklogo ) { print "$homelinklogo\n"; } else { print "[ HP ]\n"; } #(驚直修改 - 美化字形) } if ( $FORM{'action'} ne 'res' && $FORM{'oldlogno'} == 0 && $FORM{'kflg'} eq '' && $FORM{'action'} ne 'download' ) { #i001103 if ( $res_gif ) { print "    \n"; } else { print "   \n"; } } print "		 
 \n"; print "
"; print "\n"; #(驚直修改 - 刪除原程式多餘的
語法) print "
\n"; #(驚直修改 - 美化留言內容排列) #顯示圖檔 if ( $icon_use eq 'yes' ) { &icon_set($name) ; } else { print " "; } print "\n"; #(驚直修改 - 留言內容靠上顯示) print "$comment\n"; #(驚直修改 - 修正原程式語法位置錯誤) print "
"; #(驚直修改 - 留言資訊靠下顯示) $no = sprintf("%d",$no); print ""; #(驚直修改 - 改用span語法,自定英文字形集,以微縮字形大小顯示) if ( $hostflag eq 'yes') { print "($host) "; } print ".. $regdate \[$no\]
"; #kxxk20010130 #顯示訪客回應的留言 $j = 0 ; foreach $buf ( @RESLOG ) { ($no2,$name,$email,$hp,$ttl,$comment,$regdate,$col_f,$col_b,$resno,$host,$ksu,$pass,$dmy,$dmy,$icon) = split(/,/,$buf); #u001103 if ( $no eq $resno ) { if ( $colf_use != 1 ) { $col_f = $COLORS_F[$col_f] ; } #留言者選擇的文字顏色（背景顏色與原留言者相同） else { $col_f = $colf ; } #管理者指定的文字顏色 print "
\n"; print "
\n"; print "\n"; print "\n"; print "
\n"; print "$name   "; #(驚直修改 - 修正原程式語法錯誤) if ( $logfile2 ne '' ) { $ranking = &rankget($ksu) ; print "  ($ranking)"; #(驚直修改 - 以微縮字形大小顯示) if ( $kaisu_disp == 1 ) { print "　∼第$ksu篇∼"; } #(驚直修改 - 留言篇數用英文字形顯示) print "\n"; } print "   "; #(驚直修改 - 修正原程式語法錯誤) if ( $email ne '' ) { if ( $maillinklogo ) { print "$maillinklogo\n"; } else { print "[ MAIL ]\n"; } #(驚直修改 - 美化字形) } if ( $hp ne '' ) { if ( $homelinklogo ) { print "$homelinklogo\n"; } else { print "[ HP ]\n"; } #(驚直修改 - 美化字形) } print "
\n"; #(驚直修改 - 美化留言內容排列) #顯示圖檔 if ( $icon_use eq 'yes' ) { &icon_set($name) ; } else { print " "; } print "\n"; #(驚直修改 - 留言內容靠上顯示) if ( $nya == 0 ) { $comment =~ s/([^=^\"]|^)(http|ftp)([\w|\!\#\&\=\-\%\@\~\;\+\:\.\?\/]+)/$1LINK HERE<\/b><\/font><\/a>/g; #(驚直修改 - 改為LINK HERE英文字樣及開新視窗) } else { $comment =~ s/
/
/g; } print "$comment
\n"; print "
"; #(驚直修改 - 留言資訊靠下顯示) $no2 = sprintf("%d",$no2); print ""; #(驚直修改 - 改用span語法,自定英文字形集,以微縮字形大小顯示) if ( $hostflag eq 'yes') { print "($host) "; } print ".. $regdate \[$no2\]
\n"; #kxxk20010130 print "
\n"; $j++; } } print "		 
$bottom_l$bottom_r
 
"; #u001103 if ( $FORM{'kflg'} == 1 && $FORM{'action'} ne 'download' ) { #i001112 print "
\n"; #i001103 print "▲請把回覆上面的留言內容寫在下面這個留言框▼\n"; #i001103 print "

\n"; #i001103 } #i001103 print "\n" if ( $FORM{'kflg'} eq '' ) ; #i001103 } $z++; } print "\n" if ( $FORM{'kflg'} == 1 ) ; #i001112 if ( $FORM{'action'} ne 'res' && $FORM{'action'} ne 'download') { $dm = @MAINLOG; if ( $dm % $pagemax == 0) { $p = $dm / $pagemax ; } else { $p = $dm / $pagemax + 1; } $p = sprintf("%3d",$p); print "
\n"; print "\n"; print "\n"; print "\n"; print "\n"; #i001103 if ( $FORM{'disppage'} != 0 && $FORM{'disppage'} !=1) { print "\n"; } if ( $FORM{'disppage'} + 1 <= $p ) { print "\n"; } print "
\n"; } if ( $FORM{'action'} eq 'download' ) { return; } #i001112 print "
\n" ; print "
\n"; print "\n"; print "\n"; print "\n"; print "
下載時，請把檔案的延伸檔名改為 htm / html。"; print "
\n"; if ( $FORM{'oldlogno'} == 0 ) { print "
\n"; print "
"; #(驚直修改 - 修正原程式語法位置錯誤) print "\n"; print "留言編號：\n"; #(驚直修改 - 使用英數欄位樣式表) print "密碼：\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "
\n"; } } ###<-------------------------------------------------------------- ###<--- 寫入記錄檔 ###<-------------------------------------------------------------- sub regist { #取得留言者的伺服器名稱 $host = $ENV{'REMOTE_HOST'}; $addr = $ENV{'REMOTE_ADDR'}; if ($host eq "" || $host eq "$addr") { ($p1,$p2,$p3,$p4) = split(/\./,$addr); $temp = pack("C4",$p1,$p2,$p3,$p4); $host = gethostbyaddr("$temp", 2); if ($host eq "") { $host = $addr; } } #檢查危險語法標籤 foreach $buf(@DANGER_LIST){ if ( $buf ) { $buf=~ s/\./\\./g; $buf=~ s/\?/\./g; $buf=~ s/\*/\.\*/g; if ($host =~ /$buf/gi) { &error("抱歉，你所屬的網域名稱已被禁止在這個留言板使用。"); } } } if ( $FORM{'name'} eq '') { &error("你還沒有填入你的名字喔！"); } if ( $FORM{'kflg'} eq '' ) { #i001103 if ( $FORM{'comment'} eq '') { &error("為什麼留言內容是空的呢？"); } if ( $maxword ne '' && (length($FORM{'comment'}) > $maxword)) { &error("你的留言內容太長了。留言內容不可超過 $maxword 個字元！"); } } #i001103 for ( $i = $pagemax ; $i >= 1 ; $i-- ) { $wk = "resno" . $i ; $rno = $FORM{$wk} ; $wk = "rescomment" . $i ; $rcom = $FORM{$wk} ; if ( $rno ne '' && $rcom ne '' ) { if ( $maxword ne '' && (length($rcom) > $maxword)) { &error("你的留言內容太長了。留言內容不可超過 $maxword 個字元！"); } } } &filelock ; #檔案鎖定 &dataread ; #讀取記錄檔 if ( $FORM{'kflg'} eq '' ) { #i001103 ($oyano,$name,$email,$hp,$ttl,$comment,$regdate,$color_f,$color,$resno,$hst,$ksu,$pass,$dmy,$dmy,$icon) = split(/,/,$SVLOG[0]); if ( $name eq $FORM{'name'} && $ttl eq $FORM{'title'} && $comment eq $FORM{'comment'} ) { &fileunlock ; &error("不能再次寫入一模一樣的留言。可能你重複按了兩次按鈕嘍！") ; } if ( $logfile2 ne '' && ( $FORM{'action'} ne 'oldlogfind' || $FORM{'oldlogno'} == 0 )) { if ( !(open(IN2,"$logfile2"))) { &fileunlock ; &error("晉級狀態記錄檔 ($logfile2) 讀取失敗。"); } $flg = 0 ; while ( ) { ($n,$k) = split(/,/,$_); $k =~ s/\n//; if ( $FORM{'name'} eq $n ) { if ( $rdm != 0 ) { #■隨機回扣留言篇數 srand(time ^ ($$ + ($$ << 15))); $w = int(rand(30)) ; $p = 0 ; #■根據$rdm的設定回扣留言篇數 if ( $w % $rdm == 0 ) { $k = $k - $DOWN[int(rand($#DOWN))] ; if ( $k < 0 ) { $k = 0 ; } } else { $k++; } } else { $k++ ; } $dcnt = $k ; $flg = 9; } push(@sv,"$n,$k\n"); } if ( $flg == 0 ) { push(@sv,"$FORM{'name'},1\n"); $dcnt = 1; } close(IN2); if ( !(open(OUT2,">$logfile2"))) { &fileunlock ; &error("晉級狀態記錄檔 ($logfile2) 讀取失敗。"); } print OUT2 @sv; close(OUT2); } $dcnt2 = @SVLOG; if ( $dcnt2 < 1 ) { $no = 1; #第１篇留言 } else { $no = $MAXNO + 1; } #寫入訪客回覆的留言記錄時，將該篇留言整串移回最頂端的處理 if ( $resflag eq 'yes' && $FORM{'resno'} ne '') { $cnt = 0 ; $oyacnt = 1 ; foreach $buf ( @SVLOG ) { ($oyano,$name,$email,$hp,$ttl,$comment,$regdate,$color_f,$color,$resno,$hst,$ksu,$pass,$dmy,$dmy,$icon) = split(/,/,$buf); if ( $oyano eq $FORM{'resno'} ) { $sv_title = $ttl ; splice(@SVLOG,$cnt,1); $wk = "$oyano,$name,$email,$hp,$ttl,$comment,$regdate,$color_f,$color,$resno,$hst,$ksu,$pass,$dmy,$dmy,$icon"; unshift(@SVLOG,$wk); last ; } $cnt++ ; } } else { if ( $sendmail ) { foreach $buf ( @SVLOG ) { ($oyano,$name,$email,$hp,$ttl,$comment,$regdate,$color_f,$color,$resno,$hst,$ksu,$pass,$dmy,$dmy,$icon) = split(/,/,$buf); if ( $oyano eq $FORM{'resno'} ) { $sv_title = $ttl ; last ; } } } } if ( $olddir ) { #舊留言集的處理 if ( !($FORM{'resno'}) && $#MAINLOG + 1 >= $datamax ) { ($oyano,$name,$email,$hp,$ttl,$comment,$regdate,$color_f,$color,$resno,$hst,$ksu,$pass,$dmy,$dmy,$icon) = split(/,/,$MAINLOG[$#MAINLOG]); @OLD = () ; if ( $#oldcnt >= 0 ) { if ( !(open(IN,"$oldfile"))) { &fileunlock ; &error("過去記錄檔 ($oldfile) 讀取失敗。"); } @OLD = ; close(IN); if ( $#OLD + 1 >= $oldmax ) { $i = sprintf("%02d",$#oldcnt + 2) ; $oldfile = "$olddir$i" . ".txt" ; @OLD = () ; } } else { $oldfile = "$olddir" . "01.txt" ; } $cnt = 0 ; @SVLOG2 = @SVLOG ; @SVLOG = () ; foreach $buf ( @SVLOG2 ) { ($oyano2,$name,$email,$hp,$ttl,$comment,$regdate,$color_f,$color,$resno2,$hst,$ksu,$pass,$dmy,$dmy,$icon) = split(/,/,$buf); if ( $oyano == $oyano2 || $oyano == $resno2) { unshift(@OLD,$buf) ; } else { push(@SVLOG,$buf); } $cnt++ ; } if ( !(open(OUT,">$oldfile"))) { &fileunlock ; &error("過去記錄檔 ($oldfile) 讀取失敗。"); } print OUT @OLD; close(OUT); #更改檔案權限 (驚直提示 - 可設成更安全的0600) chmod(0666,"$oldfile"); } } else { if ( !($FORM{'resno'}) && $#MAINLOG + 1 >= $datamax ) { ($oyano,$name,$email,$hp,$ttl,$comment,$regdate,$color_f,$color,$resno,$hst,$ksu,$pass,$dmy,$dmy,$icon) = split(/,/,$MAINLOG[$#MAINLOG]); @SVLOG2 = @SVLOG ; @SVLOG = () ; foreach $buf ( @SVLOG2 ) { ($oyano2,$name,$email,$hp,$ttl,$comment,$regdate,$color_f,$color,$resno2,$hst,$ksu,$pass,$dmy,$dmy,$icon) = split(/,/,$buf); if ( $oyano == $oyano2 || $oyano == $resno2) { } else { push(@SVLOG,$buf); } } } } #留言密碼的加密程序（將密碼暗號化） if ($FORM{'pass'} ne "") { &pass_enc($FORM{'pass'}); } else { $pass = '' ; } unshift(@SVLOG,"$no,$FORM{'name'},$FORM{'email'},$FORM{'hp'},$FORM{'title'},$FORM{'comment'},$today,$FORM{'color_f'},$FORM{'color'},$FORM{'resno'},$host,$dcnt,$pass,$dmy,$dmy,$FORM{'icon'}\n"); if ( !(open(OUT,">$logfile"))) { &fileunlock ; &error("記錄檔 ($logfile) 讀取失敗。"); } print OUT @SVLOG; close(OUT); &fileunlock ; #解除檔案鎖定 $wk = $smail_address ; $wk =~ s/\\//g; if ( $sendmail && ($sendsw == 1 || ( $sendsw == 0 && $FORM{'email'} ne $wk ) ) ) { &SMail ; } } else { #↓i001103 for ( $i = $pagemax ; $i >= 1 ; $i-- ) { $wk = "resno" . $i ; $rno = $FORM{$wk} ; $wk = "rescomment" . $i ; $rcom = $FORM{$wk} ; if ( $rno ne '' && $rcom ne '' ) { &dataread ; #讀取記錄檔 if ( $logfile2 ne '' ) { if ( !(open(IN2,"$logfile2"))) { &fileunlock ; &error("晉級狀態記錄檔 ($logfile2) 讀取失敗。"); } $flg = 0 ; @sv = (); while ( ) { ($n,$k) = split(/,/,$_); $k =~ s/\n//; if ( $FORM{'name'} eq $n ) { $k++ ; $dcnt = $k ; $flg = 9; } push(@sv,"$n,$k\n"); } if ( $flg == 0 ) { push(@sv,"$FORM{'name'},1\n"); $dcnt = 1; } close(IN2); if ( !(open(OUT2,">$logfile2"))) { &fileunlock ; &error("晉級狀態記錄檔 ($logfile2) 讀取失敗。"); } print OUT2 @sv; close(OUT2); } $dcnt2 = @SVLOG; if ( $dcnt2 < 1 ) { $no = 1; #第１篇留言 } else { ($no,$name,$email,$hp,$ttl,$comment,$regdate,$color_f,$color,$resno,$hst,$ksu,$pass,$dmy,$dmy,$icon) = split(/,/,$SVLOG[0]); $no++; } #寫入訪客回覆的留言記錄時，將該篇留言整串移回最頂端的處理 if ( $resflag eq 'yes') { $cnt = 0 ; $oyacnt = 1 ; foreach $buf ( @SVLOG ) { ($oyano,$name,$email,$hp,$ttl,$comment,$regdate,$color_f,$color,$resno,$hst,$ksu,$pass,$dmy,$dmy,$icon) = split(/,/,$buf); if ( $oyano eq $rno ) { splice(@SVLOG,$cnt,1); $wk = "$oyano,$name,$email,$hp,$ttl,$comment,$regdate,$color_f,$color,$resno,$hst,$ksu,$pass,$dmy,$dmy,$icon"; unshift(@SVLOG,$wk); last ; } $cnt++ ; } } #留言密碼的加密程序（將密碼暗號化） if ($FORM{'pass'} ne "") { &pass_enc($FORM{'pass'}); } else { $pass = '' ; } unshift(@SVLOG,"$no,$FORM{'name'},$FORM{'email'},$FORM{'hp'},,$rcom,$today,$FORM{'color_f'},,$rno,$host,$dcnt,$pass,$dmy,$dmy,$FORM{'icon'}\n"); if ( !(open(OUT,">$logfile"))) { &fileunlock ; &error("記錄檔 ($logfile) 讀取失敗。"); } print OUT @SVLOG; close(OUT); &fileunlock ; #解除檔案鎖定 $wk = $smail_address ; $wk =~ s/\\//g; if ( $sendmail && ($sendsw == 1 || ( $sendsw == 0 && $FORM{'email'} ne $wk ) ) ) { &SMail ; } #(驚直修改 - 修正原程式的寄發郵件通知功能不支援一氣回覆) } } } #↑i001103 #COOKIE設定 &cookieset ; } ###<-------------------------------------------------------------- ###<--- 管理模式 ###<-------------------------------------------------------------- sub Maintenance { if ( $FORM{'pass'} eq "") { &error("必須輸入密碼。"); } @DELWORD = split(/ /,$FORM{'no'}); if ($FORM{'pass'} eq $password && $FORM{'proc'} eq 'delete' && @DELWORD > 1 ) { &update ; return ; } &dataread ; #讀取記錄檔 $found = 0 ; foreach ( @SVLOG ) { ($no,$c_name,$c_email,$c_hp,$c_title,$c_comment,$regdate,$c_color_f,$c_color,$c_resno,$host,$ksu,$passwd,$dmy,$dmy,$c_icon) = split(/,/,$_); if ( $FORM{'no'} eq $no ) { if ($FORM{'pass'} ne $password && (&pass_dec($passwd))) { &fileunlock ; #解除檔案鎖定 &error("密碼不正確！"); } $found = 1 ; if ( $FORM{'proc'} eq "delete" ) { $c_resno=""; #i010131 &update ; return; } &header ; $c_pass = $FORM{'pass'} ; $c_comment =~ s/
/\n/g; &forminput ; last; } } if ( $found == 0 ) { &fileunlock ; #解除檔案鎖定 &error("找不到這個留言編號的記錄！"); } &footer ; exit; } ###<-------------------------------------------------------------- ###<--- 更新記錄檔 ###<-------------------------------------------------------------- sub update { &filelock ; #檔案鎖定 &dataread ; #讀取記錄檔 $j = 0 ; @new = () ; foreach $buf (@SVLOG) { ($no,$name,$email,$hp,$ttl,$comment,$regdate,$color_f,$color,$resno,$host,$ksu,$pass,$dmy,$dmy,$icon) = split(/,/,$buf); if ( $FORM{'no'} eq $no || ( $FORM{'proc'} eq 'delete' && $FORM{'no'} eq $resno ) ) { #<<<符合進入管理模式的條件 if ( $FORM{'proc'} eq "edit" ) { #寫入留言密碼及加密程序（將密碼暗號化） if ($FORM{'pass'} ne "") { &pass_enc($FORM{'pass'}); } else { $pass = '' ; } if ( $rno eq '' ) { push(@new,"$no,$FORM{'name'},$FORM{'email'},$FORM{'hp'},$FORM{'title'},$FORM{'comment'},$regdate,$FORM{'color_f'},$FORM{'color'},$resno,$host,$ksu,$pass,$dmy,$dmy,$FORM{'icon'}\n"); } else { push(@new,"$no,$FORM{'name'},$FORM{'email'},$FORM{'hp'},$ttl,$FORM{'comment'},$regdate,$FORM{'color_f'},$FORM{'color'},$resno,$host,$ksu,$pass,$dmy,$dmy,$FORM{'icon'}\n"); } } } else { $found = 0 ; if ( $FORM{'proc'} eq 'delete' ) { @DELWORD = split(/ /,$FORM{'no'}); foreach $word ( @DELWORD ) { if ( $word && ( $no eq $word || $resno eq $word ) ) { $found = 1 ; last ; } #u000726 } } if ( $found == 0 ) { push(@new,$buf); } } } if ( !(open(OUT,">$logfile"))) { &fileunlock ; &error("記錄檔 ($logfile) 讀取失敗。"); } print OUT @new; close(OUT); &fileunlock ; #解除檔案鎖定 $FORM{'action'} = '' ; } ###<-------------------------------------------------------------- ###<--- 顯示圖檔一覽表 ###<-------------------------------------------------------------- sub icondisp { &header ; #<<關閉視窗

\n"; #(驚直修改 - 使用JavaScript連結關閉視窗) print "■■■ 圖檔一覽表 ■■■

\n"; print "\n"; $i = 0 ; $j = 0 ; while ( 1 ) { print "\n"; for ( $ln = 1 ; $j <= $#icon_gif && $ln <= $icon_line ; ) { print "\n"; print "\n"; $j++ ; $ln++ ; } if ( $j > $#icon_gif ) { if ( $ln < $icon_line ) { for ( ; $ln <= $icon_line ; ) { print "\n"; $ln++ ; } } print "\n"; last ; } print "\n"; $i++; } print "
$iconnm[$j]  
"; if ( $jiconnm[0] ne '' ) { print "
\n"; print "
▼常連者專用圖檔▼
\n"; $i = 0 ; $j = 0 ; while ( 1 ) { print "\n"; for ( $ln = 1 ; $j <= $#jicon_gif && $ln <= $icon_line ; ) { print "\n"; print "\n"; $j++ ; $ln++ ; } if ( $j > $#jicon_gif ) { if ( $ln < $icon_line ) { for ( ; $ln <= $icon_line ; ) { print "\n"; $ln++ ; } } print "\n"; last ; } print "\n"; $i++; } print "
$jiconnm[$j]  
"; } print "


\n"; &footer ; #<<<顯示HTML頁尾 exit; } ###<-------------------------------------------------------------- ###<--- 顯示正確的圖檔 ###<-------------------------------------------------------------- sub icon_set { if ( $icon_rank == 0 ) { #不使用晉級模式的情況 #如果是常連者留言，使用常連者專用圖檔 $found = 0 ; for ( $k = 0 ; $k <= $#jiconnm ; $k++ ) { if ( $_[0] eq $jiconnm[$k] ) { $found = 1 ; if ( $jicon_gif_w[$k] != 0 ) { $dmy = "width=\"$jicon_gif_w[$k]\" height=\"$jicon_gif_h[$k]\"" ; } else { $dmy = "" ; } print ""; last ; } } #如果是管理者留言，使用管理者專用圖檔 if ( $oiconpass ) { if ( $ango == 1 ) { $wpass = crypt($oiconpass, $oiconpass); } else { $wpass = $oiconpass ; } if ( $pass eq $wpass && $found == 0 ) { #(驚直修改 - 修正原作者一個不起眼的臭蟲:當常連者準確輸入管理者專用圖檔密碼留言的時候,會同時出現兩種專用圖檔) $found = 1 ; if ( $oicon_gif_w != 0 ) { $dmy = "width=\"$oicon_gif_w\" height=\"$oicon_gif_h\"" ; } else { $dmy = "" ; } print ""; } } if ( $found == 0 ) { if ( !($icon) ) { $icon = 0 ; } if ( $icon_gif_w[$icon] != 0 ) { $dmy = "width=\"$icon_gif_w[$icon]\" height=\"$icon_gif_h[$icon]\"" ; } else { $dmy = "" ; } print ""; } } else { #使用晉級模式的情況 #如果是管理者留言，使用管理者專用圖檔 $found = 0 ; if ( $oiconpass ) { if ( $ango == 1 ) { $wpass = crypt($oiconpass, $oiconpass); } else { $wpass = $oiconpass ; } if ( $pass eq $wpass && $found == 0 ) { #(驚直修改 - 修正原作者一個不起眼的臭蟲:當常連者準確輸入管理者專用圖檔密碼留言的時候,會同時出現兩種專用圖檔) $found = 1 ; if ( $oicon_gif_w != 0 ) { $dmy = "width=\"$oicon_gif_w\" height=\"$oicon_gif_h\"" ; } else { $dmy = "" ; } print ""; } } if ( $found == 0 ) { print ""; } } } ###<-------------------------------------------------------------- ###<--- 取得COOKIE資訊 ###<-------------------------------------------------------------- sub cookieget { $cookies = $ENV{'HTTP_COOKIE'}; @pairs = split(/;/,$cookies); foreach $pair (@pairs) { ($name, $value) = split(/=/, $pair); $name =~ s/ //g; $DUMMY{$name} = $value; } @pairs = split(/,/,$DUMMY{'mkakikomitai'}); foreach $pair (@pairs) { ($name, $value) = split(/\!/, $pair); $COOKIE{$name} = $value; } if ($FORM{'name'}) { $COOKIE{'nm'} = $FORM{'name'}; } if ($FORM{'email'}) { $COOKIE{'em'} = $FORM{'email'}; } if ($FORM{'hp'}) { $COOKIE{'hp'} = $FORM{'hp'}; } if ($FORM{'pass'}) { $COOKIE{'ps'} = $FORM{'pass'}; } if ($FORM{'icon'}) { $COOKIE{'icon'} = $FORM{'icon'}; } if ($FORM{'color'}) { $COOKIE{'cl'} = $FORM{'color'}; } if ($FORM{'color_f'}) { $COOKIE{'cl_f'} = $FORM{'color_f'}; } } ###<-------------------------------------------------------------- ###<--- 設定COOKIE ###<-------------------------------------------------------------- sub cookieset { ($secg,$ming,$hourg,$mdayg,$mong,$yearg,$wdayg,$ydayg,$isdstg) =gmtime(time + 30*24*60*60); $yearg += 1900 ; if ($secg < 10) { $secg = "0$secg"; } if ($ming < 10) { $ming = "0$ming"; } if ($hourg < 10) { $hourg = "0$hourg"; } if ($mdayg < 10) { $mdayg = "0$mdayg"; } $mong = ('Jan','Feb','Mar','Apr','May','Jun','Jul','Aug','Sep','Oct','Nov','Dec')[$mong]; $youbi = ('Sunday','Monday','Tuesday','Wednesday','Thursday','Friday','Saturday')[$wdayg]; $date_gmt = "$youbi, $mdayg\-$mong\-$yearg $hourg:$ming:$secg GMT"; $cook="nm\!$FORM{'name'},em\!$FORM{'email'},hp\!$FORM{'hp'},cl_f\!$FORM{'color_f'},cl\!$FORM{'color'},ps\!$FORM{'pass'},icon\!$FORM{'icon'}"; print "Set-Cookie: mkakikomitai=$cook; expires=$date_gmt\n"; } ###<-------------------------------------------------------------- ###<--- 顯示錯誤訊息 ###<-------------------------------------------------------------- sub error { &header ; print "$_[0]

\n"; #(驚直修改 - 改以紅字顯示) &footer; exit; } ###<-------------------------------------------------------------- ###<--- 檔案鎖定程序 ###<-------------------------------------------------------------- sub filelock { if (-e $lockfile) { ($ftm) = (stat($lockfile))[9]; if ($ftm < time - 150) { unlink($lockfile); } } foreach (1 .. 5) { if (-e $lockfile) { sleep(1); } else { open(LOCK,">$lockfile"); close(LOCK); return; } } &error("同時有其他人正在寫入留言。請返回上一頁待稍後再試一次吧。
假如情況持續，可能因為留言板給鎖定了，請通知留言板管理者刪除鎖定檔 ($lockfile) 。"); } ###<-------------------------------------------------------------- ###<--- 解除檔案鎖定 ###<-------------------------------------------------------------- sub fileunlock { if (-e $lockfile) { unlink($lockfile); } } ###<-------------------------------------------------------------- ###<--- 取得留言者的留言篇數 ###<-------------------------------------------------------------- sub rankget { $set = 0 ; $tmax = $#rankno ; for ( $j = 0 ; $j <= $tmax ; $j++ ) { if ( $_[0] >= $rankno[$j] ) { $ranking = $rank[$j] ; $rank_idx = $j ; } } return ($ranking); } ###<-------------------------------------------------------------- ###<--- 顯示晉級資格說明 ###<-------------------------------------------------------------- sub info { &header ; #<<關閉視窗
\n"; #(驚直修改 - 改為關閉視窗) print "■■■ 晉級資格說明 ■■■

\n"; print "只要達到以下的留言篇數，你就可以晉級喔！

\n"; $i = 0; print "
\n"; print "\n"; $k = $#rank ; for ( @rank ) { print "\n"; print "\n"; $i++; } print "
$rank[$i]"; $j = $rankno[$i+1] - 1 ; if ( $i != $k ) { #(驚直修改 - 加入英文字形) print "$rankno[$i] ∼ $j 篇\n"; } else { print "$rankno[$i] 篇以上\n"; } print "


"; &footer ; #<<<顯示HTML頁尾 exit; } ###<-------------------------------------------------------------- ###<--- 寄發郵件通知 ###<-------------------------------------------------------------- sub SMail { $name = $FORM{'name'}; $email = $FORM{'email'}; $ttl = $FORM{'title'}; $ttl2 = $title; if ( $FORM{'kflg'} eq '' ) { #(驚直修改 - 修正原程式的寄發郵件通知功能不支援一氣回覆) $comment = $FORM{'comment'}; } else { $comment = "$rcom\n(留言編號#$rno之回覆)"; } $comment =~ s/
/\n/g; if ($FORM{'resno'} ne "") { $ttl = "$sv_title"; } elsif ($FORM{'resno'} eq "" && $ttl eq "") { $ttl = "(無題)"; } $comment =~ s/<//g; $comment =~ s/,/\,/g; #(驚直加入 - 轉換半形逗號) if ($ttl eq "") { $ttl = "(無題)"; } #(驚直修改 - 原程式漏寫的一行) #(驚直修改 - 加入$ttlsubj變數用來放在信件標題使之更清晰) if ( $FORM{'kflg'} ne '' ) { #(驚直加入 - 一氣回覆時顯示的信件標題) $ttlsubj = "有一篇訪客使用「一氣回覆模式」寫入的留言已經灌進留言板嘍"; } else { if ($FORM{'resno'} eq "") { if ($ttl eq "(無題)") {$ttlsubj = "有一篇沒有標題的新留言已經寫在留言板上嘍";} else {$ttlsubj = "有一篇新的留言「$ttl」已經寫在留言板上嘍";} } else { if ($ttl eq "(無題)") {$ttlsubj = "有一篇訪客回覆、沒有標題的留言已經寫在留言板上嘍";} else {$ttlsubj = "有一篇訪客回覆的留言「$sv_title」已經寫在留言板上嘍";} } } if ( !($email) ) { $email = $smail_address ; } if ( $hiho == 1 ) { open(MAIL,"| $sendmail -s \"$ttlsubj\" -f \"$email\" $smail_address") || &error("寄信程式出了問題！"); #(驚直修改 - 信件標題改用$ttlsubj變數) } else { open(MAIL,"| $sendmail -t") || &error("寄信程式出了問題！"); print MAIL "X-Mailer: mkakikomitai Ver$ver\n"; #(驚直修改 - 改為程式名稱) print MAIL "To: $smail_address\n"; if ($FORM{'email'} ne "") { print MAIL "Reply-to: $name <$email>\n"; } #(驚直修改 - 加入對方名字,無提供電子郵箱則忽略) print MAIL "Subject: $ttlsubj\n"; #(驚直修改 - 信件標題改用$ttlsubj變數) print MAIL "Content-Transfer-Encoding: 8bit\n"; #(驚直修改 - 改為8bit傳送) print MAIL "Content-type: text/plain; charset=big5\n"; #(驚直修改 - 改為繁體中文語系標籤) } print MAIL "<<< $ttl2 >>>\n\n"; print MAIL "────────────────────────────────────────\n"; print MAIL "留言時間: $today\n"; print MAIL "訪客名字: $name\n"; if ($FORM{'email'} ne "") { print MAIL "電子郵箱: $email\n"; } #(驚直修改 - 無提供電子郵箱則忽略) if ($FORM{'hp'} ne "") { print MAIL "HOME: http://hk.geocities.com/deathnote_l_misa{'hp'}\n"; } if ($FORM{'kflg'} eq '') { print MAIL "留言標題: $ttl\n"; } #(驚直修改 - 一氣回覆時不顯示標題) print MAIL "────────────────────────────────────────\n"; #(驚直修改 - 加入分隔橫線) print MAIL "$comment\n"; print MAIL "────────────────────────────────────────\n"; close(MAIL); } ###<-------------------------------------------------------------- ###<--- 密碼加密程序 ###<-------------------------------------------------------------- sub pass_enc { if ( $ango == 1 ) { $pass = crypt($_[0], $_[0]); } else { $pass = $_[0]; } } ###<-------------------------------------------------------------- ###<--- 檢查密碼 ###<-------------------------------------------------------------- sub pass_dec { if ( $ango == 1 ) { if ($_[0] ne '' && ( crypt($FORM{'pass'}, $_[0]) eq $_[0]) ) { return 0 ; } } else { if ($FORM{'pass'} eq $_[0]) { return 0 ; } } return 1; } ###<-------------------------------------------------------------- ###<--- 檢查過去記錄檔 ###<-------------------------------------------------------------- sub logchk { if ( $olddir ) { #如果要保留舊留言集，此資料夾必須存在 if ( !(opendir(DIR,"$olddir"))) { &error("儲存過去記錄檔的資料夾 ($olddir) 並不存在，請立即建立此資料夾。"); } @oldcnt = grep(/\.txt/,readdir(DIR)); $i = sprintf("%02d",$#oldcnt + 1) ; $oldfile = "$olddir$i" . ".txt" ; closedir(DIR) ; } } ###<-------------------------------------------------------------- ###<--- 顯示各人晉級狀態 ###<-------------------------------------------------------------- sub rankdisp { if ( !(open(IN,"$logfile2"))) { &error("晉級狀態記錄檔 ($logfile2) 讀取失敗。"); } while ( ) { ($n,$k) = split(/,/,$_); $k =~ s/\n//g; push(@RANKDATA,"$k,$n") ; } close(IN); @RANKDATA = sort { $a <=> $b } @RANKDATA ; @RANKDATA = reverse @RANKDATA ; &header ; #<<關閉視窗
\n"; #(驚直修改 - 改為關閉視窗) print "■■■ 各人晉級狀態 ■■■

\n"; print "
\n"; print "\n"; print "\n"; #(驚直修改 - 改變表格標題列的背景顏色) print "\n"; print "\n"; foreach ( @RANKDATA ) { ($k,$n) = split(/,/,$_); for ( $j = 0 ; $j <= $#rankno ; $j++ ) { if ( $k >= $rankno[$j] ) { $ranking = $rank[$j] ; $rank_idx = $j ; } } print "\n"; print "\n"; #(驚直修改 - 加入英文字形) print "\n"; } print "
留言者留言次數晉級狀態
$n$k 篇$ranking


\n"; &footer ; #<<<顯示HTML頁尾 exit ; } ###<-------------------------------------------------------------- ###<--- 下載留言記錄檔 i001112 ###<-------------------------------------------------------------- sub download { print "Content-type: text/download; charset=big5\n\n"; #(驚直修改 - 加入繁體中文語系標籤) print "\n"; print "\n"; #(驚直修改 - 加入繁體中文語系識別語法) print "$title"; #<<>> #(驚直加入 - 下載回來的記錄檔也使用樣式表) print "\n"; #<<>> print "\n"; $wk = "bgcolor=\"$bgcolor\""; print "\n"; &view ; print "

\n"; &footer ; exit; }