#!/usr/local/bin/perl

########################################################################
##									
##    Program     : view.cgi
##    Description : version 3.0 อ่านสมุดเยี่ยม
##    Programmer  : ไชยรัตน์  สุนทรวิภาต
##    Website     : http://www.sixhead.com
##    Email       : webmaster@sixhead.com
##    Date        : 30 สิงหาคม 2543 (02:30 น.)
##    last modify : 19 ตุลาคม 2543 (02:28 น.)
##									
########################################################################

print "Pragma: no-cache\n";
print "Content-type:text/html\n\n";

use CGI qw(param);

$page = param('page');


require "./config.cgi";

$TITLE="View Guestbook :: ดูสมุดเยี่ยมของ $config_website_name";
$HEAD ="View Guestbook :: ดูสมุดเยี่ยมของ $config_website_name";

require "./guestbook_module.cgi";

#####################################################################
# Start program
#####################################################################

&View_guestbook();


sub View_guestbook {

$table_head = qq(
<table border="0" width="100%" cellspacing="0">
  <tr>
    <td width="100%" bgcolor="$config_table_border_color">
        <table border="0" width="100%" cellspacing="0" cellpadding="4">
          <tr>
            <td width="100%" bgcolor="$config_table_bg_color">
			<font face="$config_font_face" size="$config_font_size" color="$config_font_color">
			
);


$table_bottom = qq(
</font>
			</td>
          </tr>
        </table>
    </td>
  </tr>
</table>
);

$all_guest = 0;
open (ALL_GUEST,"./database.cgi") or die print "CAN NOT OPEN FILE :: line 62";
#flock(ALL_GUEST,2);
while(<ALL_GUEST>) { $all_guest++; }
#flock(ALL_GUEST,8);
close(ALL_GUEST);

if (!$page) { $page = 1; }

$page--;
$all_page  = int($all_guest / $config_per_page);
$fix_page  = $all_guest % $config_per_page;

if ($fix_page > 0) { $all_page++; }
if (($page == 0))  { $start_loop = $all_guest; } else { $start_loop = ($all_guest - ($page * $config_per_page)); }

$i = -1;
$delete_page = $page + 1;

open (DATABASE,"./database.cgi") or die print "CAN NOT OPEN FILE :: line 80";
#flock(DATABASE,2);
while(<DATABASE>) { 
	$i++;
	chomp($_);
	if ($page != 0) { 
		if (($i >= ($start_loop - $config_per_page)) && ($i <= ($start_loop - 1))) { 
		my ($num,$name,$email,$homepage,$date,$comment) = split(/\|X\|/,$_);
		my $pic_nav = qq(<a href='delete.cgi?page=$delete_page&guest=$num'><img src="$config_image_delete" align="right" alt="ลบข้อความนี้" border="0"></a>);

			if ($email) { $email =~s/$email/<b>อีเมลล์ &nbsp; <\/b><a href='mailto:$email'>$email<\/a><br>\n/; }
			if ($homepage) { $homepage =~s/$homepage/<b>โฮมเพจ <\/b><a href='$homepage' target='_blank'>$homepage<\/a><br>\n/; }
			
			push (@guestbook,"$table_head $pic_nav <b>โดย &nbsp; &nbsp; &nbsp;</b>$name<br>$email$homepage<b>เมื่อ &nbsp; &nbsp; &nbsp;</b>$date <br><br>$comment <br><br>$table_bottom  <br>\n");
		}
	}
	else { 
		if (($i >= ($start_loop - $config_per_page)) && ($i <= ($start_loop))) { 
		my ($num,$name,$email,$homepage,$date,$comment) = split(/\|X\|/,$_);	
		my $pic_nav = qq(<a href='delete.cgi?page=$delete_page&guest=$num'><img src="$config_image_delete" align="right" alt="ลบข้อความนี้" border="0"></a>);

			if ($email) { $email =~s/$email/<b>อีเมลล์ &nbsp; <\/b><a href='mailto:$email'>$email<\/a><br>\n/; }
			if ($homepage) { $homepage =~s/$homepage/<b>โฮมเพจ <\/b><a href='$homepage' target='_blank'>$homepage<\/a><br>\n/; }
			
			push (@guestbook,"$table_head $pic_nav <b>โดย &nbsp; &nbsp; &nbsp;</b>$name<br>$email$homepage<b>เมื่อ &nbsp; &nbsp; &nbsp;</b>$date <br><br>$comment <br><br>$table_bottom  <br>\n");
		}	
	}
}
#flock(DATABASE,8);
close(DATABASE);

chomp(@guestbook);
@guestbook = reverse(@guestbook);

for ($i=$all_page;$i>=1;$i--) { push (@link_page,$i); }
@show_page = reverse(@link_page);

for ($i=0;$i<$all_page;$i++) { 
	if ($i != $page) { push(@print_page,"<a href='view.cgi\?page=$show_page[$i]'>$show_page[$i]</a> |"); }
	else  { push(@print_page,"<b>$show_page[$i]</b> |"); }
}



$DATA = qq(
<font color = "$config_table_border_color">
<b>>></b> <a href='$config_website_url'>กลับหน้าแรก</a>&nbsp; &nbsp; 
<b>>></b> <a href='sign.cgi'>เขียนสมุดเยี่ยม</a>
</font><br>
<b>หน้า</b>&nbsp; | @print_page<br>
ผู้เขียนทั้งหมด&nbsp;<b>$all_guest</b> ท่าน<br><br>
@guestbook 
<b>หน้า</b>&nbsp; | @print_page
);

&Template();
exit;
}


__END__