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