#!/usr/bin/perl
$|=1;
#############################################################################
# 本軟體著作權屬【琪琪的家】所有。【本版嚴禁 轉傳、收錄】		    #
# 任何人皆可自由使用本程式於非商業用途, 如需用於商業用途請於事先告知。	    #	
# 您可以對程式內容作必要的修改，但是必須先告知作者及保留本段宣告資料。      #
#	 人物圖是 [小正正] http://www2.nsysu.edu.tw/alex/ 提供。            #
#	   【琪琪的家】    http://yaci.hypermart.net/			    #
#############################################################################
$gbhead = 'book.htm';		#留言格式檔
$gbdata = 'ablt.txt';		#留言資料檔
$cgiurl = 'book.cgi';		#留言讀取程式
$picdir = 'pic';		#存放圖檔目錄
$num    = 1;			#顯示留言編號 1=on 
$show   = 40;			#設定每頁筆數
$pass   = 'sin';		#設定板主密碼
#############################################################################
&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>\n";
				} else { print "$head"; }
			}

foreach $line (@MSGSDATA) {
	($cnt,$hidd,$msg,$sex,$name,$url,$www,$email,$time)=split(/∥/,$line);
	chop($line);
	$cnt=~ s/<!--//g;
	$cnt=~ s/-->//g;
if ($meow ne "$pass" && $hidd eq "on") {$msg="<font color=0>【這是給新航空服員 Harry Girl 小姐的悄悄話．．．．】"; }
if ($meow 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=\"85%\"><TR><TD colspan=\"2\">\n";
	print "$msg</TD></TR>\n";
	print "<TR><TD><IMG SRC=\"$picdir/$sex\">";
	print "<FONT COLOR=PERU>$name</FONT>\n";
	if ($url) {
	print "<A HREF=\"$url\" TARGET=\"_top\">\n";
	print "<IMG SRC=\"$picdir/url.gif\" alt=\"$www\" BORDER=0 HSPACE=15></A>\n";
           }
	if ($email) {
	print "<A HREF=\"mailto:$email\">\n";
	print "<IMG SRC=\"$picdir/mail.gif\" alt=\"$email\" BORDER=0 HSPACE=15></A>\n";
           }
	print "</TD><TD ALIGN=RIGHT VALIGN=BOTTOM><FONT COLOR=PLUM>";
	print "$time</FONT><input type=checkbox name=\"$temp\" value=\"$cnt\">\n";
	if ($num eq 1 ){ print "$cnt"; }
	print "</TD></TR></TABLE><HR WIDTH=\"85%\" COLOR=\"#FF8080\">\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><FONT SIZE=2>\n";
	while ($i>0) {
	print "【";
	print "<A HREF=\"$cgiurl?$j\"><font color=green>" if ($cici != $j); 
	print "第 ";
	if ($j <10 ){ print "0"; }
	print "$j 頁";
	print "</font></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=\"85%\" BORDER=\"1\"><TR>\n";
print "<TD><INPUT type=\"radio\" name=\"mode\" value=\"talk\">回覆:\n";
print "    <INPUT type=\"text\" size=\"35\" name=\"msg1\" value=\"Harry Girl回覆:\"></TD>\n";
print "<TD><INPUT type=\"radio\" name=\"mode\" value=\"del\">刪除 </TD>\n";
print "<TD><INPUT type=\"radio\" name=\"mode\" value=\"look\" CHECKED>觀密</TD>\n";
print "<TD><INPUT type=\"password\" name=\"password\" SIZE=\"4\">ID</TD>\n";
print "<TD><INPUT type=\"submit\" VALUE=\"ID\"></TD></TR>\n";
print "<TR ALIGN=\"CENTER\"><TD COLSPAN=\"5\">\n";
print "<font size=2>按這回<a href=\"http://come.to/flymeowmeow\"\n";
print " style=text-decoration:none TARGET=\"_top\">\n";
print "<font color=red>飛喵喵的家</font></a> 特邀新航空服員 Harry Gir 擔任板主 </TD></TR></TABLE></form>";
print "</BODY></HTML>\n";
sub parse_get { $buff = "$ENV{'QUERY_STRING'}"; ($cici,$meow)=split(/∥/,$buff); }