sub output_topic_begin
{
print << "";
トピック表示
タイトル |
記事数 |
作成者 |
最終更新日 |
}
sub output_topic
{
my ($linenum) = $_[0];
my ($tpcnum, $msgnum, $refnum, $title, $name, $time) = split(/,/, $master[$linenum]);
$linenum++;
if ($refnum == 0) {
my $update = $time;
my $ntopics = 1;
for (my $i = $linenum; $i <= $#master; $i++) {
my (undef, undef, $trefmsgnum, undef, undef, $ttime) = split(/,/, $master[$i]);
if ($update < $ttime) {
$update = $ttime;
}
if ($trefmsgnum != 0) {
$ntopics++;
} else {
last;
}
}
my @week = ("日", "月", "火", "水", "木", "金", "土");
my ($sec, $min, $hour, $mday, $mon, $year, $wday) = localtime($time);
my $date = sprintf("%04d/%02d/%02d(%s) %02d:%02d:%02d", $year + 1900, $mon + 1, $mday, $week[$wday], $hour, $min, $sec);
($sec, $min, $hour, $mday, $mon, $year, $wday) = localtime($update);
$update = sprintf("%04d/%02d/%02d(%s) %02d:%02d:%02d", $year + 1900, $mon + 1, $mday, $week[$wday], $hour, $min, $sec);
print << "";
$MSG_ICON
$title
└
No.$msgnum
$date
|
$ntopics
|
$name
|
$update
|
}
return $linenum;
}
sub output_topic_end
{
print << "";
}
1;