modules/wanted.pl

   1 # Copyright (C) 2006  Alex Schroeder <alex@emacswiki.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 2 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, write to the
  15 #    Free Software Foundation, Inc.
  16 #    59 Temple Place, Suite 330
  17 #    Boston, MA 02111-1307 USA
  18
  19 package OddMuse;
  20
  21 use vars qw($WantedPageName $WantedPageNameFilter $WantedPageReferrerFilter);
  22
  23 $ModulesDescription .= '<p><a href="http://git.savannah.gnu.org/cgit/oddmuse.git/tree/modules/wanted.pl">wanted.pl</a>, see <a href="http://www.oddmuse.org/cgi-bin/oddmuse/Wanted_Pages_Extension">Wanted Pages Extension</a></p>';
  24
  25
  26 push(@MyAdminCode, \&WantedAction);
  27
  28 sub WantedAction
  29 {
  30         my ($id, $menuref, $restref) = @_;
  31         push(@$menuref, ScriptLink('action=wanted', Ts('Wanted Pages'), 'wanted'));
  32 }
  33
  34 sub PrintWantedData
  35 {
  36         my %links = %{(GetFullLinkList(1,0,0,1))};
  37         my %wanted;
  38         foreach my $page (sort keys %links) {
  39                 next if defined $WantedPageReferrerFilter and ($page =~ m/$WantedPageReferrerFilter/);
  40                 foreach my $link (@{$links{$page}}) {
  41                         next if defined $WantedPageNameFilter and ($link =~ m/$WantedPageNameFilter/);
  42                         push @{$wanted{$link}}, $page if not $IndexHash{$link};
  43                 }
  44         }
  45         print $q->p(Ts('%s pages', scalar keys %wanted));
  46         foreach my $page (sort keys %wanted) {
  47                 my @references = map {GetPageLink($_)} (sort @{$wanted{$page}});
  48                 my $pageLink = sprintf( T('%s, referenced from:'), GetEditLink($page,$page) );
  49                 print $q->ul( $q->li($pageLink, $q->ul($q->li(\@references))));
  50         }
  51 }
  52
  53 $Action{'wanted'} = \&DoWantedPages;
  54
  55 sub DoWantedPages {
  56         my $title = defined $WantedPageName ? $WantedPageName : T('Wanted Pages');
  57         print GetHeader('', $title, '', 1), $q->start_div({-class=>'content wanted'});
  58         PrintWantedData();
  59         print $q->end_div();
  60         PrintFooter();
  61 }