1880516d568b35e2b96463676d23c04c62f103f2
[ikiwiki.git] / IkiWiki / Plugin / anonok.pm
1 #!/usr/bin/perl
2 package IkiWiki::Plugin::anonok;
3
4 use warnings;
5 use strict;
6 use IkiWiki 2.00;
7
8 sub import { #{{{
9         hook(type => "canedit", id => "anonok", call => \&canedit,);
10 } # }}}
11
12 sub canedit ($$$) { #{{{
13         my $page=shift;
14         my $cgi=shift;
15         my $session=shift;
16
17         my $ret;
18
19         if (exists $config{anonok_pagespec} && length $config{anonok_pagespec}) {
20                 if (pagespec_match($page, $config{anonok_pagespec},
21                                    location => $page)) {
22                         return "";
23                 }
24                 else {
25                         return undef;
26                 }
27         }
28         else {
29                 return "";
30         }
31 } #}}}
32
33 1