bkuhn/small-hacks
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Don't die automatically on lines that don't match.

Browse source 
Instead, move on and don't count anything that isn't a GET.
This commit is contained in:
Bradley M. Kuhn 2014-12-31 13:24:41 -05:00
parent 8ab83b84e9
commit 7265718f0a
1 changed files with 3 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
oggcast-count.plx
View file

@ -22,8 +22,9 @@ my %data;
while (<>) {
chomp;
die "invalid line: $_"
unless /^(\S+)\s+[^"]+"\s*(HEAD|GET|POST|OPTIONS|PUT|CONNECT|PROPFIND)\s+(\S+)[\s"]/;
next unless /^(\S+)\s+[^"]+"\s*(GET)\s+(\S+)[\s"]/;
# die "invalid line: $_"
# unless /^(\S+)\s+[^"]+"\s*(LOCK|HEAD|GET|POST|OPTIONS|PUT|CONNECT|PROPFIND)\s+(\S+)[\s"]/;
my($ip, $method, $url) = ($1, $2, $3);
next unless $method =~ /^\s*GET\s*$/i;