|
|
 |
Company "Master-Lux"
#!/usr/bin/perl
######################################################
#
$_Script = "am-news";
$_Version = "0.1";
$_Date = "24.08.2003";
#
$version="$_Script $_Version ($_Date)";
$scriptname="th_news_en.pl";
$script_name_html="index_en.shtml";
$datafile = "news_en.dat";
$msgfile = "th_news.messages";
$template_dir="templates";
$msgonpage=5;
open (MESSAGES, $msgfile);
flock (MESSAGES, LOCK_SH);
while ($readmsg=)
{
$readmsg =~ s/\n//g;
@rmsg = split(/\| \|/, $readmsg);
$msg{$rmsg[0]}=$rmsg[1];
}
flock (MESSAGES, LOCK_UN);
close (MESSAGES);
print "Content-type:text/html\n\n";
&view_news;
exit;
####################################################################################
sub date_now() {
($s,$m,$h,$day,$month,$year) = (localtime)[0..5];$year+=1900;$month++;
if ($m < 10) {$m = "0$m";}
if ($h < 10) {$h = "0$h";}
if ($month < 10) {$month = "0$month";}
$x_date=join(".",$day,$month,$year);
#$x_date="$x_date ($h:$m)";
return $x_date;
}
sub view_news {
open (NEWS, $datafile);
flock (NEWS, LOCK_SH);
@allnews=;
flock (NEWS, LOCK_UN);
close (NEWS);
$page=0;
$lastmessage = $#allnews + 1;
if ($page == 0) {$pagestart=$FORM{'page'};} else {$pagestart=$page;}
if (!$pagestart) {$pagestart=1;}
if (($pagestart < 1)||($pagestart > $lastmessage)) {$pagestart=1;}
$msg_beg=$pagestart;
$msg_end=$pagestart + $msgonpage;
$tmessage = 0;
foreach $allnews (reverse @allnews)
{
$tmessage++;
if (($tmessage >= $msg_beg)&&($tmessage < $msg_end))
{
@message=split (/\|\|/, $allnews);
open (TMPFORM, "$template_dir/newsline_show_announce");@tmpform=;close (TMPFORM);
foreach $tmpform (@tmpform)
{
$tmpform=~ s/!msg_header/$message[2]/g;
$tmpform=~ s/!msg_date/$message[1]/g;
$tmpform=~ s/!msg_body/$message[3]/g;
print "$tmpform";
}
}
}
}
|
