#! /usr/bin/perl

# 完全日本語版AWStats用サンプルcronファイル for MacOSX
# tokada@s19.xrea.com
# Original http://www.ryu.dyn.to/Tools/AWStatsJpn.html 
# 
# オリジナルのファイルパスをMacOSX用に書換えただけです。
# http://localhost/AWStats5.htmlでアクセスできるようになるはず。

# httpのログファイルをデコードした上で一時ディレクトリに格納します.
# access_log.eucは一時的にデコードしたログを保存するファイルの名前です.
system("/Library/WebServer/CGI-Executables/AWStats5/decode.pl < /var/log/httpd/access_log > /Library/WebServer/CGI-Executables/AWStats5/access_log.euc");

# awstats.plが切り詰めないオリジナルのログを切り詰めます.
open(LOG,"+</var/log/httpd/access_log");
truncate(LOG,0);
close(LOG);

# Ver.5.0から, 統計の更新と統計の作成とが切り離されました.
# まずは, 統計の更新を行います.
system("/Library/WebServer/CGI-Executables/AWStats5/awstats.pl -config=localhost -update > /dev/null");

# 続いて, 統計の作成を行います. 
# 統計の更新 -> 作成は基本形で, 実際は色々なオプションが指定できます.
system("/Library/WebServer/CGI-Executables/AWStats5/awstats.pl -config=localhost -output -staticlink > /Library/WebServer/Documents/AWStats5.html");

# アクセス可能になるように出力したhtmlファイルの権限を変更します.
system("chgrp nobody /Library/WebServer/Documents/AWStats5.html");
system("chown nobody /Library/WebServer/Documents/AWStats5.html");