browser: renamed agent keys

[sheet.git] / tools / convert-stats-gs.pl

diff --git a/tools/convert-stats-gs.pl b/tools/convert-stats-gs.pl
index 751465907f30a0ea478a445c9d10f219ef4bef05..c01691d8a541aed8b5d1a8dabddc97d80c47bc13 100644 (file)
--- 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 {