#!/usr/bin/perl

# Copyright (C) 2000-2002 NEC Corporation
# All Rights Reserved.

#
# ץФ׾
#  (2000.10.31 å奵и˿)
#  (2001.11.12  webalizeraccess1.log¸ߤȤư)
#

require "/opt/nec/wbmc/lib/wbmc.pl";
require "/opt/nec/wbmc/lib/wbmc2.pl";

$webalizer_conf      = "/etc/opt/nec/wbmc/wbmc_webalizer.conf";
$webalizer_conf_lock = "wbmc_webalizer.conf";


#
# ưwebalizerޤưƤkill
#
open(IN, "/bin/ps -efw |");
while(<IN>) {
	if( $_ =~ /\/opt\/nec\/wbmc\/bin\/webalizer/ ) {
		@wk = split(/\s+/, $_);
		print "webalizer process id = $wk[1]\n";
		system("/bin/kill $wk[1]");
		sleep(1);
	}
}
close(IN);

#--- ׾Ǽǥ쥯ȥ꤬¸ߤʤк
system("/bin/mkdir -p /home/webalizer");

#--- ץǥ쥯ȥΥ̤ۤƤ
#    ơȤ
if (!&readFile($webalizer_conf, $webalizer_conf_lock, *file)) {
        &showErrorPage("$webalizer_conf ɤ߹ߤ˼Ԥޤ");
        exit(1);
}
$size  = "10"; # ǥեȤϡ֣MBפȤ
for($i=0; $i<@file; $i++) {
        if( $file[$i] =~ /^\s*STATSIZE=(\d+)/ ) {
                $size = $1;
        }
}
$dirsize = &getDirSize("/home/webalizer") / 1024;
if( $dirsize > $size ) {
	#-- ơ
	system("/bin/mkdir -p /home/webalizer/backup >/dev/null ");
	system("/bin/rm -f /home/webalizer/backup/* >/dev/null ");
	system("/bin/mv -f /home/webalizer/*png /home/webalizer/backup >/dev/null ");
	system("/bin/mv -f /home/webalizer/*html /home/webalizer/backup >/dev/null");
	system("/bin/rm -f /home/webalizer/webalizer.* >/dev/null ");
}

#
# פβϤԤ
#
$inPath = "/var/log/roma/";
$fname = $inPath . "access$ARGV[0].log";
system("/opt/nec/wbmc/bin/webalizer -o /home/webalizer -F squid -p $fname >/dev/null ");

#
# ̣СHTMLڡ
#
$proxypath = "/opt/nec/wbmc/adm/proxy";
chdir($proxypath);
system("$proxypath/create_urllist.cgi /home/webalizer/ $proxypath/ >/dev/null ");

