#!/usr/bin/perl
#!c:/perl/bin/perl
$|=1;
#############################################################################
# 本软体著作权属【琪琪的家】所有。【本版严禁 转传、收录】		    #
# 任何人皆可自由使用本程式于非商业用途, 如需用于商业用途请于事先告知。	    #	
# 您可以对程式内容作必要的修改，但是必须先告知作者及保留本段宣告资料。      #
#	 人物图是 [小正正] http://www2.nsysu.edu.tw/alex/ 提供。            #
#	   【琪琪的家】    http://yaci.hypermart.net/			    #
#############################################################################
$data_path = "data/";
$gbhead = 'book.htm';		#留言格式档
$gbdata = $data_path.'book.txt';		#留言资料档
$cgiurl = 'book.cgi';		#留言读取程式
$picdir = 'pic';		#存放图档目录
$num    = 1;			#显示留言编号 1=on 
$show   = 10;			#设定每页笔数
$pass   = 'xinyi';		#设定板主密码
#############################################################################
&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=~ /<!--GUESTBOOK-->/)	{ 
        print "<FORM METHOD=POST ACTION=\"del.cgi\"><font color=NAVY>※ 现有 $i 笔 ※ <font color=blue>";
        print "【第 $cici 页】</font> ※ 共分 $page 页 ※</font>\n";

        foreach $line (@MSGSDATA) {
        	($cnt,$hidd,$msg,$sex,$name,$url,$www,$email,$time)=split(/∥/,$line);
        	chop($line);
        	$cnt=~ s/<!--//g;
        	$cnt=~ s/-->//g;
            if ($yaci ne "$pass" && $hidd eq "on") {$msg="<font color=0>【这是给板主的悄悄话】"; }
            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=\"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=\"20\" name=\"msg1\" value=\"回覆:\"></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=\"6\"></TD>\n";
        print "<TD><INPUT type=\"submit\" VALUE=\"执行\"></TD></TR>\n";
        print "<TR ALIGN=\"CENTER\"><TD COLSPAN=\"5\">\n";
        print "<font size=2>本程式由<a href=\"http://www.vimgate.com/\"\n";
        print " style=text-decoration:none TARGET=\"＿blank\">\n";
        print "<font color=green>盈嘉网络</font></a> 提供</TD></TR></TABLE></form>";
        print "</BODY></HTML>\n";
    } else { 
        print "$head"; 
    }
}


sub parse_get { $buff = "$ENV{'QUERY_STRING'}"; ($cici,$yaci)=split(/∥/,$buff); }