2 rcs_id('$Id: BackLinks.php,v 1.20 2003-12-14 05:36:31 carstenklapp Exp $');
4 Copyright 1999, 2000, 2001, 2002 $ThePhpWikiProgrammingTeam
6 This file is part of PhpWiki.
8 PhpWiki is free software; you can redistribute it and/or modify
9 it under the terms of the GNU General Public License as published by
10 the Free Software Foundation; either version 2 of the License, or
11 (at your option) any later version.
13 PhpWiki is distributed in the hope that it will be useful,
14 but WITHOUT ANY WARRANTY; without even the implied warranty of
15 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
16 GNU General Public License for more details.
18 You should have received a copy of the GNU General Public License
19 along with PhpWiki; if not, write to the Free Software
20 Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
25 require_once('lib/PageList.php');
27 class WikiPlugin_BackLinks
31 return _("BackLinks");
34 function getDescription() {
35 return sprintf(_("List all pages which link to %s."), '[pagename]');
38 function getVersion() {
39 return preg_replace("/[Revision: $]/", '',
40 "\$Revision: 1.20 $");
43 function getDefaultArguments() {
44 return array('exclude' => '',
45 'include_self' => false,
47 'page' => '[pagename]',
51 // info arg allows multiple columns
52 // info=mtime,hits,summary,version,author,locked,minor
53 // exclude arg allows multiple pagenames exclude=HomePage,RecentChanges
55 function run($dbi, $argstr, $request) {
56 $this->_args = $this->getArgs($argstr, $request);
57 extract($this->_args);
61 $exclude = $exclude ? explode(",", $exclude) : array();
65 $pagelist = new PageList($info, $exclude);
67 $p = $dbi->getPage($page);
68 $pagelist->addPages($p->getLinks());
70 // Localization note: In English, the differences between the
71 // various phrases spit out here may seem subtle or negligible
72 // enough to tempt you to combine/normalize some of these
73 // strings together, but the grammar employed most by other
74 // languages does not always end up with so subtle a
75 // distinction as it does with English in this case. :)
77 if ($page == $request->args['pagename']
78 && !$dbi->isWikiPage($page))
80 // BackLinks plugin is more than likely being called
81 // upon for an empty page on said page, while either
82 // 'browse'ing, 'create'ing or 'edit'ing.
84 // Don't bother displaying a WikiLink 'unknown', just
85 // the Un~WikiLink~ified (plain) name of the uncreated
86 // page currently being viewed.
89 if ($pagelist->isEmpty())
90 return HTML::p(fmt("No other page links to %s yet.", $pagelink));
92 if ($pagelist->getTotal() == 1)
93 $pagelist->setCaption(fmt("One page would link to %s:",
95 // Some future localizations will actually require
96 // this... (BelieveItOrNot, English-only-speakers!(:)
98 // else if ($pagelist->getTotal() == 2)
99 // $pagelist->setCaption(fmt("Two pages would link to %s:",
102 $pagelist->setCaption(fmt("%s pages would link to %s:",
103 $pagelist->getTotal(), $pagelink));
106 // BackLinks plugin is being displayed on a normal page.
107 $pagelink = WikiLink($page, 'auto');
109 if ($pagelist->isEmpty())
110 return HTML::p(fmt("No page links to %s.", $pagelink));
112 trigger_error($pagelist->getTotal());
114 if ($pagelist->getTotal() == 1)
115 $pagelist->setCaption(fmt("One page links to %s:",
117 // Some future localizations will actually require
118 // this... (BelieveItOrNot, English-only-speakers!(:)
120 // else if ($pagelist->getTotal() == 2)
121 // $pagelist->setCaption(fmt("Two pages link to %s:",
124 $pagelist->setCaption(fmt("%s pages link to %s:",
125 $pagelist->getTotal(), $pagelink));
133 // $Log: not supported by cvs2svn $
134 // Revision 1.19 2003/01/18 21:19:25 carstenklapp
136 // Reformatting; added copyleft, getVersion, getDescription
144 // c-hanging-comment-ender-p: nil
145 // indent-tabs-mode: nil