先日、awstatsをインストールしました。
その際、解析結果の年月の表示が、○○月XXXX年なので、修正をしたので、その時のメモです。
解析および解析結果を処理するのは、awstats.plなので、そちらを直接修正することになります。
(先日のメモでは/home/hoge/awstats/awstats.pl)
Apacheアクセスログ解析(AWStats) – Fedoraで自宅サーバー構築を参考にさせていただきました。
修正するのは、画像で丸を囲った2か所です。
①表示するレポートを選択するの年月
9912行目あたりのブロックを入れ替えます。
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 |
print "<select class=\"aws_formfield\" name=\"month\">\n"; foreach ( 1 .. 12 ) { my $monthix = sprintf( "%02s", $_ ); print "<option" . ( "$MonthRequired" eq "$monthix" ? " selected=\"selected\"" : "" ) . " value=\"$monthix\">$MonthNumLib{$monthix}</option>\n"; } if ( $AllowFullYearView >= 2 ) { print "<option" . ( $MonthRequired eq 'all' ? " selected=\"selected\"" : "" ) . " value=\"all\">- $Message[6] -</option>\n"; } print "</select>\n"; print "<select class=\"aws_formfield\" name=\"year\">\n"; # Add YearRequired in list if not in ListOfYears $ListOfYears{$YearRequired} ||= $MonthRequired; foreach ( sort keys %ListOfYears ) { print "<option" . ( $YearRequired eq "$_" ? " selected=\"selected\"" : "" ) . " value=\"$_\">$_</option>\n"; } print "</select>\n"; |
の「print “<select class=\”aws_formfield\” name=\”year\”>\n”;」以下のブロックを先頭に入れ替えます。
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 |
print "<select class=\"aws_formfield\" name=\"year\">\n"; # Add YearRequired in list if not in ListOfYears $ListOfYears{$YearRequired} ||= $MonthRequired; foreach ( sort keys %ListOfYears ) { print "<option" . ( $YearRequired eq "$_" ? " selected=\"selected\"" : "" ) . " value=\"$_\">$_</option>\n"; } print "</select>\n"; print "<select class=\"aws_formfield\" name=\"month\">\n"; foreach ( 1 .. 12 ) { my $monthix = sprintf( "%02s", $_ ); print "<option" . ( "$MonthRequired" eq "$monthix" ? " selected=\"selected\"" : "" ) . " value=\"$monthix\">$MonthNumLib{$monthix}</option>\n"; } if ( $AllowFullYearView >= 2 ) { print "<option" . ( $MonthRequired eq 'all' ? " selected=\"selected\"" : "" ) . " value=\"all\">- $Message[6] -</option>\n"; } print "</select>\n"; |
②サマリーの表示するレポートの年月
|
1 2 3 4 5 6 7 |
9973行目あたり print "$Message[5] $MonthNumLib{$MonthRequired} $YearRequired"; ↓ print "$YearRequired $Message[6]".$MonthNumLib{$MonthRequired}; |
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 |
12840行目あたり print( $MonthRequired eq 'all' ? "$Message[6] $YearRequired" : "$Message[5] " . $MonthNumLib{$MonthRequired} . " $YearRequired" ); ↓ print ($MonthRequired eq 'all' ?"$YearRequired $Message[6]" :"$YearRequired $Message[6]" .$MonthNumLib{$MonthRequired} ); |
①②を修正し、保存し、再度解析すれば次回から”月年”から”年月”に修正されます。
カスタマイズは自己責任です。
コメント