34 lines
583 B
Perl
34 lines
583 B
Perl
#!/usr/bin/perl
|
|
package IkiWiki::Plugin::opendiscussion;
|
|
|
|
use warnings;
|
|
use strict;
|
|
use IkiWiki 3.00;
|
|
|
|
sub import {
|
|
hook(type => "getsetup", id => "opendiscussion", call => \&getsetup);
|
|
hook(type => "canedit", id => "opendiscussion", call => \&canedit,
|
|
first => 1);
|
|
}
|
|
|
|
sub getsetup () {
|
|
return
|
|
plugin => {
|
|
safe => 1,
|
|
rebuild => 0,
|
|
section => "auth",
|
|
},
|
|
}
|
|
|
|
sub canedit ($$) {
|
|
my $page=shift;
|
|
my $cgi=shift;
|
|
my $session=shift;
|
|
|
|
return "" if $page=~/(\/|^)\Q$config{discussionpage}\E$/i;
|
|
return "" if pagespec_match($page, "postcomment(*)");
|
|
return undef;
|
|
}
|
|
|
|
1
|