@board[2] $closed
|
EOF
$num=0;
print " | ";
print "\n
|
Subject | \n
Replies | \n
From | \n
Last Post | \n";
if ($total==0) {
print " | No messages were posted. | ";
print "- | \n";
print "- | - | \n";
&skip;
}
Opening:foreach $order (@order) {
@xorder=split (/x/, "$order");
chomp(@xorder[1]);
open (data, "<$messages/@xorder[1].dat") or next Opening;
@data=;
close (data);
#time
chomp(@data[2]);
($sec,$min,$hour,$mday,$mon,$year,$wday) = (localtime(@data[2]))[0,1,2,3,4,5,6];
$sec = sprintf("%.02d",$sec);
$min = sprintf("%.02d",$min);
$hour = sprintf("%.02d",$hour);
$mday = sprintf("%.02d",$mday);
$year += 1900;
#date format
if ($date_format==1) {
$date = "$days[$wday], $months[$mon] $mday, $year at $hour:$min:$sec";
}
elsif ($date_format==2) {
$mon++;
$date = "$mday/$mon/$year $hour:$min:$sec";
}
else {
$mon++;
$date = "$mon/$mday/$year $hour:$min:$sec";
}
#
$num++;
if (!@data[4]) {
@data[4]=$default_icon;
}
$temp_color=$color1;
$color1=$color2;
$color2=$temp_color;
print "";
if ($use_cookie eq "y") {
if (@data[2]>$cookie{board1}) {
print "";
}
else {
print " ";
}
}
else {
print " ";
}
@xorder[1]="@xorder[1]\-@data[5]" if (@data[5]>0);
print " |
@data[0] |
@data[1] |
@data[3] |
$date | \n";
if ($num==$max) {
print " |
|
\n";
©right;
&links;
if (@board[4]==1) {
&post_box;
}
if ($bench==1) {
$end=(times)[0];
print "