#!/usr/bin/perl package IkiWiki::Plugin::opendiscussion; use warnings; use strict; use IkiWiki 2.00; sub import { hook(type => "getsetup", id => "opendiscussion", call => \&getsetup); hook(type => "canedit", id => "opendiscussion", call => \&canedit); } sub getsetup () { return plugin => { safe => 1, rebuild => 0, }, } sub canedit ($$) { my $page=shift; my $cgi=shift; my $session=shift; my $discussion=gettext("discussion"); return "" if $page=~/(\/|^)\Q$discussion\E$/; return undef; } 1