diff options
author | joey <joey@0fa5a96a-9a0e-0410-b3b2-a0fd24251071> | 2007-04-27 07:55:40 +0000 |
---|---|---|
committer | joey <joey@0fa5a96a-9a0e-0410-b3b2-a0fd24251071> | 2007-04-27 07:55:40 +0000 |
commit | f8a7fb227b59463b37180b1e525c5d19ec0e43cb (patch) | |
tree | e5355a6b8c338c48c6b3a81c877426c11692929a /IkiWiki/Plugin/testpagespec.pm | |
parent | 98c287f19ea03d897046d2aae669638741a112fb (diff) |
* 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.
Diffstat (limited to 'IkiWiki/Plugin/testpagespec.pm')
-rw-r--r-- | IkiWiki/Plugin/testpagespec.pm | 23 |
1 files changed, 23 insertions, 0 deletions
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 |