January 17, 2006アーカイブ

AWStats 6.5が公開されました。
以前、6.4の日本語化について投稿しましたが、今回は最新の6.5についても同様の対応を行いました。

----検索キーワード日本語化----

awstats.plの編集 Jcode使用の宣言を追加(use *****;とある最後に追加する)

use Jcode;

DecodeEncodedString関数の書き換え
オリジナルは次のようになっています。

sub DecodeEncodedString {
my $stringtodecode=shift;
$stringtodecode =‾ tr/¥+/ /s;
$stringtodecode =‾ s/%([A-F0-9][A-F0-9])/pack("C", hex($1))/ieg;
return $stringtodecode;
}

↓

sub DecodeEncodedString {
my $stringtodecode=shift;
$stringtodecode =‾ tr/¥+/ /s;
$stringtodecode =‾ s/%([A-F0-9][A-F0-9])/pack("C", hex($1))/ieg;
+ Jcode::convert(¥$stringtodecode, "utf8");
return $stringtodecode;
}

----日付表示の修正----
awstats.pl 8845行目を書き換える

print ($MonthRequired eq 'all'?"$Message[6] $YearRequired":"$Message[5] ".$MonthNumLib{$MonthRequired}." $YearRequired");
↓
print ($MonthRequired eq 'all'?"$YearRequired $Message[6]":"$YearRequired $Message[6]".$MonthNumLib{$MonthRequired});

と書いても大変だと思うので、下記にリンクを張っておきます。
awstats6.5.txt
ダウンロードして、ファイル名をawstats6.5.txt→awstats.plへ変更してください。