browser: convert-stats-gs download option

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

diff --git a/tools/convert-stats-wikimedia.pl b/tools/convert-stats-wikimedia.pl
index 42faf2099cc16640becb925799efffb412d08a75..b5b833d0390aa83c81bdc97e7597ba7815e7849c 100644 (file)
--- a/tools/convert-stats-wikimedia.pl
+++ b/tools/convert-stats-wikimedia.pl
@@ -3,6 +3,13 @@ use 5.010; use strict; use warnings;
 our %count;
 our $mobile;
 
+if (m{<td class=hl>} .. m{</?td>}) {
+       $count{-url} = 'http://stats.wikimedia.org/archive/squid_reports/';
+       $count{-source} = 'Wikimedia';
+       $count{-date} = $1 if m{ period: (?:\d+ )?(\w+ \d+) };
+       next;
+}
+
 # select relevant columns
 />Browser versions(.*)/ ... m{</table>} && last or next;
 my ($tr, $id, $count2, $count) = split /(?:<[^>]*>)+/;
@@ -31,10 +38,7 @@ given ($browser) {
                                ($_) = $1 =~ m{^/(\d+)};
                                continue;
                        }
-                       s/\d\d\.\d\K.*// or do {
-                               # major part only, except for ≥v9.6
-                               $_ ge '9.6' ? ($_ = '9.6') : (s/\..*//);
-                       };
+                       s/^\d*\.\d\K.*//;  # one significant digit
                }
                continue;
        }
@@ -50,7 +54,7 @@ given ($browser) {
                                [ '525'     => '2'   ],
                                [ '528'     => '3'   ],
                                [ '531'     => '3.2' ],
-                               [ '531.022' => '4.1' ],
+                               [ '531.022' => '4'   ],
                                [ '533'     => '4.2' ],
                                [ '534'     => '4x' ],
                        ) : (