I'm not redefining any subs after all, don't prevent those warnings.

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

diff --git a/IkiWiki/Plugin/opendiscussion.pm b/IkiWiki/Plugin/opendiscussion.pm
index fd5c9673d68c3581722dbe41502d0363d502a5ac..60b193eca04fb08702a99077aa911f66dbc33705 100644 (file)
--- a/IkiWiki/Plugin/opendiscussion.pm
+++ b/IkiWiki/Plugin/opendiscussion.pm
@@ -3,20 +3,29 @@ package IkiWiki::Plugin::opendiscussion;
 
 use warnings;
 use strict;
 
 use warnings;
 use strict;

-use IkiWiki 2.00;
+use IkiWiki 3.00;

 
 

-sub import { #{{{
+sub import {
+       hook(type => "getsetup", id => "opendiscussion", call => \&getsetup);

        hook(type => "canedit", id => "opendiscussion", call => \&canedit);
        hook(type => "canedit", id => "opendiscussion", call => \&canedit);

-} # }}}
+}

 
 

-sub canedit ($$) { #{{{
+sub getsetup () {
+       return 
+               plugin => {
+                       safe => 1,
+                       rebuild => 0,
+               },
+}
+
+sub canedit ($$) {

        my $page=shift;
        my $cgi=shift;
        my $session=shift;
 
        my $page=shift;
        my $cgi=shift;
        my $session=shift;
 

-       my $discussion=gettext("discussion");
-       return "" if $page=~/\/\Q$discussion\E$/;
+       my $discussion=lc(gettext("Discussion"));
+       return "" if $page=~/(\/|^)\Q$discussion\E$/;

        return undef;
        return undef;

-} #}}}
+}

 
 1
 
 1