2 package IkiWiki::Plugin::lockedit;
9 hook(type => "getsetup", id => "lockedit", call => \&getsetup);
10 hook(type => "canedit", id => "lockedit", call => \&canedit);
11 hook(type => "formbuilder_setup", id => "lockedit",
12 call => \&formbuilder_setup);
15 sub getsetup () { #{{{
19 example => "!*/Discussion",
20 description => "PageSpec controlling which pages are locked",
21 link => "ikiwiki/PageSpec",
27 sub canedit ($$) { #{{{
32 my $user=$session->param("name");
33 return undef if defined $user && IkiWiki::is_admin($user);
35 if (defined $config{locked_pages} && length $config{locked_pages} &&
36 pagespec_match($page, $config{locked_pages})) {
37 if (! defined $user ||
38 ! IkiWiki::userinfo_get($session->param("name"), "regdate")) {
39 return sub { IkiWiki::needsignin($cgi, $session) };
42 return sprintf(gettext("%s is locked and cannot be edited"),
43 htmllink("", "", $page, noimageinline => 1));
48 # XXX deprecated, should be removed eventually
49 foreach my $admin (@{$config{adminuser}}) {
50 if (pagespec_match($page, IkiWiki::userinfo_get($admin, "locked_pages"))) {
51 if (! defined $user ||
52 ! IkiWiki::userinfo_get($session->param("name"), "regdate")) {
53 return sub { IkiWiki::needsignin($cgi, $session) };
56 return sprintf(gettext("%s is locked and cannot be edited"),
57 htmllink("", "", $page, noimageinline => 1));
65 sub formbuilder_setup (@) { #{{{
68 # XXX deprecated, should be removed eventually
69 my $form=$params{form};
70 if ($form->title eq "preferences") {
71 my $session=$params{session};
73 my $user_name=$session->param("name");
75 $form->field(name => "locked_pages", size => 50,
77 comment => "deprecated; please move to locked_pages in setup file"
79 if (! IkiWiki::is_admin($user_name)) {
80 $form->field(name => "locked_pages", type => "hidden");
82 if (! $form->submitted) {
83 my $value=IkiWiki::userinfo_get($user_name, "locked_pages");
85 $form->field(name => "locked_pages", force => 1, value => $value);
88 $form->field(name => "locked_pages", type => "hidden");
91 if ($form->submitted && $form->submitted eq 'Save Preferences') {
92 if (defined $form->field("locked_pages")) {
93 IkiWiki::userinfo_set($user_name, "locked_pages",
94 $form->field("locked_pages")) ||
95 error("failed to set locked_pages");
96 if (! length $form->field("locked_pages")) {
97 $form->field(name => "locked_pages", type => "hidden");