git.shiar.nl
/
sheet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
font: script to generate coverage data from ttf files
[sheet.git]
/
tools
/
convert-stats-gs.pl
diff --git
a/tools/convert-stats-gs.pl
b/tools/convert-stats-gs.pl
index 751465907f30a0ea478a445c9d10f219ef4bef05..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
@@
-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 {