X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/09716a4fe69eb9e6a6197196d6f290db9be1a6d2..4e71d82512759ed7da92d213ac66d006dae456a1:/tools/convert-stats-gs.pl diff --git a/tools/convert-stats-gs.pl b/tools/convert-stats-gs.pl index 7514659..c01691d 100644 --- a/tools/convert-stats-gs.pl +++ b/tools/convert-stats-gs.pl @@ -7,12 +7,12 @@ use Data::Dump 'pp'; use Text::CSV; my %BROWSERID = qw( - IE trident - Firefox gecko - Safari webkit_saf + IE ie + Firefox firefox + Safari safari Safari-iPad ios_saf - Chrome webkit_chr - Opera presto + Chrome chrome + Opera opera Android android iPhone ios_saf @@ -61,7 +61,7 @@ if (@ARGV) { ref $_ eq 'HASH' or next; $_ *= $mult{Desktop} / $mult{Mobile} for values %$_; } - $count{Opera} = delete $count{presto}; # preserve + $count{Opera} = delete $count{opera}; # preserve $url = $site.'mobile_browser'; $download = LWP::Simple::get($url) or warn "No data from $url\n"; @@ -73,8 +73,8 @@ if (@ARGV) { ref $_ eq 'HASH' or next; $_ *= $mult{Mobile} for values %$_; } - $count{op_mini} = delete $count{presto}; # mobile distinction - $count{presto} = delete $count{Opera}; # restore desktop + $count{op_mini} = delete $count{opera}; # mobile distinction + $count{opera} = delete $count{Opera}; # restore desktop } } else {