b6226ed88a19deca8c72b49ad658263993bff8c0
[ikiwiki.git] / IkiWiki / Plugin / meta.pm
1 #!/usr/bin/perl
2 # Ikiwiki metadata plugin.
3 package IkiWiki::Plugin::meta;
4
5 use warnings;
6 use strict;
7 use IkiWiki;
8
9 my %meta;
10 my %title;
11 my %permalink;
12 my %author;
13
14 sub import { #{{{
15         IkiWiki::hook(type => "preprocess", id => "meta", 
16                 call => \&preprocess);
17         IkiWiki::hook(type => "filter", id => "meta", 
18                 call => \&filter);
19         IkiWiki::hook(type => "pagetemplate", id => "meta", 
20                 call => \&pagetemplate);
21 } # }}}
22
23 sub filter (@) { #{{{
24         my %params=@_;
25         
26         $meta{$params{page}}='';
27
28         return $params{content};
29 } # }}}
30
31 sub preprocess (@) { #{{{
32         if (! @_) {
33                 return "";
34         }
35         my %params=@_;
36         my $key=shift;
37         my $value=$params{$key};
38         delete $params{$key};
39         my $page=$params{page};
40         delete $params{page};
41         delete $params{destpage};
42
43         eval q{use HTML::Entities};
44         # Always dencode, even if encoding later, since it might not be
45         # fully encoded.
46         $value=decode_entities($value);
47
48         if ($key eq 'link') {
49                 if (%params) {
50                         $meta{$page}.="<link href=\"".encode_entities($value)."\" ".
51                                 join(" ", map { encode_entities($_)."=\"".encode_entities(decode_entities($params{$_}))."\"" } keys %params).
52                                 " />\n";
53                 }
54                 else {
55                         # hidden WikiLink
56                         push @{$IkiWiki::links{$page}}, $value;
57                 }
58         }
59         elsif ($key eq 'title') {
60                 $title{$page}=$value;
61         }
62         elsif ($key eq 'permalink') {
63                 $permalink{$page}=$value;
64         }
65         else {
66                 $meta{$page}.="<meta name=\"".encode_entities($key).
67                         "\" content=\"".encode_entities($value)."\" />\n";
68                 if ($key eq 'author') {
69                         $author{$page}=$value;
70                 }
71         }
72
73         return "";
74 } # }}}
75
76 sub pagetemplate (@) { #{{{
77         my %params=@_;
78         my $page=$params{page};
79         my $template=$params{template};
80
81         $template->param(meta => $meta{$page})
82                 if exists $meta{$page} && $template->query(name => "meta");
83         $template->param(title => $title{$page})
84                 if exists $title{$page} && $template->query(name => "title");
85         $template->param(permalink => $permalink{$page})
86                 if exists $permalink{$page} && $template->query(name => "permalink");
87         $template->param(author => $author{$page})
88                 if exists $author{$page} && $template->query(name => "author");
89         
90 } # }}}
91
92 1