IkiWiki/Plugin/opendiscussion.pm

   1 #!/usr/bin/perl
   2 package IkiWiki::Plugin::opendiscussion;
   3
   4 use warnings;
   5 use strict;
   6 use IkiWiki 2.00;
   7
   8 sub import { #{{{
   9         hook(type => "canedit", id => "opendiscussion", call => \&canedit);
  10 } # }}}
  11
  12 sub canedit ($$) { #{{{
  13         my $page=shift;
  14         my $cgi=shift;
  15         my $session=shift;
  16
  17         my $discussion=gettext("discussion");
  18         return "" if $page=~/(\/|^)\Q$discussion\E$/;
  19         return undef;
  20 } #}}}
  21
  22 1