urosm
/
ikiwiki
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Here is a patch to add a forwarding functionality to the meta plugin

master
Thomas Schwinge 2007-12-08 14:37:41 -05:00 committed by Joey Hess
parent 7e661e1ed3
commit 655d7925c6
1 changed files with 20 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
IkiWiki/Plugin/meta.pm
View File

@ -47,6 +47,7 @@ sub preprocess (@) { #{{{
delete $params{$key};
my $page=$params{page};
delete $params{page};
my $destpage=$params{destpage};
delete $params{destpage};
delete $params{preview};
@ -110,6 +111,25 @@ sub preprocess (@) { #{{{
$meta{$page}.="<link rel=\"copyright\" href=\"#page_copyright\" />\n";
$copyright{$page}=$value;
}
elsif ($key eq 'forward') {
my $delay=0;
my $dest_url;
my $text;
if (exists $params{delay}) {
$delay=$params{delay};
}
# Is this a wikilink?
if ($value =~ /^\[\[(.*)\]\]$/) {
$text=htmllink($page, $destpage, $1);
$dest_url=urlto(bestlink($page, $1), $destpage);
} else {
$text="<a href=\"$dest_url\">$dest_url</a>";
$dest_url=$value;
}
# TODO. $meta{$page}.=scrub("<meta http-equiv=\"refresh\" content=\"$delay; URL=$dest_url\">");
$meta{$page}.="<meta http-equiv=\"refresh\" content=\"$delay; URL=$dest_url\">";
return "You are being forwarded to $text.";
}
else {
$meta{$page}.=scrub("<meta name=\"".encode_entities($key).
"\" content=\"".encode_entities($value)."\" />\n");