#!/usr/bin/perl

# Copyright (C) 2001-2008 NEC Corporation
# All Rights Reserved.

#2008/09 higashi
#ƤӽФؿѿʤΤǡrequire "/opt/nec/wbmc/lib/wbmc.pl"
#

#2008/11 higashi
#ϤΤɤ߹
require "/opt/nec/wbmc/bin/time_conv.pl";

#2008/11 higashi
#accesslog_transfer.logؤΥѥ
$accesslog_transfer_log_path = "/var/log/accesslog_transfer/accesslog_transfer.log";

#2008/09 higashi
#accesslog_transfer.logơȤ륵
$accesslog_transfer_log_rotate_size=5242880;

#2008/11 higashi
#accesslog.confؤΥѥ
$access_path ="/etc/opt/nec/wbmc/accesslog.conf";
$access_path_lock ="accesslog.conf";

#2008/09 higashi
#ǼƤǥ쥯ȥ
$access_log_dir="/var/log/roma/";

#webalizerѤΰ
$log_generation = "";

#2008/11 higashi
#accesslog.ocnfեɹ
@file = ();
if (!&readFile("$access_path", $access_path_lock, *file) ) {
	if(!&writeLog_rotate("[Error] $access_path cannot read",$accesslog_transfer_log_path,"wbmc_minute",$accesslog_transfer_log_rotate_size)){
		system("/bin/echo $accesslog_transfer_log_path cannot write");
	}
	exit(1);
}

#2008/11 higashi
#ưǧ
$log_status = "OFF";
for ($i = 0; $i < @file; $i++) {
	#ư
	if ($file[$i] =~ /^\s*LOG_STATUS\s*=\s*(.*)\s*$/) {
	        $log_status = $1;
	}
}

#2008/08 higashi
#Ϥ˽ԤΥե̾
open(IN,"/bin/ls -rt $access_log_dir |");
$log_file_name="";
while(<IN>){
	if($_ =~/(access(\d+)\.log)/){
		$log_file_name=$access_log_dir.$1;
		$log_generation = $2;
		last;
	}
}
close(IN);

#2008/08 higashi
#оݤǤ륢ʤʤޤǷ֤
while($log_file_name ne ""){

#
#webalizerΥư
#
##wbmc_webalizer_start
##wbmc_webalizer_end

#
#ΥץȤư
#
##wbmc_accesslog_start
##wbmc_accesslog_end

	#2008/11 higashi
	#ưPUT_ACCESSLOGǤΤߥκԤ
	if($log_status eq "OFF"){
		system("/bin/rm -r $log_file_name > /dev/null 2>&1");
	}

	#2008/09 higashi
	#˽Ԥե̾
	open(IN,"/bin/ls -rt $access_log_dir |");
	$log_file_name="";
	while(<IN>){
		if($_ =~/(access(\d+)\.log)/){
			$log_file_name=$access_log_dir.$1;
			$log_generation = $2;
			last;
		}
	}
	close(IN);
}
