36 lines
676 B
Perl
36 lines
676 B
Perl
|
#!/usr/bin/perl
|
||
|
|
package IkiWiki::Plugin::mirrorlist;
|
||
|
|
|
||
|
|
use warnings;
|
||
|
|
use strict;
|
||
|
|
use IkiWiki;
|
||
|
|
|
||
|
|
sub import { #{{{
|
||
|
|
hook(type => "pagetemplate", id => "mirrorlist", call => \&pagetemplate);
|
||
|
|
} # }}}
|
||
|
|
|
||
|
|
sub pagetemplate (@) { #{{{
|
||
|
|
my %params=@_;
|
||
|
|
my $template=$params{template};
|
||
|
|
|
||
|
|
$template->param(extrafooter => mirrorlist($params{page}))
|
||
|
|
if $template->query(name => "extrafooter");
|
||
|
|
} # }}}
|
||
|
|
|
||
|
|
sub mirrorlist ($) { #{{{
|
||
|
|
my $page=shift;
|
||
|
|
return "<p>Mirror".
|
||
|
|
(keys %{$config{mirrorlist}} > 1 ? "s" : "").
|
||
|
|
": ".
|
||
|
|
join(", ",
|
||
|
|
map {
|
||
|
|
qq{<a href="}.
|
||
|
|
$config{mirrorlist}->{$_}."/".$page.
|
||
|
|
qq{">$_</a>}
|
||
|
|
} keys %{$config{mirrorlist}}
|
||
|
|
).
|
||
|
|
"</p>";
|
||
|
|
} # }}}
|
||
|
|
|
||
|
|
1
|