]> sipb.mit.edu Git - ikiwiki.git/blob - IkiWiki/Plugin/template.pm
* Work on firming up the plugin interface:
[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;
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 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 "[[template ".
27                htmllink($params{page}, $params{destpage}, $template_page).
28                " not found]]"
29                 unless defined $template_file;
30
31         my $template=HTML::Template->new(
32                 filter => sub {
33                         my $text_ref = shift;
34                         $$text_ref=&Encode::decode_utf8($$text_ref);
35                 },
36                 filename => srcfile($template_file),
37                 die_on_bad_params => 0,
38                 no_includes => 1,
39                 blind_cache => 1,
40         );
41
42         foreach my $param (keys %params) {
43                 $template->param($param => $params{$param});
44         }
45
46         return IkiWiki::preprocess($params{page}, $params{destpage},
47                 $template->output);
48 } # }}}
49
50 1