hns - 日記自動生成システム - Version 2.19.7

void GraphicWizardsLair( void ); //

otsune GWL
FreeBSD, AfterEffects, RETAS, animo, DigitalAnime, Linux, Mac OS, Win2k

[Who is otsune?] [title] [message] [Policy] [注目エントリー] [top]
Twitter Status :


Namazu for hns による簡易全文検索
詳しくは 詳細指定/ヘルプを参照して下さい

検索式:

先月 2003年01月 来月
1 2 3 4
5 6 7 8 9 10 11
12 13 14 15 16 17 18
19 20 21 22 23 24 25
26 27 28 29 30 31


2003年01月27日(月) [長年日記]

デアゴスティーニから「週刊*BSD」が出るまでがんばる

#1 [hns] board.cgiもmod_rewriteのYYYY/MM/DD.html形式に対応させた

diary/lib/Board/Article.pmの190行目を修正。
    if ($self->ref_diary ne '' && $self->IsRoot()) {
        $str .= '<span class="dlink">' .
                '<a href="' .
                $Board::HnsPath .
#               '?to=' .
                substr($self->ref_diary,0,4) . '/' .
		substr($self->ref_diary,4,2) . '/' .
		substr($self->ref_diary,6,2).'.html' . '#' . $self->ref_diary .
                '">' .
                $self->title . '</a></span>';
オレはPerlは(も)エレガントに書けないんだよなぁー。人のソースを読んでないから。
でも恥ずかしがって表に出さないと、いつまでたっても恥ずかしいマンマなので。
本当はローカル変数に代入して、chopして最後の文字を落としてsubstrでYYYYとMMとDDを取り出せば良いんだろうけど。
    if ($self->ref_diary ne '' && $self->IsRoot()) {
	my $rewrite = $self->ref_diary;
        $str .= '<span class="dlink">' .
                '<a href="' .
                $Board::HnsPath .
                substr($rewrite,0,4) . '/' .
		substr($rewrite,4,2) . '/' .
		substr($rewrite,6,2) . '.html#' . $rewrite .
                '">' .
                $self->title . '</a></span>';
という感じで。
Permalink: http://www.otsune.com/diary/2003/01/27/1.html#200301271
trackback
このエントリーを含むはてなブックマーク del.icio.us livedoor Clip View blog reactions
Last Updated 2003-01-27 00:00:00 By otsune