summary |
shortlog |
log |
commit | commitdiff |
tree
raw |
patch |
inline | side by side (from parent 1:
0466f0c)
More logical naming after recent changes, before anyone starts using it.
- 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";
}
$ref .= " $_" for $canihas->{-date} || ();
print "\nwith $ref browser usage statistics";
}
- -source => 'StatCounter',
+ -title => 'StatCounter',
-site => 'http://gs.statcounter.com/',
);
-site => 'http://gs.statcounter.com/',
);
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{-source} = $site;
our $mobile;
if (m{<td class=hl>} .. m{</?td>}) {
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;
}
$count{-date} = $1 if m{ period: (?:\d+ )?(\w+ \d+) };
next;
}