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
);
my %count = (
- -source => 'StatCounter',
+ -title => 'StatCounter',
-site => 'http://gs.statcounter.com/',
);
my $site = $count{-site};
$site .= 'chart.php?'.join('&', map "$_=$param{$_}", keys %param);
$site .= '&statType_hidden=';
- $count{-url} = $site;
+ $count{-source} = $site;
require LWP::Simple;
{
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 {