]> git.vanrenterghem.biz Git - git.ikiwiki.info.git/blob - IkiWiki/Plugin/mirrorlist.pm
mirrorlist: new mirrorlist_use_cgi boolean setting.
[git.ikiwiki.info.git] / IkiWiki / Plugin / mirrorlist.pm
1 #!/usr/bin/perl
2 package IkiWiki::Plugin::mirrorlist;
4 use warnings;
5 use strict;
6 use IkiWiki 3.00;
8 sub import {
9         hook(type => "getsetup", id => "mirrorlist", call => \&getsetup);
10         hook(type => "pagetemplate", id => "mirrorlist", call => \&pagetemplate);
11 }
13 sub getsetup () {
14         return
15                 plugin => {
16                         safe => 1,
17                         rebuild => 1,
18                         section => "web",
19                 },
20                 mirrorlist => {
21                         type => "string",
22                         example => {},
23                         description => "list of mirrors",
24                         safe => 1,
25                         rebuild => 1,
26                 },
27                 mirrorlist_use_cgi => {
28                         type => 'boolean',
29                         example => 1,
30                         description => "generate links that point to the mirrors' ikiwiki CGI",
31                         safe => 1,
32                         rebuild => 1,
33                 },
34 }
36 sub checkconfig () {
37         if (! defined $config{mirrorlist_use_cgi}) {
38                 $config{mirrorlist_use_cgi}=0;
39         }
40 }
42 sub pagetemplate (@) {
43         my %params=@_;
44         my $template=$params{template};
45         
46         if ($template->query(name => "extrafooter") &&
47             keys %{$config{mirrorlist}} > 0) {
48                 my $value=$template->param("extrafooter");
49                 $value.=mirrorlist($params{page});
50                 $template->param(extrafooter => $value);
51         }
52 }
54 sub mirrorlist ($) {
55         my $page=shift;
56         return ($config{html5} ? '<nav id="mirrorlist">' : '<div>').
57                 (keys %{$config{mirrorlist}} > 1 ? gettext("Mirrors") : gettext("Mirror")).
58                 ": ".
59                 join(", ",
60                         map { 
61                                 qq{<a href="}.
62                                 ( $config{mirrorlist_use_cgi} ?
63                                   $config{mirrorlist}->{$_}."?do=goto&page=$page" :
64                                   $config{mirrorlist}->{$_}."/".urlto($page, "") ).
65                                 qq{">$_</a>}
66                         } keys %{$config{mirrorlist}}
67                 ).
68                 ($config{html5} ? '</nav>' : '</div>');
69 }
71 1