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 "[[".gettext("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 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 "[[".gettext("template failed to process:")." $@]]";
  46         }
  47
  48         foreach my $param (keys %params) {
  49                 $template->param($param => $params{$param});
  50         }
  51
  52         return IkiWiki::preprocess($params{page}, $params{destpage},
  53                 IkiWiki::filter($params{page},
  54                 $template->output));
  55 } # }}}
  56
  57 1