HOME > ETC. > STARTING OVER日記。 > 面倒ずらー。

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、行揃えのスペースは全角で入っているので、そのままだとエラーを起こします。念のため。

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

カテゴリー: 現びくでん保守