X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/d00ffd3eb227e2534179aa146e81e230e5a264fd..4e71d82512759ed7da92d213ac66d006dae456a1:/tools/convert-stats-gs.pl

diff --git a/tools/convert-stats-gs.pl b/tools/convert-stats-gs.pl
index c28fde8..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
@@ -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 {