From f8a7fb227b59463b37180b1e525c5d19ec0e43cb Mon Sep 17 00:00:00 2001
From: joey <joey@0fa5a96a-9a0e-0410-b3b2-a0fd24251071>
Date: Fri, 27 Apr 2007 07:55:40 +0000
Subject: * Make pagespec_match on failure return a value that is false, but in
 a   scalar context, evaluates to a reason why the match failed. * Add
 testpagespec plugin, which might be useful to see why a pagespec isn't  
 matching something.

---
 IkiWiki/Plugin/testpagespec.pm | 23 +++++++++++++++++++++++
 1 file changed, 23 insertions(+)
 create mode 100644 IkiWiki/Plugin/testpagespec.pm

(limited to 'IkiWiki/Plugin/testpagespec.pm')

diff --git a/IkiWiki/Plugin/testpagespec.pm b/IkiWiki/Plugin/testpagespec.pm
new file mode 100644
index 000000000..56dc03cef
--- /dev/null
+++ b/IkiWiki/Plugin/testpagespec.pm
@@ -0,0 +1,23 @@
+#!/usr/bin/perl
+package IkiWiki::Plugin::testpagespec;
+
+use warnings;
+use strict;
+use IkiWiki 2.00;
+
+sub import { #{{{
+	hook(type => "preprocess", id => "testpagespec", call => \&preprocess);
+} # }}}
+
+sub preprocess (@) { #{{{
+	my %params=@_;
+	
+	add_depends($params{page}, $params{pagespec});
+	
+	my $ret=pagespec_match($params{match}, $params{pagespec}, 
+			location => $params{page});
+	return $ret if ! $ret;
+	return "the pagespec matches";
+} # }}}
+
+1
-- 
cgit v1.2.3