forked from github/kensanata.oddmuse
f11e2a8731
Replaced the $Id$ tags in $WikiDescription for all the modules and wiki.pl itself with a link to the source and an appropriate wiki page, if possible. This is shown in action=version and should help users figure out what another wiki has installed.
52 lines
1.8 KiB
Perl
Executable File
52 lines
1.8 KiB
Perl
Executable File
# Copyright (C) 2008 Weakish Jiang <weakish@gmail.com>
|
|
#
|
|
# This program is free software; you can redistribute it and/or modify
|
|
# it under the terms of the GNU General Public License version 2 as
|
|
# published by the Free Software Foundation.
|
|
#
|
|
# You can get a copy of GPL version 2 at
|
|
# http://www.gnu.org/licenses/gpl-2.0.html
|
|
#
|
|
# For user doc, see:
|
|
# http://www.oddmuse.org/cgi-bin/oddmuse/Backlinks_Extension
|
|
|
|
$ModulesDescription .= '<p><a href="http://git.savannah.gnu.org/cgit/oddmuse.git/tree/modules/backlinks.pl">backlinks.pl</a>, see <a href="http://www.oddmuse.org/cgi-bin/oddmuse/Backlinks_Extension">Backlinks Extension</a></p>';
|
|
|
|
*OldGetSearchLink = *GetSearchLink;
|
|
*GetSearchLink = *NewGetSearchLink;
|
|
sub NewGetSearchLink {
|
|
my ($text, $class, $name, $title) = @_;
|
|
my $id = UrlEncode(QuoteRegexp($text));
|
|
$name = UrlEncode($name);
|
|
$text = NormalToFree($text);
|
|
$id =~ s/_/\ /g; # Search for url-escaped spaces
|
|
return ScriptLink("action=backlink;search=\\[\\[$id(\\|.*)*\\]\\]", $text, $class, $name, $title);
|
|
}
|
|
|
|
$Action{backlink} = \&DoBackLink;
|
|
|
|
sub DoBackLink {
|
|
my $id = shift;
|
|
my $search = GetParam('search', '');
|
|
my $taglabel = $search;
|
|
$taglabel =~ s/\\\[\\\[//;
|
|
$taglabel =~ s/\\\]\\\]//;
|
|
ReportError(T('The search parameter is missing.')) unless $search;
|
|
print GetHeader('', Ts('Pages link to %s', $taglabel), '');
|
|
local (%Page, $OpenPageName);
|
|
my %hash = ();
|
|
foreach my $id (SearchTitleAndBody($search)) {
|
|
$hash{$id} = 1;
|
|
}
|
|
my @found = keys %hash;
|
|
if (defined &PageSort) {
|
|
@found = sort PageSort @found;
|
|
} else {
|
|
@found = sort(@found);
|
|
}
|
|
@found = map { $q->li(GetPageLink($_)) } @found;
|
|
print $q->start_div({-class=>'search list'}),
|
|
$q->ul(@found), $q->end_div;
|
|
PrintFooter();
|
|
}
|