#!/usr/bin/perl -w # # This script is copyright 2002 Host Europe Internet Ltd # delete @ENV{qw{ENV PATH BASH_ENV}}; use strict; require CGI; print CGI::header(); my $sname=CGI::server_name(); unless(system "/usr/local/bin/webalizer -n$sname -p -o . ../../logs/access_log > /dev/null") { print <Webalizer stats for $sname Click <a href='.'>here</a> to view your stats EOF } else { print <Webalizer stats for $sname

No stats yet

EOF }