From: Mischa POSLAWSKY <perl@shiar.org>
Date: Wed, 4 Feb 2015 06:31:17 +0000 (+0100)
Subject: browser: changed title identifiers in statcounter exports
X-Git-Tag: v1.6~17
X-Git-Url: http://git.shiar.nl/sheet.git/commitdiff_plain/c524a2904a0184a0df3ecd61ed411ec90a4efe93?hp=dd0fba64e720055cf4733f422efef687a16d49fa

browser: changed title identifiers in statcounter exports
---

diff --git a/tools/mkusage-statcounter b/tools/mkusage-statcounter
index 7d699d4..76fac3d 100755
--- a/tools/mkusage-statcounter
+++ b/tools/mkusage-statcounter
@@ -6,6 +6,8 @@ use warnings;
 use Data::Dump 'pp';
 use Text::CSV;
 
+our $VERSION = '1.00';
+
 my %BROWSERID = qw(
 	IE          ie
 	Firefox     firefox
@@ -90,8 +92,10 @@ sub parsecsv {
 
 		my $version = $browser =~ s/ (\d\S*)$// ? $1 : 0;
 		given ($browser) {
-			when (['Browser Version', 'Mobile Browser', 'Mobile vs. Desktop']) {
-				$pct =~ s/^Market Share % // and $count{-date} = $pct;
+			when (['Browser', 'Browser Version', 'Mobile Browser', 'Mobile vs. Desktop', 'Comparison']) {
+				$pct =~ s/^Market Share (?:%|Perc\.) // or break;
+				$pct =~ s/\A\((.*)\)\z/$1/;
+				$count{-date} = $pct;
 			}
 			$browser =~ tr/ /-/;
 			$browser = $_ for $BROWSERID{$browser} // ();