#!/usr/bin/perl

###########################################
# Program			:	List.pl
# ขีดๆ เขียนๆ โดย	:	9AuM 
# วันที่			:	6/11/2003
# email				:	aum@scriptdd.com
###########################################


# หา path ของ OS ก่อน 
if ($^X =~/Perl.exe/i) {
	$pathprogram	=	$ENV{'PATH_TRANSLATED'};
	$pathprogram	=~ s{(.*)(\/|\\)(.*?).pl}{$1}gi;
	}else{
		$pathprogram	=	$ENV{'SCRIPT_FILENAME'};
		$pathprogram	=~ s{(.*)(\/|\\)(.*?).pl}{$1}gi;
		}


# เรียก program จะ file ย่อย
require "$pathprogram/config.pl";
require "$pathprogram/tool.pl";


# ส่ง text html  แบบไม่ลง cache #############
print "Pragma: no-cache\n";
print "Content-type: text/html\n\n";

&GetCookies('session'); 
$session	=	$Cookies{'session'};

if ($session eq $session_admin) {
	$adminmenu	=qq(<img src="../../webboard-dd/image-board/icon_folder.gif" width="17" height="15" align="absmiddle" border="0" vspace="1" hspace="1"><a href="setup.pl">การตั้งค่าต่างๆ</a> <img src="../../webboard-dd/image-board/icon_folder.gif" width="17" height="15" align="absmiddle" border="0" vspace="1" hspace="1"><a href="logout.pl">ออกจากระบบ</a>);
}


use CGI;
$aum		=	new CGI;
$p			=	$aum->param(p);
if ($p eq "" || $p < 1 || $p =~/\D/) {$p	=1;}


### เปิด topic.txt เพื่อสร้าง list รายกระทู้ ###
open(AuM, "data/topic.txt") || die print qq("Error can not open file $file");
while (<AuM>){$topicall[@topicall]=$_;}
close(AuM);
### เปิด topic.txt เพื่อสร้าง list รายกระทู้ ###


foreach $temp (@topicall) {
	chomp $temp;
	($numtopic,$topictext,$poster,$email,$pic,$time,$view,$ans,$toptopic)=split(/\t/,$temp);

	if ($toptopic eq '1') {

				if ($time ne '') {
					$time	=	&thaitime("$time");
				}else{
					$time	='';
				}

				
				if ($pic ne '') {
					$pic	=	qq(<img src="../../webboard-dd/image-board/icon_pic.gif" border="0" align="absmiddle" vspace="2" hspace="2">);
				}else{
					$pic	=	'';							
				}
				
				$datatoptopic.=qq(
<tr>
    <td><font face="MS Sans Serif" size="2">&nbsp;&nbsp;<b><font color="red">$numtopic</font></b></font></td>
    <td><font face="MS Sans Serif" size="2"><b><a href="topic.pl?t=$numtopic" target="_blank">$topictext</a>&nbsp;$pic&nbsp;<img src="../../webboard-dd/image-board/icon_hot.gif"  border="0" align="absmiddle" vspace="2" hspace="2"></b></font></td>
    <td><div align="center"><font face="MS Sans Serif" size="2">$poster</font></div></td>
    <td><div align="center"><font face="MS Sans Serif" size="2">$time</font></div></td>
    <td><div align="center"><font face="MS Sans Serif" size="2">[$view/$ans]</font></div></td>
</tr>
);				

	}else{
		$topicall2[@topicall2]	=	"$temp\n";
	}
}


@topicall	=	@topicall2;



$line	=	@topicall;
if ($line eq '') {	$line =	0;}




if ($line eq 0) {
	$datatopic	=qq(<br><div align="center">ยังไม่มีกระทู้ครับ</font><br>&nbsp;);
	$link		=qq(หน้าที่ 1);
}else{

$start		=($perpage*$p)-($perpage-1);if ($start>$line) {$start=$line;}
$stop		=($perpage*$p); if ($stop>$line) {$stop=$line;}
@topicall	=reverse @topicall;

$datatopic.=qq(
         <table width="100%" border="0" cellspacing="0" cellpadding="2" align="center">
              <tr bgcolor="#FFCC99"> 
                <td width="8%"><font face="MS Sans Serif" size="2"><b><font color="#FFFF00">&nbsp;&nbsp;กระทู้ที่</font></b></font></td>
                <td width="42%"><font face="MS Sans Serif" size="2"><b><font color="#FFFF00">หัวข้อกระทู้</font></b></font></td>
                <td width="28%"> 
                  <div align="center"><font face="MS Sans Serif" size="2"><b><font color="#FFFF00">โดยคุณ</font></b></font></div>
                </td>
                <td width="15%"> 
                  <div align="center"><font face="MS Sans Serif" size="2"><b><font color="#FFFF00">ตอบล่าสุด</font></b></font></div>
                </td>
                <td width="7%"> 
                  <div align="center"><font face="MS Sans Serif" size="2"><b><font color="#FFFF00">ดู 
                    / ตอบ</font></b></font></div>
                </td>
              </tr>

);
$datatopic.=$datatoptopic;

			for ($i=$start-1;$i<$stop;$i++) {
				chomp $topicall[$i];
				($numtopic,$topictext,$poster,$email,$pic,$time,$view,$ans,$toptopic)=split(/\t/,$topicall[$i]);

				if ($time ne '') {
					$time	=	&thaitime("$time");
				}else{
					$time	='';
				}

				if ($pic ne '') {
					$pic	=	qq(<img src="../../webboard-dd/image-board/icon_pic.gif" border="0" align="absmiddle" vspace="2" hspace="2">);
				}else{
					$pic	=	'';							
				}
				$datatopic.=qq(
  <tr>
    <td><font face="MS Sans Serif" size="2">&nbsp;&nbsp;<b>$numtopic</b></font></td>
    <td><font face="MS Sans Serif" size="2"><a href="topic.pl?t=$numtopic" target="_blank">$topictext</a>&nbsp;$pic</font></td>
    <td><div align="center"><font face="MS Sans Serif" size="2">$poster</font></div></td>
    <td><div align="center"><font face="MS Sans Serif" size="2">$time</font></div></td>
    <td><div align="center"><font face="MS Sans Serif" size="2">[$view/$ans]</font></div></td>
  </tr>
);				
			}

$datatopic.=qq(</table>);
			#หา จำนวน link ทั้งหมดว่า กี่หน้า 
				$num_page_to_link=$line/$perpage;
				$num_page_to_link=~s/(.*)\..+/$1/gi;
				$p_to_link=$line%$perpage;
			

				if ($p_to_link ne '0'  ) {$num_page_to_link=$num_page_to_link+1;}


					if ($p !=1) {
							$p--;
							$link.="<a href=\"list.pl?p=$p\">ย้อนกลับ</a>&nbsp;&nbsp;";
							$p++;
					}

					for ($i=1;$i<= $num_page_to_link;$i++) {
					if ($p eq $i) {$link.="<b>$i</b>&nbsp;|&nbsp;";}else{$link.="<a href=\"list.pl?p=$i\">$i</a>&nbsp;|&nbsp;";}
					}
					if ($p !=$num_page_to_link) {
							$p++;
							$link.="<a href=\"list.pl?p=$p\">หน้าต่อไป</a>&nbsp;&nbsp;";
					}
					



}
if ($p ne '1') {
					$link="หน้าที่ $link";
}


## ดึง html ออกมาแสดงผล ###
$data	.=	&gethtml("tp-listtopic.html");


### Print Mainpage ออกมาแสดงผล ###
&printhtml("tp-mainpage.html");