#!/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(); my $success=0; for my $logfile (reverse sort glob("../../logs/access_log*")) { $success=1 unless system "/usr/local/bin/webalizer -n$sname -p -o . $logfile > /dev/null"; } if($success or -f "webalizer.current") { 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 }