modules/listlocked.pl

   1 # Copyright (C) 2008  Alex Schroeder <alex@gnu.org>
   2 #
   3 # This program is free software; you can redistribute it and/or modify
   4 # it under the terms of the GNU General Public License as published by
   5 # the Free Software Foundation; either version 3 of the License, or
   6 # (at your option) any later version.
   7 #
   8 # This program is distributed in the hope that it will be useful,
   9 # but WITHOUT ANY WARRANTY; without even the implied warranty of
  10 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  11 # GNU General Public License for more details.
  12 #
  13 # You should have received a copy of the GNU General Public License
  14 # along with this program.  If not, see <http://www.gnu.org/licenses/>.
  15
  16 push(@MyAdminCode, \&ListLockedMenu);
  17
  18 sub ListLockedMenu {
  19   my ($id, $menuref, $restref) = @_;
  20   push(@$menuref, ScriptLink('action=listlocked', T('List of locked pages'),
  21                              'list locked'));
  22 }
  23
  24 $Action{listlocked} = \&DoListLocked;
  25
  26 sub DoListLocked {
  27   my $raw = GetParam('raw', 0);
  28   if ($raw) {
  29     print GetHttpHeader('text/plain'); # and ignore @menu
  30   } else {
  31     print GetHeader(undef, T('List of locked pages'));
  32     print $q->start_div({-class=>'content list locked'}), $q->start_p();
  33   }
  34   foreach my $id (AllPagesList()) {
  35     PrintPage($id) if -f GetLockedPageFile($id);
  36   }
  37   if (not $raw) {
  38     print $q->end_p(), $q->end_div();
  39     PrintFooter();
  40   }
  41 }