From 655d7925c60ecd7dd5dc3b35887f7a2573029796 Mon Sep 17 00:00:00 2001
From: Thomas Schwinge <tschwinge@gnu.org>
Date: Sat, 8 Dec 2007 14:37:41 -0500
Subject: [PATCH] Here is a patch to add a forwarding functionality to the meta
 plugin

---
 IkiWiki/Plugin/meta.pm | 20 ++++++++++++++++++++
 1 file changed, 20 insertions(+)

diff --git a/IkiWiki/Plugin/meta.pm b/IkiWiki/Plugin/meta.pm
index 938a28e59..cfa4b84b1 100644
--- a/IkiWiki/Plugin/meta.pm
+++ b/IkiWiki/Plugin/meta.pm
@@ -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");