#!/usr/bin/perl
# a40403.pl 2007-10-2 by akebia
# Webalizer daily maintenance script
# http://nyan.co.uk/akebia/item/86

$WEBALIZER         = 'c:/xampp/webalizer/webalizer.exe -Q';
$WEBALIZER_CONFDIR = 'c:/etc/webalizer';
$log_cat           = 'type';
$log_preprocess    = 'perl c:/bin/a40404.pl '.
                       '-d c:/temp/dns_cache.txt | '.
                     'perl c:/bin/a40402.pl';
$log_tmpfile       = 'c:/temp/webalizer-daily';

my @a, $i, $f, $LOGFILE, $NLOGFILE;

foreach $i (<$WEBALIZER_CONFDIR/*.conf>){
  $LOGFILE = ''; open($f, $i);
  while(<$f>){if(/^LogFile\s*(.*)\n?/){$LOGFILE = $1; last;}}
  close($f);
  system("$log_cat $LOGFILE | $log_preprocess > $log_tmpfile");
  system("$WEBALIZER -c $i $log_tmpfile");
  $NLOGFILE = $LOGFILE; $NLOGFILE =~ s/\.[0-9]+(\.gz)?//;
  if($LOGFILE eq $NLOGFILE){next;}
  system("$log_cat $NLOGFILE | $log_preprocess > $log_tmpfile");
  system("$WEBALIZER -c $i $log_tmpfile");
}