#!/usr/bin/perl
$|=1;
#############################################################################
# 本軟體著作權屬【琪琪的家】所有。【本版嚴禁 轉傳、收錄】		    #
# 任何人皆可自由使用本程式於非商業用途, 如需用於商業用途請於事先告知。	    #
# 您可以對程式內容作必要的修改，但是必須先告知作者及保留本段宣告資料。      #
#	 人物圖是 [小正正] http://www2.nsysu.edu.tw/alex/ 提供。            #
#	   【琪琪的家】    http://yaci.hypermart.net/			    #
#	   【妥當教學網】  http://www.todun.com		/ 修改。	    #
#	   【迷霧之光】    http://nank.jear.net	        / 修改二版。	    #
#############################################################################
$gbhead = 'book.htm';		#留言格式檔
$gbdata = 'ablt.txt';		#留言資料檔
$cgiurl = 'book.cgi';		#留言讀取程式
$picdir = 'pic';		#存放圖檔目錄
$num    = 1;			#顯示留言編號 1=on 
$html	= 1;			#HTML開啟 0 = 關閉
$show   = 20;			#設定每頁筆數
$pass   = 'fat100';		#設定板主密碼
$msg1color = 'ff0000';		#設定回覆顏色
$tdcolor   = 'cccccc';		#設定留言者資料底色
$ncolor   = 'PERU';		#設定留言者名字顏色
#############################################################################
&parse_get;
open (MSGS, $gbdata);
@MSGSDATA=<MSGS>;
close (MSGS);
$i=0; $j=1; $temp=1; $flag=0;
foreach $line (@MSGSDATA) { if ($line =~ /<!--(.*)-->/) { $i++; } }
$page=($i%$show); if ($page != 0 || $i == 0){ $page=int($i/$show)+1; }
   else { $page=($i/$show); }
if ($cici eq ""){ $min=1; $max=$show; $cici=1; }
if ($cici ne ""){ $min=(($cici-1)*$show)+1; $max=$cici*$show; }

print "Content-type: text/html\n\n";
open (FILE, $gbhead);@lines=<FILE>;close (FILE);
foreach $head (@lines)	{
if ($head=~ /<!--counter-->/)	{ 
print "<font color=NAVY>※ 現有 $i 筆 ※ <font color=blue>";
print "【第 $cici 頁】</font> ※ 共分 $page 頁 ※</font><font color=red>HTML";
 if ($html eq 1) { print "開啟"; } else { print "關閉"; }
 print "</font><font color=NAVY>※</font>\n";
				} else { print "$head"; }
			}

foreach $line (@MSGSDATA) {
	($cnt,$hidd,$msgcolor,$msg,$msg1,$sex,$name,$url,$www,$email,$work,$time)=split(/∥/,$line);
	chop($line);
	$cnt=~ s/<!--//g;
	$cnt=~ s/-->//g;
if ($yaci ne "$pass" && $hidd eq "on") {$msg="<font color=0>【hi 小積哥哥你有一封悄悄話哦．．】"; }
if ($yaci eq "$pass" && $hidd eq "on") { $msg="<font color=red>★悄悄話★</font><BR>$msg";}
	$msg=~s/<BR>/<BR>\n/g;
	if ($temp>=$min && $temp <=$max) {
	print "<TABLE BORDER=0 WIDTH=\"80%\">\n";
	print "<TD rowpan=\"2\" colspan=\"2\" bgcolor=\"$tdcolor\" valign=\"top\" width=\"100%\">\n";
	print "<FONT color=\"$ncolor\">$name</FONT>\n";
	if ($url) {
	print "<A HREF=\"$url\" TARGET=\"_blank\">\n";
	print "<IMG SRC=\"$picdir/url.gif\" alt=\"$www\" BORDER=0 HSPACE=15 align=\"absmiddle\"></A>\n";
           }
	if ($email) {
	print "<A HREF=\"mailto:$email\">\n";
	print "<IMG SRC=\"$picdir/mail.gif\" alt=\"$email\" BORDER=0 HSPACE=15 align=\"absmiddle\"></A>\n";
           }
	print "<FONT COLOR=\"#0036eb\">【 $work 】</FONT>\n";
	print "<FONT COLOR=\"#666699\">$time</FONT><input type=checkbox name=\"$temp\" value=\"$cnt\">\n";
	if ($num eq 1 ){ print "$cnt"; }
	print "</TD></TR><TR>\n";
	print "<TD width=\"11%\" rowspan=\"2\" aligh=\"center\">\n";
	print "<IMG SRC=\"$picdir/$sex\"></TD>\n";
	print "<TD rowpan=\"2\" width=\"89%\">\n";
	print "<FONT COLOR=\"$msgcolor\">$msg</font></TD></TR><TR><TD rowpan=\"2\" width=\"60%\"><hr color=\"#cae4ff\" width=\"95%\"><font color=\"$msg1color\">$msg1\n";
	print "</font></TD></TR></TABLE><hr width=\"80%\" color=\"aacccc\">\n";
	$flag=1; }
	$temp++;
	}

