#!/usr/bin/perl

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

# RCS: $Id: wbmcwebalizer2,v 1.1 2006/12/22 05:33:58 shodai Exp $

##001202 v5.1 新規作成(wbmc_webalizerのappliance3.0版)

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


#$dailydir = "/etc/cron.daily";
$dailydir = "/opt/nec/wbmc/bin/webalizer.daily"; # 20030205 matumura

#
#
# ディレクトリ中のファイルファイル名を全て取得
#
#
if(!opendir(DIR, "$dailydir")) {
#       showErrorPage("$dailydirが見つかりません。");
        exit(1);
}
@dailylist = readdir(DIR);
closedir(DIR);

for ($i = 0; $i < @dailylist; $i++) {
    if ($dailylist[$i] eq "." || $dailylist[$i] eq "..") {
        next;
    }
    $dailylist[$i] =~ s/\s+//g;
    if ($dailylist[$i] =~ /^wbmc_webalizer/) {
		system("$dailydir/$dailylist[$i] > /dev/null 2>&1");
	}
}

# always 0
exit 0

