Nao
nao-m****@ijc*****
2003年 9月 29日 (月) 16:37:25 JST
こんにちわ 藤田です plugin/info に含まれる TodaysLink をすこしだけ拡張してみました。 やったこと ・前日などのリンク元を表示できるようにした ・オプションの処理を変えてみた 元は下のアドレスのリンク元を見てこれは良いかもと思って実装してます。 http://plaza.umin.ac.jp/~epi/cgi-bin/fswiki/wiki.cgi?page=todayslink すごく適当なperlなんですが、どうでしょうか。 - - - - - - - - - - - - - - - - N a o - - - - - - - - nao-m****@ijc***** - -------------- next part -------------- diff info.old/TodaysLink.pm info/TodaysLink.pm 10a11,14 > # また、オプションで何日前かを指定することもできます。 > # <pre> > # {{todayslink -1}} > # </pre> 34,35c38,40 < my $rank = shift;# 上位 $rank 位まで表示 < my $way = shift; --- > my $rank = "";# 上位 $rank 位まで表示 > my $way = "H"; > my $date = 0; 38,47c43,52 < if($way eq ""){ < $way = "H"; < } < < if($rank eq "v" ||$rank eq "V"){ < $way = "V"; < $rank = ""; < } elsif($rank eq "H" || $rank eq "h") { < $way = "H"; < $rank = ""; --- > while($option = shift){ > if($option eq "v" || $option eq "V"){ > $way = "V"; > } elsif($option eq "H" || $option eq "h") { > $way = "H"; > } elsif($option =~ m/^-[0-9]+$/ ){ > $date = $option; > } elsif($option =~ m/^\d+$/ ){ > $rank = $option; > } 54a60 > $mday += $date;
Fork