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

Count all audio files together.

Browse source
This commit is contained in:
Bradley M. Kuhn 2011-09-13 13:17:34 -04:00
parent 0e19c374f7
commit 20dbc2d584
1 changed files with 3 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
oggcast-count.plx
View file

@ -27,6 +27,9 @@ while (<>) {
my($ip, $method, $url) = ($1, $2, $3);
next unless $method =~ /^\s*GET\s*$/i;
$url =~ s/\s*\.(ogg|mp3)\s*$/.audio/i; # Treat ogg and mp3 downloads same.
$url =~ s/\s*\/$$//; # Always remove trailing slash
$data{$url}{$ip} = 0 unless defined $data{$url}{$ip};
$data{$url}{__TOTAL__} = 0 unless defined $data{$url}{__TOTAL__};
$data{$url}{$ip}++;