2 # Ikiwiki metadata plugin.
3 package IkiWiki::Plugin::meta;
15 IkiWiki::hook(type => "preprocess", id => "meta",
16 call => \&preprocess);
17 IkiWiki::hook(type => "filter", id => "meta",
19 IkiWiki::hook(type => "pagetemplate", id => "meta",
20 call => \&pagetemplate);
26 $meta{$params{page}}='';
28 return $params{content};
31 sub preprocess (@) { #{{{
37 my $value=$params{$key};
39 my $page=$params{page};
41 delete $params{destpage};
43 eval q{use HTML::Entities};
44 # Always dencode, even if encoding later, since it might not be
46 $value=decode_entities($value);
50 $meta{$page}.="<link href=\"".encode_entities($value)."\" ".
51 join(" ", map { encode_entities($_)."=\"".encode_entities(decode_entities($params{$_}))."\"" } keys %params).
56 push @{$IkiWiki::links{$page}}, $value;
59 elsif ($key eq 'title') {
62 elsif ($key eq 'permalink') {
63 $permalink{$page}=$value;
66 $meta{$page}.="<meta name=\"".encode_entities($key).
67 "\" content=\"".encode_entities($value)."\" />\n";
68 if ($key eq 'author') {
69 $author{$page}=$value;
76 sub pagetemplate (@) { #{{{
78 my $page=$params{page};
79 my $template=$params{template};
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");