Masafumi Otsune
info****@otsun*****
2005年 4月 24日 (日) 09:17:06 JST
otsuneです。
題名のようなpatchを作成してみました。
--- index.cgi.in.orig Sun Apr 24 08:57:09 2005
+++ index.cgi.in Sun Apr 24 09:04:19 2005
@@ -182,6 +182,14 @@
if ($y < 1970){
$col->ReadRecent($HNS::System::DefaultMax);
} else {
+ use HNS::Tools::HeadLine;
+ my $sectitle = new HNS::Tools::HeadLine;
+ $sectitle->getFileListByPattern($sectitle->diaryDir($y),"$y$m$d");
+ $sectitle->readHnf("d$y$m$d.hnf", 'side');
+ my @new = @{$sectitle->title};
+ my $stitle = @new[$s];
+ $stitle =~ s/^.*>(.*)<\/a>$/$1/g;
+ $HNS::System::Title .= ' ' . $stitle;
$col->Read($y, $m, $d);
}
}