#!/usr/pkg/bin/perl

delete @ENV{qw(PATH)};
$ENV{PATH} = '/usr/bin:/bin:/usr/sbin:/sbin:/usr/local/bin:/usr/local/sbin';

if ($ARGV[0] eq "") {
	$log_path = "/var/log/httpd/access_log";
}else{
	$log_path = $ARGV[0];
}

open(PROCESS,"wc -l $log_path |");
$webhits = <PROCESS>;
close(PROCESS);
$webhits =~ s/[\s]*([0-9]+).*//;

print $1;
