X-Git-Url: http://git.shiar.nl/sheet.git/blobdiff_plain/cfb20729b17e1190ba1e9b10e13096a5e52c059d..5a53ab55da0e1311584abaae94418d4b91435bba:/tools/convert-stats-wikimedia.pl?ds=sidebyside
diff --git a/tools/convert-stats-wikimedia.pl b/tools/convert-stats-wikimedia.pl
old mode 100644
new mode 100755
index b5b833d..1e9b1c3
--- a/tools/convert-stats-wikimedia.pl
+++ b/tools/convert-stats-wikimedia.pl
@@ -1,11 +1,11 @@
-#!perl -n
+#!/usr/bin/perl -n
use 5.010; use strict; use warnings;
our %count;
our $mobile;
if (m{
} .. m{?td>}) {
- $count{-url} = 'http://stats.wikimedia.org/archive/squid_reports/';
- $count{-source} = 'Wikimedia';
+ $count{-source} = 'http://stats.wikimedia.org/archive/squid_reports/';
+ $count{-title } = 'Wikimedia';
$count{-date} = $1 if m{ period: (?:\d+ )?(\w+ \d+) };
next;
}
@@ -23,15 +23,15 @@ $count =~ s/%$//;
$version //= 0;
given ($browser) {
when (['Firefox', 'Iceweasel']) {
- $browser = 'gecko';
+ $browser = 'firefox';
continue;
}
when ('MSIE') {
- $browser = 'trident';
+ $browser = 'ie';
continue;
}
when ('Opera') {
- $browser = $mobile ? 'op_mob' : 'presto';
+ $browser = $mobile ? 'op_mob' : 'opera';
for ($version) {
if (m{\(Mini(.*)\)$}) {
$browser = 'op_mini';
@@ -43,7 +43,7 @@ given ($browser) {
continue;
}
when ('Safari') {
- $browser = $mobile ? 'ios_saf' : 'webkit_saf';
+ $browser = $mobile ? 'ios_saf' : 'safari';
my $numversion = join('.', map { sprintf '%03d', $_ } split /\./, $version);
$numversion =~ s/6(?=\d{3})//; # incomparable 6532.22 â 523
for (
@@ -72,7 +72,7 @@ given ($browser) {
}
}
when ('Chrome') {
- $browser = 'webkit_chr';
+ $browser = 'chrome';
s/\.\d+$// for $version;
}
when ('Android') {
|