More logical naming after recent changes, before anyone starts using it.
break;
};
$usage = $_;
- my $ref = $canihas->{-source} || 'unknown';
- $ref = sprintf '<a href="%s">%s</a>', $_, $ref for $canihas->{-url} || ();
+ my $ref = $canihas->{-title} || 'unknown';
+ $ref = sprintf '<a href="%s">%s</a>', $_, $ref
+ for $canihas->{-site} || $canihas->{-source} || ();
$ref .= " $_" for $canihas->{-date} || ();
print "\nwith $ref browser usage statistics";
}
);
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;
{
our $mobile;
if (m{<td class=hl>} .. 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;
}