STARTING OVER日記。

2007年03月01日（木）

面倒ずらー。

「○年前の日記」というのがアー日記にあるんですが。
これ、3月にテンプレートのその欄を1年増やさなきゃいけないし、1月には年数を変更しなきゃいけないし。
結構面倒。

あー、CGIで埋め込むかなー。
nikki.cgiとかいう名前で作って。
SSI使えるからね。

<!--#include virtual="./○/nikki.cgi"-->

とかやって。

で、肝心のCGIはこんな感じ。

#!/usr/local/bin/perl
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
$month = sprintf("%02d",$mon+1);
$day = sprintf("%02d",$mday);
$years = sprintf("%04d",$year+1900);
print "Content-type: text/plain\n\n";
$d_y = $years;
if ( $month < 3) { $y_l = 2002;}
else { $y_l = 2001;}
for ($cnt =0;$d_y > $y_l;$cnt++) {
　$d_y--;
　$y[$cnt] = $d_y;
}
print "<ul>\n";
$dat_num = @y-1;
foreach $num (0 .. $dat_num) {
　if ( $num == 0 ){
　　$moji = "去年";
　}
　else {
　　$nen = $num+1;
　　$moji = $nen."年前";
　}
　print "<li><a href=\"./archives\/$y[$num]\_$month\_$day\.html\">$mojiの日記</a></li>\n";
}
print"</ul>\n";
exit;

ま、もっとスマートに出来るとは思うけどね、こんな感じで。
で、埋め込んでみて、使えたらいいんだけどねぇ。（苦笑）

※上のcgi、行揃えのスペースは全角で入っているので、そのままだとエラーを起こします。念のため。

追記：
無事使えました。
「去年」とか「○年前」とかは配列を使えばもっと省スペースになるけれど、永遠には使えないよね。
（永遠には使わないだろうけど。）