forked from github/kensanata.oddmuse
42 lines
1.1 KiB
Perl
42 lines
1.1 KiB
Perl
package OddMuse;
|
|
|
|
use vars qw($WantedPageName);
|
|
|
|
$ModulesDescription .= '<p>$Id: wanted.pl,v 1.1 2006/06/09 07:23:00 skrap Exp $</p>';
|
|
|
|
|
|
push(@MyAdminCode, \&WantedAction);
|
|
|
|
sub WantedAction
|
|
{
|
|
my ($id, $menuref, $restref) = @_;
|
|
push(@$menuref, ScriptLink('action=wanted', Ts('Wanted Pages')));
|
|
}
|
|
|
|
sub PrintWantedData
|
|
{
|
|
my %links = %{(GetFullLinkList(1,0,0,1))};
|
|
my %wanted;
|
|
foreach my $page (sort keys %links) {
|
|
foreach my $link (@{$links{$page}}) {
|
|
push @{$wanted{$link}}, $page if not $IndexHash{$link};
|
|
}
|
|
}
|
|
print $q->p( sprintf( T('%d Pages'), scalar keys %wanted) );
|
|
foreach my $page (sort keys %wanted) {
|
|
my @references = map {GetPageLink($_)} (sort @{$wanted{$page}});
|
|
my $pageLink = sprintf( T('%s, referenced from:'), GetEditLink($page,$page) );
|
|
print $q->ul( $q->li($pageLink, $q->ul($q->li(\@references))));
|
|
}
|
|
}
|
|
|
|
$Action{'wanted'} = \&DoWantedPages;
|
|
|
|
sub DoWantedPages {
|
|
my $title = defined $WantedPageName ? $WantedPageName : T('Wanted Pages');
|
|
print GetHeader('', $title, '', 1), $q->start_div({-class=>'content wanted'});
|
|
PrintWantedData();
|
|
print $q->end_div();
|
|
PrintFooter();
|
|
}
|