unicode: drop u- prefix from script classes

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

diff --git a/tools/convert-stats-gs.pl b/tools/convert-stats-gs.pl
index c28fde8d0a8bdc5028f0012c86332b1ec7bbb482..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
@@ -20,7 +20,7 @@ my %BROWSERID = qw(
 );
 
 my %count = (
-       -source => 'StatCounter',
+       -title  => 'StatCounter',
        -site   => 'http://gs.statcounter.com/',
 );
 
@@ -36,7 +36,7 @@ if (@ARGV) {
        my $site = $count{-site};
        $site .= 'chart.php?'.join('&', map "$_=$param{$_}", keys %param);
        $site .= '&statType_hidden=';
-       $count{-url} = $site;
+       $count{-source} = $site;
 
        require LWP::Simple;
        {
@@ -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 {