mirror of
https://github.com/Cacti/cacti.git
synced 2026-10-29 08:06:58 +09:00
18 lines
336 B
Perl
18 lines
336 B
Perl
#!/usr/bin/env 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;
|