template: Add support for a BASENAME variable.
[ikiwiki.git] / IkiWiki / Plugin / template.pm
1 #!/usr/bin/perl
2 # Structured template plugin.
3 package IkiWiki::Plugin::template;
4
5 use warnings;
6 use strict;
7 use IkiWiki 2.00;
8 use HTML::Template;
9 use Encode;
10
11 sub import { #{{{
12         hook(type => "preprocess", id => "template", call => \&preprocess);
13 } # }}}
14
15 sub preprocess (@) { #{{{
16         my %params=@_;
17
18         if (! exists $params{id}) {
19                 return "[[template ".gettext("missing id parameter")."]]";
20         }
21
22         my $template_page="templates/$params{id}";
23         add_depends($params{page}, $template_page);
24
25         my $template_file=$pagesources{$template_page};
26         return sprintf(gettext("template %s not found"),
27                 htmllink($params{page}, $params{destpage}, $template_page))
28                         unless defined $template_file;
29
30         my $template;
31         eval {
32                 $template=HTML::Template->new(
33                         filter => sub {
34                                 my $text_ref = shift;
35                                 $$text_ref=&Encode::decode_utf8($$text_ref);
36                                 chomp $$text_ref;
37                         },
38                         filename => srcfile($template_file),
39                         die_on_bad_params => 0,
40                         no_includes => 1,
41                         blind_cache => 1,
42                 );
43         };
44         if ($@) {
45                 return "[[template ".gettext("failed to process:")." $@]]";
46         }
47
48         $params{basename}=IkiWiki::basename($params{page});
49
50         foreach my $param (keys %params) {
51                 if ($template->query(name => $param)) {
52                         $template->param($param =>
53                                 IkiWiki::htmlize($params{page}, $params{destpage},
54                                         pagetype($pagesources{$params{page}}),
55                                         $params{$param}));
56                 }
57                 if ($template->query(name => "raw_$param")) {
58                         $template->param("raw_$param" => $params{$param});
59                 }
60         }
61
62         return IkiWiki::preprocess($params{page}, $params{destpage},
63                 IkiWiki::filter($params{page}, $params{destpage},
64                 $template->output));
65 } # }}}
66
67 1