if ($flag == 0){
	print "<B>本 頁 尚 未 有 留 言 哦 ！</B><HR WIDTH=\"85%\" COLOR=\"#FF8080\"\>";
	print "</BODY></HTML>";}
	print "<TABLE BORDER=0 WIDTH=\"520\"><TR><TD>觀看頁數:|\n";
	while ($i>0) {
	print "";
	print "<A HREF=\"$cgiurl?$j\">" if ($cici != $j); 
	print " ";
	if ($j <10 ){ print "0"; }
	print "$j ";
	print "</a>" if ($cici != $j);
	print "|\n";
	$i=$i-$show; $j++;
	}
print "</TD></TR></TABLE>";
print "<INPUT TYPE=\"hidden\" name=\"page\" value=\"$cici\">\n";
print "<INPUT TYPE=\"hidden\" name=\"max\" value=\"$max\">\n";
print "<INPUT TYPE=\"hidden\" name=\"min\" value=\"$min\">\n";
print "<TABLE WIDTH=\"80%\" BORDER=\"1\"><TR>\n";
print "<TD width=\"60%\" rowspan=\"2\" align=center>\n";
print "<textarea cols=\"50\" name=\"msg1\" rows=\"4\">小積哥哥回覆:</textarea></td>\n";
print "<TD align=\"center\" valign=\"middle\" width=\"15%\" rowspan=\"2\">\n";
print "<select name=\"mode\" size=\"3\">\n";
print "<option value=\"talk\">回覆</option>\n";
print "<option value=\"del\">刪除</option>\n";
print "<option value=\"look\">觀密</option></select></td>\n";
print "<TD width=\"18%\" align=\"center\" valign=\"middle\" rowspan=\"2\">\n";
print "<INPUT type=\"password\" name=\"password\" SIZE=\"12\"></td>\n";
print "<TD width=\"7%\" align=\"center\" valign=\"middle\">\n";
print "<INPUT type=\"submit\" VALUE=\"執行\" style=\"background-color:#eeeeee;border:1 solid black\"></td></tr>\n";
print "<tr><TD width=\"7%\" align=\"center\" valign=\"middle\">\n";
print "<input type=\"reset\" value=\"重設\" style=\"background-color:#eeeeee;border:1 solid black\"></td></tr>\n";
print "<TR ALIGN=\"CENTER\">";
print "<TD COLSPAN=\"4\">程式來源-[<a href=\"http://yaci.hypermart.net/\" TARGET=\"_blank\">";
print "琪琪的家</a>] 程式修改-[<a href=\"http://www.todun.com\" TARGET=\"_blank\"> 妥當教學網</a>] 修改二版-[<a href=\"http://nank.jear.net\" TARGET=\"_blank\"> 迷霧之光  </a>] 飛喵喵空服網-[<a href=\"http://myweb.hinet.net/home7/meowfly\" TARGET=\"_blank\"> 修改三版\n"; 
print "</TD></TR></TABLE>";
print "</BODY></HTML>\n";
sub parse_get { $buff = "$ENV{'QUERY_STRING'}"; ($cici,$yaci)=split(/∥/,$buff); }