git.shiar.nl
/
sheet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
writing: runic alphabets
[sheet.git]
/
tools
/
convert-stats-gs.pl
diff --git
a/tools/convert-stats-gs.pl
b/tools/convert-stats-gs.pl
index c28fde8d0a8bdc5028f0012c86332b1ec7bbb482..c01691d8a541aed8b5d1a8dabddc97d80c47bc13 100644
(file)
--- 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(
use Text::CSV;
my %BROWSERID = qw(
- IE
trident
- Firefox
gecko
- Safari
webkit_saf
+ IE
ie
+ Firefox
firefox
+ Safari
safari
Safari-iPad ios_saf
Safari-iPad ios_saf
- Chrome
webkit_chr
- Opera
presto
+ Chrome
chrome
+ Opera
opera
Android android
iPhone ios_saf
Android android
iPhone ios_saf
@@
-20,7
+20,7
@@
my %BROWSERID = qw(
);
my %count = (
);
my %count = (
- -
source
=> 'StatCounter',
+ -
title
=> 'StatCounter',
-site => 'http://gs.statcounter.com/',
);
-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=';
my $site = $count{-site};
$site .= 'chart.php?'.join('&', map "$_=$param{$_}", keys %param);
$site .= '&statType_hidden=';
- $count{-
url
} = $site;
+ $count{-
source
} = $site;
require LWP::Simple;
{
require LWP::Simple;
{
@@
-61,7
+61,7
@@
if (@ARGV) {
ref $_ eq 'HASH' or next;
$_ *= $mult{Desktop} / $mult{Mobile} for values %$_;
}
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";
$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 %$_;
}
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 {
}
}
else {