############################################################################### # #
アクセス数の多い順にページ名を一覧表示します。
#引数で表示件数,日数を指定できます。
## {{access2 5,10}} ##
サイドバーに入れる場合など、縦に表示することもできます。
## {{access2 5,10,v}} ## ############################################################################### package plugin::access::Access2; use strict; use HTTP::Date; #============================================================================== # コンストラクタ #============================================================================== sub new { my $class = shift; my $self = {}; return bless $self,$class; } #============================================================================== # パラグラフ関数 #============================================================================== sub paragraph { my $self = shift; my $wiki = shift; my $max = shift; my $days = shift; my $way = shift; if ($way eq "") { $way = "H"; } if ($max eq "V" || $max eq "v") { $way = "V"; $max = ""; } elsif ($max eq "H" || $max eq "h") { $way = "H"; $max = ""; } if ($days eq "") { $days = 1; } my ($line,%count); my $now = time2str(); $now = str2time($now); my @lines; my $i = 0; open(LOG,$wiki->config('log_dir')."/".$wiki->config('access_log_file')) or return ""; while (my $line=