2006-06-02 06:49:12 +02:00
|
|
|
#!/usr/bin/perl
|
|
|
|
# Ikiwiki metadata plugin.
|
|
|
|
package IkiWiki::Plugin::meta;
|
|
|
|
|
|
|
|
use warnings;
|
|
|
|
use strict;
|
2007-04-27 04:55:52 +02:00
|
|
|
use IkiWiki 2.00;
|
2006-06-02 06:49:12 +02:00
|
|
|
|
|
|
|
my %meta;
|
|
|
|
my %title;
|
2006-08-04 02:01:51 +02:00
|
|
|
my %permalink;
|
|
|
|
my %author;
|
2006-08-04 02:47:28 +02:00
|
|
|
my %authorurl;
|
2007-09-14 20:11:10 +02:00
|
|
|
my %license;
|
|
|
|
my %copyright;
|
2006-06-02 06:49:12 +02:00
|
|
|
|
|
|
|
sub import { #{{{
|
2006-10-28 07:07:56 +02:00
|
|
|
hook(type => "preprocess", id => "meta", call => \&preprocess, scan => 1);
|
2006-09-10 00:50:27 +02:00
|
|
|
hook(type => "filter", id => "meta", call => \&filter);
|
|
|
|
hook(type => "pagetemplate", id => "meta", call => \&pagetemplate);
|
2006-06-02 06:49:12 +02:00
|
|
|
} # }}}
|
|
|
|
|
2006-07-31 00:58:48 +02:00
|
|
|
sub filter (@) { #{{{
|
|
|
|
my %params=@_;
|
|
|
|
|
|
|
|
$meta{$params{page}}='';
|
2007-12-08 23:40:50 +01:00
|
|
|
delete $pagestate{$params{page}}{meta}{redir};
|
2006-07-31 00:58:48 +02:00
|
|
|
|
|
|
|
return $params{content};
|
|
|
|
} # }}}
|
|
|
|
|
2007-03-21 19:52:56 +01:00
|
|
|
sub scrub ($) { #{{{
|
|
|
|
if (IkiWiki::Plugin::htmlscrubber->can("sanitize")) {
|
|
|
|
return IkiWiki::Plugin::htmlscrubber::sanitize(content => shift);
|
|
|
|
}
|
|
|
|
else {
|
|
|
|
return shift;
|
|
|
|
}
|
|
|
|
} #}}}
|
|
|
|
|
2006-06-02 06:49:12 +02:00
|
|
|
sub preprocess (@) { #{{{
|
|
|
|
if (! @_) {
|
|
|
|
return "";
|
|
|
|
}
|
|
|
|
my %params=@_;
|
|
|
|
my $key=shift;
|
|
|
|
my $value=$params{$key};
|
|
|
|
delete $params{$key};
|
|
|
|
my $page=$params{page};
|
|
|
|
delete $params{page};
|
2007-12-08 20:37:41 +01:00
|
|
|
my $destpage=$params{destpage};
|
2006-07-28 01:47:13 +02:00
|
|
|
delete $params{destpage};
|
2007-03-07 06:53:47 +01:00
|
|
|
delete $params{preview};
|
2006-06-02 06:49:12 +02:00
|
|
|
|
2006-07-31 00:58:48 +02:00
|
|
|
eval q{use HTML::Entities};
|
|
|
|
# Always dencode, even if encoding later, since it might not be
|
|
|
|
# fully encoded.
|
|
|
|
$value=decode_entities($value);
|
2006-06-02 08:11:22 +02:00
|
|
|
|
2006-06-02 06:49:12 +02:00
|
|
|
if ($key eq 'link') {
|
|
|
|
if (%params) {
|
2007-03-21 19:52:56 +01:00
|
|
|
$meta{$page}.=scrub("<link href=\"".encode_entities($value)."\" ".
|
2007-12-08 20:58:29 +01:00
|
|
|
join(" ", map {
|
|
|
|
encode_entities($_)."=\"".encode_entities(decode_entities($params{$_}))."\""
|
|
|
|
} keys %params).
|
2007-03-21 19:52:56 +01:00
|
|
|
" />\n");
|
2006-06-02 06:49:12 +02:00
|
|
|
}
|
|
|
|
else {
|
|
|
|
# hidden WikiLink
|
2006-09-10 00:50:27 +02:00
|
|
|
push @{$links{$page}}, $value;
|
2006-06-02 06:49:12 +02:00
|
|
|
}
|
|
|
|
}
|
2007-12-08 20:58:29 +01:00
|
|
|
elsif ($key eq 'redir') {
|
|
|
|
my $safe=0;
|
2007-12-08 21:17:37 +01:00
|
|
|
if ($value !~ /^\w+:\/\//) {
|
2007-12-08 23:40:50 +01:00
|
|
|
add_depends($page, $value);
|
2007-12-08 20:58:29 +01:00
|
|
|
my $link=bestlink($page, $value);
|
|
|
|
if (! length $link) {
|
|
|
|
return "[[meta ".gettext("redir page not found")."]]";
|
|
|
|
}
|
2007-12-08 23:40:50 +01:00
|
|
|
$pagestate{$page}{meta}{redir}=$link;
|
|
|
|
if ($pagestate{$link}{meta}{redir}) {
|
|
|
|
# TODO: real cycle detection
|
|
|
|
return "[[meta ".gettext("redir not allowed to point to a page that contains a redir")."]]";
|
|
|
|
}
|
2007-12-08 20:58:29 +01:00
|
|
|
$value=urlto($link, $destpage);
|
|
|
|
$safe=1;
|
|
|
|
}
|
|
|
|
else {
|
|
|
|
$value=encode_entities($value);
|
|
|
|
}
|
|
|
|
my $delay=int(exists $params{delay} ? $params{delay} : 0);
|
|
|
|
my $redir="<meta http-equiv=\"refresh\" content=\"$delay; URL=$value\">";
|
|
|
|
if (! $safe) {
|
|
|
|
$redir=scrub($redir);
|
|
|
|
}
|
|
|
|
$meta{$page}.=$redir;
|
|
|
|
}
|
2006-06-02 06:49:12 +02:00
|
|
|
elsif ($key eq 'title') {
|
2007-05-28 21:43:28 +02:00
|
|
|
$title{$page}=HTML::Entities::encode_numeric($value);
|
2006-06-02 06:49:12 +02:00
|
|
|
}
|
2006-08-04 02:01:51 +02:00
|
|
|
elsif ($key eq 'permalink') {
|
|
|
|
$permalink{$page}=$value;
|
2007-03-21 19:52:56 +01:00
|
|
|
$meta{$page}.=scrub("<link rel=\"bookmark\" href=\"".encode_entities($value)."\" />\n");
|
2006-08-04 02:01:51 +02:00
|
|
|
}
|
2007-02-15 06:48:40 +01:00
|
|
|
elsif ($key eq 'date') {
|
|
|
|
eval q{use Date::Parse};
|
|
|
|
if (! $@) {
|
|
|
|
my $time = str2time($value);
|
|
|
|
$IkiWiki::pagectime{$page}=$time if defined $time;
|
|
|
|
}
|
|
|
|
}
|
2007-03-21 19:52:56 +01:00
|
|
|
elsif ($key eq 'stylesheet') {
|
|
|
|
my $rel=exists $params{rel} ? $params{rel} : "alternate stylesheet";
|
|
|
|
my $title=exists $params{title} ? $params{title} : $value;
|
|
|
|
# adding .css to the value prevents using any old web
|
|
|
|
# editable page as a stylesheet
|
|
|
|
my $stylesheet=bestlink($page, $value.".css");
|
|
|
|
if (! length $stylesheet) {
|
|
|
|
return "[[meta ".gettext("stylesheet not found")."]]";
|
|
|
|
}
|
2007-07-13 22:19:34 +02:00
|
|
|
$meta{$page}.='<link href="'.urlto($stylesheet, $page).
|
2007-03-21 19:52:56 +01:00
|
|
|
'" rel="'.encode_entities($rel).
|
|
|
|
'" title="'.encode_entities($title).
|
2007-07-13 22:38:31 +02:00
|
|
|
"\" type=\"text/css\" />\n";
|
2007-03-21 19:52:56 +01:00
|
|
|
}
|
|
|
|
elsif ($key eq 'openid') {
|
|
|
|
if (exists $params{server}) {
|
|
|
|
$meta{$page}.='<link href="'.encode_entities($params{server}).
|
|
|
|
"\" rel=\"openid.server\" />\n";
|
|
|
|
}
|
|
|
|
$meta{$page}.='<link href="'.encode_entities($value).
|
|
|
|
"\" rel=\"openid.delegate\" />\n";
|
|
|
|
}
|
2007-09-14 20:11:10 +02:00
|
|
|
elsif ($key eq 'license') {
|
|
|
|
$meta{$page}.="<link rel=\"license\" href=\"#page_license\" />\n";
|
2007-09-15 02:23:08 +02:00
|
|
|
$license{$page}=$value;
|
2007-09-14 20:11:10 +02:00
|
|
|
}
|
|
|
|
elsif ($key eq 'copyright') {
|
|
|
|
$meta{$page}.="<link rel=\"copyright\" href=\"#page_copyright\" />\n";
|
2007-09-15 02:23:08 +02:00
|
|
|
$copyright{$page}=$value;
|
2007-09-14 20:11:10 +02:00
|
|
|
}
|
2006-06-02 06:49:12 +02:00
|
|
|
else {
|
2007-03-21 19:52:56 +01:00
|
|
|
$meta{$page}.=scrub("<meta name=\"".encode_entities($key).
|
|
|
|
"\" content=\"".encode_entities($value)."\" />\n");
|
2006-08-04 02:01:51 +02:00
|
|
|
if ($key eq 'author') {
|
|
|
|
$author{$page}=$value;
|
|
|
|
}
|
2006-08-04 02:47:28 +02:00
|
|
|
elsif ($key eq 'authorurl') {
|
|
|
|
$authorurl{$page}=$value;
|
|
|
|
}
|
2006-06-02 06:49:12 +02:00
|
|
|
}
|
|
|
|
|
|
|
|
return "";
|
|
|
|
} # }}}
|
|
|
|
|
2006-07-28 01:41:58 +02:00
|
|
|
sub pagetemplate (@) { #{{{
|
|
|
|
my %params=@_;
|
|
|
|
my $page=$params{page};
|
2007-09-14 21:09:16 +02:00
|
|
|
my $destpage=$params{destpage};
|
2006-07-28 01:41:58 +02:00
|
|
|
my $template=$params{template};
|
2006-06-02 06:49:12 +02:00
|
|
|
|
2006-07-28 01:08:03 +02:00
|
|
|
$template->param(meta => $meta{$page})
|
|
|
|
if exists $meta{$page} && $template->query(name => "meta");
|
2006-08-12 19:51:32 +02:00
|
|
|
if (exists $title{$page} && $template->query(name => "title")) {
|
|
|
|
$template->param(title => $title{$page});
|
|
|
|
$template->param(title_overridden => 1);
|
|
|
|
}
|
2006-08-04 02:01:51 +02:00
|
|
|
$template->param(permalink => $permalink{$page})
|
|
|
|
if exists $permalink{$page} && $template->query(name => "permalink");
|
|
|
|
$template->param(author => $author{$page})
|
|
|
|
if exists $author{$page} && $template->query(name => "author");
|
2006-08-04 02:47:28 +02:00
|
|
|
$template->param(authorurl => $authorurl{$page})
|
|
|
|
if exists $authorurl{$page} && $template->query(name => "authorurl");
|
2007-09-15 02:23:08 +02:00
|
|
|
|
|
|
|
if ($page ne $destpage &&
|
|
|
|
((exists $license{$page} && ! exists $license{$destpage}) ||
|
|
|
|
(exists $copyright{$page} && ! exists $copyright{$destpage}))) {
|
|
|
|
# Force a scan of the destpage to get its copyright/license
|
|
|
|
# info. If the info is declared after an inline, it will
|
|
|
|
# otherwise not be available at this point.
|
|
|
|
IkiWiki::scan($pagesources{$destpage});
|
|
|
|
}
|
2007-09-14 21:09:16 +02:00
|
|
|
|
|
|
|
if (exists $license{$page} && $template->query(name => "license") &&
|
2007-09-15 02:23:08 +02:00
|
|
|
($page eq $destpage || ! exists $license{$destpage} ||
|
|
|
|
$license{$page} ne $license{$destpage})) {
|
|
|
|
$template->param(license => IkiWiki::linkify($page, $destpage, $license{$page}));
|
2007-09-14 21:09:16 +02:00
|
|
|
}
|
|
|
|
if (exists $copyright{$page} && $template->query(name => "copyright") &&
|
2007-09-15 02:23:08 +02:00
|
|
|
($page eq $destpage || ! exists $copyright{$destpage} ||
|
|
|
|
$copyright{$page} ne $copyright{$destpage})) {
|
|
|
|
$template->param(copyright => IkiWiki::linkify($page, $destpage, $copyright{$page}));
|
2007-09-14 21:09:16 +02:00
|
|
|
}
|
2006-06-02 06:49:12 +02:00
|
|
|
} # }}}
|
|
|
|
|
|
|
|
1
|