#!/usr/bin/perl

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

#
#wbmc_minute UPdateѥץ RPMåץǡȻ˼¹
#

#
#󥹥ȡ/opt/nec/wbmc/bin/wbmc_minuteä/var/tmp
#


require "/opt/nec/wbmc/lib/wbmc.pl";
require "/opt/nec/wbmc/adm/system/system.pl";


#--------------------------------------------------------------
@tmp_minute=();	#/var/tmp/wbmc_minuteեƤǼ
@bin_minute=();	#/opt/nec/wbmc/bin/wbmc_minuteեƤǼ
@accesslog=();	#accesslogƤǼ
@webalizer=();	#webalizerƤǼ
$i=0;
#--------------------------------------------------------------

#
#/var/tmp/wbmc_minuteɤ߹
#
if (!&readFile("/var/tmp/wbmc_minute", "var_wbmc_minute_lock", *tmp_minute) ) {
        system("echo cannot read /var/tmp/wbmc_minute");
	exit(1);
}


#
#/opt/nec/wbmc/bin/wbmc_minuteɤ߹
#
if (!&readFile("/opt/nec/wbmc/bin/wbmc_minute", "bin_wbmc_minute_lock", *bin_minute) ) {
        system("echo cannot read /opt/nec/wbmc/bin/wbmc_minute");
        exit(1);
}



#--------------------------------------------------------------
#
#/var/tmp/wbmc_minuteaccesslogwebalizer
#

if (!&WbmcminuteGetSection(*tmp_minute, "accesslog", *accesslog)){
        system("echo cannot read accesslog session");
	exit(1);
}

if (!&WbmcminuteGetSection(*tmp_minute, "webalizer", *webalizer)){
        system("echo cannot read webalizer session");
	exit(1);
}

#Ԥ
for($i=0;$i<@main::accesslog;$i++){
	if($accesslog[$i] =~ /^$/ ){
		splice(@accesslog,$i,1);
		$i--;
	}
}
for($i=0;$i<@webalizer;$i++){
	if($webalizer[$i] =~ /^$/ ){
		splice(@webalizer,$i,1);
		$i--;
	}
}


#
#/opt/nec/wbmc/bin/wbmc_minuteΥ*accesslog,*webalizerεҤ
#

&WbmcminuteAddKeys(*bin_minute, "accesslog", *accesslog);
&WbmcminuteAddKeys(*bin_minute, "webalizer", *webalizer);


#--------------------------------------------------------------
#
#/opt/nec/wbmc/bin/wbmc_minute˵
#

if(!&writeFile("/opt/nec/wbmc/bin/wbmc_minute", "bin_wbmc_minute_lock", @bin_minute)) {
	system("echo cannot write wbmc_minute");
	exit(1);
}

#--------------------------------------------------------------
