Nao
nao-m****@ijc*****
2003年 9月 29日 (月) 21:56:29 JST
こんにちわ 藤田です 自己レスです plugin/info に含まれる TodaysLink をすこしだけ拡張して パッチを投げたつもりだったんですが添付も悪いしdiffもって 散々なもの送っちゃいました。すいません。 とりあえず、修正版です。 すごく適当なperlなんですが、どうでしょうか。 - - - - - - - - - - - - - - - - N a o - - - - - - - - nao-m****@ijc***** - -------------- next part -------------- diff -crN info/TodaysLink.pm info.new/TodaysLink.pm *** info/TodaysLink.pm 2003-09-29 21:46:10.000000000 +0900 --- info.new/TodaysLink.pm 2003-09-29 21:38:30.000000000 +0900 *************** *** 8,13 **** --- 8,17 ---- # <pre> # {{todayslink 10}} # </pre> + # また、オプションで何日前かを指定することもできます。 + # <pre> + # {{todayslink -1}} + # </pre> # また、vオプションをつけるとリンク元のURLを表示することもできます。 # <pre> # {{todayslink 10,v}} *************** *** 31,50 **** sub paragraph { my $self = shift; my $wiki = shift; ! my $rank = shift;# 上位 $rank 位まで表示 ! my $way = shift; my $buf = ""; ! 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 = ""; } # 今日の日付をログと同じフォーマットで --- 35,55 ---- sub paragraph { my $self = shift; my $wiki = shift; ! my $rank = "";# 上位 $rank 位まで表示 ! my $way = "H"; ! my $date = 0; my $buf = ""; ! 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; ! } } # 今日の日付をログと同じフォーマットで *************** *** 52,57 **** --- 57,63 ---- my ($sec,$min,$hour,$mday,$month,$year,$wday) = localtime($time); $year += 1900; $month += 1; + $mday += $date; my $today =sprintf("%04d/%02d/%02d",$year,$month,$mday); my $count={};
Fork