}
}
my @browsers = grep { $versions{$_} }
- qw(trident gecko webkit_saf ios_saf webkit_chr android presto op_mob op_mini);
+ qw(trident ie gecko firefox webkit_saf safari ios_saf webkit_chr chrome android presto opera op_mob op_mini);
print <<'';
<p id="intro">Alternate rendition of Fyrd's <a href="http://caniuse.com/">when can I use...</a> page
use Text::CSV;
my %BROWSERID = qw(
- IE trident
- Firefox gecko
- Safari webkit_saf
+ IE ie
+ Firefox firefox
+ Safari safari
Safari-iPad ios_saf
- Chrome webkit_chr
- Opera presto
+ Chrome chrome
+ Opera opera
Android android
iPhone ios_saf
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";
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 {
$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';
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 (
}
}
when ('Chrome') {
- $browser = 'webkit_chr';
+ $browser = 'chrome';
s/\.\d+$// for $version;
}
when ('Android') {