* Add canedit hook, allowing arbitrary controls over when a page can be

[git.ikiwiki.info.git] / IkiWiki / Plugin / opendiscussion.pm

diff --git a/IkiWiki/Plugin/opendiscussion.pm b/IkiWiki/Plugin/opendiscussion.pm
new file mode 100644 (file)
index 0000000..4b1a432
--- /dev/null
+++ b/IkiWiki/Plugin/opendiscussion.pm
@@ -0,0 +1,22 @@
+#!/usr/bin/perl
+package IkiWiki::Plugin::opendiscussion;
+
+use warnings;
+use strict;
+use IkiWiki;
+
+sub import { #{{{
+       hook(type => "canedit", id => "opendiscussion", call => \&canedit);
+} # }}}
+
+sub canedit ($$) { #{{{
+       my $page=shift;
+       my $cgi=shift;
+       my $session=shift;
+
+       my $discussion=gettext("discussion");
+       return "" if $page=~/\/\Q$discussion\E$/;
+       return undef;
+} #}}}
+
+1