#!/usr/bin/perl -w
 
use lib '/usr/ins/intel/gui/perllib';
use VirtualDomain;
 
my @domains = VirtualDomain::list_vws();
 
foreach (@domains) {
        print "$_->{vdn} \n";
        unless (-d "/usr/ins/intel/gui/htdocs/secure-data/webalizer-domains/$_->{vdn}") {    # If the webalizer dir doesn't exist, create it.
          mkdir "/usr/ins/intel/gui/htdocs/secure-data/webalizer-domains/$_->{vdn}", 0777;
          print "creating the /usr/ins/intel/gui/htdocs/secure-data/webalizer-domains/$_->{vdn} \n"
        }

        if (-e "/home/domain/$_->{vdn}/logs/access_log") {
                system("/usr/bin/webalizer -n $_->{vdn} /home/domain/$_->{vdn}/logs/access_log -o /usr/ins/intel/gui/htdocs/secure-data/webalizer-domains/$_->{vdn} >& /dev/null");
        }

	unless (-e "/usr/ins/intel/gui/htdocs/secure-data/webalizer-domains/$_->{vdn}/index.html") {
             open(INDEX, ">/usr/ins/intel/gui/htdocs/secure-data/webalizer-domains/$_->{vdn}/index.html");
                print INDEX "<html> <body BGCOLOR=\"white\">There is no data in the access log file for domain : $_->{vdn} </body> </html>";
                print "<html> <body> There is no data in the access log file for domain : $_->{vdn} </body> </html>";
             close(INDEX);	
	}

	print "\n";
} 

system ("/usr/bin/webalizer /usr/ins/intel/apache/logs/access_log -o /usr/ins/intel/gui/htdocs/secure-data/webalizer >& /dev/null");
