Files
cacti/scripts/webhits.pl
T
Ian Berry cd26f39fda regexp bug
git-svn-id: svn+ssh://repo.cacti.net/var/data/svnroot/cacti/trunk/cacti@854 860744bd-22fc-0310-8c96-e9fe5004b5ca
2003-04-15 20:19:20 +00:00

12 lines
187 B
Perl

#!/usr/bin/perl
if ($ARGV[0] eq "") {
$log_path = "/var/log/httpd/access_log";
}else{
$log_path = $ARGV[0];
}
$webhits = `wc -l $log_path`;
$webhits =~ s/[\s]*([0-9]+).*//;
print $1;