#!/usr/bin/perl

$title = ' ข่าวสารไอที รายงานทุกความเคลื่อนไหว';
$group = 'news';
$content = 'news';

require "../cgiindex/index.cgi";

#print "Content-type:text/html\n\n";
#print $pathdocs;

$DATA = "<p><b>ข่าวสารไอที รายงานทุกความเคลื่อนไหว</b><br><br>";

####### กำหนดตารางก่อน
$t1 = qq(<table border='0' width='100%' cellspacing='0'><tr><td width='100%' bgcolor='cccccc'>
<table border='0' width='100%' cellspacing='0' cellpadding='1'><tr bgcolor='eff0e0'><td width='100%'> 
<table width='100%' border='0' cellspacing='0' cellpadding='0'><tr><td><font face=ms sans serif size=2><b>);
$t2 = qq(</font></b></tr><tr><td><ul><font face=ms sans serif size=2>);
$t3 = qq(</font></ul></td></tr></table></td></tr></table></td></tr></table>);

####### อ่านจากไฟล์
	open (FILE,"allnews.txt");
	@FILE=<FILE>;
	chomp(@FILE);
	close (FILE);

	@news1 = split(/\|X\|/,@FILE[0]);
	$DATA .="<p>$t1@news1[0]$t2";

	$i=0;
	$j=1;
	while ($j<=7 and @FILE[$i]) {
	@news = split(/\|X\|/,@FILE[$i]);
	if (@news1[0] eq @news[0]) {	$DATA .= "<li><a href='@news[1]' target=_blank>@news[2]</a> <font face='Verdana' size='-2'>(<i>@news[3]</i>)</font></li>\n";  }
	else { $j++; 
	if ($j<=7) {
	@news1[0] = @news[0]; $DATA .= "$t3</p>$t1@news[0]$t2<li><a href='@news[1]' target=_blank>@news[2]</a> <font face='Verdana' size='-2'>(<i>@news[3]</i>)</font></li>\n"; }
	else { $DATA .= "$t3</p>"; }}
	$i++;
	}

&Template();