From 9cfdae85d5584a9b0812b31ec77b60fcbc57d977 Mon Sep 17 00:00:00 2001
From: Mischa POSLAWSKY <perl@shiar.org>
Date: Sun, 5 Dec 2010 18:13:19 +0100
Subject: [PATCH] browser: convert mobile browsers in wikimedia stats

---
 tools/convert-stats-wikimedia.pl | 11 ++++++++---
 1 file changed, 8 insertions(+), 3 deletions(-)

diff --git a/tools/convert-stats-wikimedia.pl b/tools/convert-stats-wikimedia.pl
index d65e5eb..8cbb416 100644
--- a/tools/convert-stats-wikimedia.pl
+++ b/tools/convert-stats-wikimedia.pl
@@ -1,10 +1,12 @@
 #!perl -n
 use 5.010; use strict; use warnings;
 our %count;
+our $mobile;
 
 # select relevant columns
-/>Browser versions/ ... m{</table>} && last or next;
+/>Browser versions(.*)/ ... m{</table>} && last or next;
 my ($tr, $id, $count2, $count) = split /(?:<[^>]*>)+/;
+$mobile = $count2 =~ /(?<!non) mobile/ if $id ~~ '&nbsp;';
 next if $id ~~ ['Total', '&nbsp;'];
 
 # convert to usable syntax
@@ -22,7 +24,7 @@ given ($browser) {
 		continue;
 	}
 	when ('Opera') {
-		$browser = 'presto';
+		$browser = $mobile ? 'op_mob' : 'presto';
 		for ($version) {
 			s/\d\d\.\d\K.*// or do {
 				# major part only, except for ≥v9.6
@@ -32,7 +34,7 @@ given ($browser) {
 		continue;
 	}
 	when ('Safari') {
-		$browser = 'webkit_saf';
+		$browser = $mobile ? 'ios_saf' : 'webkit_saf';
 		my $numversion = join('.', map { sprintf '%03d', $_ } split /\./, $version);
 		$numversion =~ s/6(?=\d{3})//;  # erroneous(?) 6532.22 → 523
 		for (
@@ -53,6 +55,9 @@ given ($browser) {
 		$browser = 'webkit_chr';
 		s/\.\d+$// for $version;
 	}
+	when ('Android') {
+		$browser = 'android';
+	}
 	s/\.0$// for $version;
 }
 
-- 
2.30.0