paster

#!/usr/bin/perl

# (c) sh@isecure.cz 2007

use strict;

use constant CONFDIR    => "/etc/awstats/";
use constant AWSBIN     => "/usr/local/awstats/wwwroot/cgi-bin/awstats.pl ";
use constant ARGS       => "-update -config=";


############################################################################

opendir(DIRHANDLE, CONFDIR) || die "Cannot opendir ".CONFDIR.": $!";

my $name = '';

foreach $name (sort readdir(DIRHANDLE)) {
    if($name =~ /^awstats\./) {

        #############################################
        if($name =~ /^awstats\.(.*)\.conf$/) {
            print "--------------------------------------------\nfound file -> generating stats: $name - $1\n";
            system(AWSBIN.ARGS.$1);
        }
        #############################################
    }
}

closedir(DIRHANDLE);