4 Copyright 1999,2000,2001,2002,2006 $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: $]/", '',
43 function getDefaultArguments() {
46 PageList::supportedArgs(),
47 array('include_self' => false,
49 'page' => '[pagename]',
50 'linkmore' => '', // If count>0 and limit>0 display a link with
51 // the number of all results, linked to the given pagename.
55 // info arg allows multiple columns
56 // info=mtime,hits,summary,version,author,locked,minor
57 // exclude arg allows multiple pagenames exclude=HomePage,RecentChanges
58 // NEW: info=count : number of links
59 // page=foo,bar : backlinks to both pages
60 function run($dbi, $argstr, &$request, $basepage) {
61 $args = $this->getArgs($argstr, $request);
63 if (empty($page) and $page != '0')
65 // exclude is now already expanded in WikiPlugin::getArgs()
66 if (empty($exclude)) $exclude = array();
70 $info = explode(",", $info);
71 if (in_array('count',$info))
72 $args['types']['count'] =
73 new _PageList_Column_BackLinks_count('count', _("#"), 'center');
76 $args['limit'] = $limit;
77 $args['dosort'] = !empty($args['sortby']); // override DB sort (??)
78 $pagelist = new PageList($info, $exclude, $args);
80 // support logical AND: page1,page2
81 $pages = explodePageList($page);
82 $count = count($pages);
83 if (count($pages) > 1) {
84 // AND: the intersection of all these pages
86 foreach ($pages as $p) {
87 $dp = $dbi->getPage($p);
88 $bi = $dp->getBackLinks(false, $sortby, 0, $exclude);
89 while ($b = $bi->next()) {
90 $name = $b->getName();
91 if (isset($bl[$name]))
97 foreach ($bl as $b => $v)
99 $pagelist->addPage($b);
101 $p = $dbi->getPage($page);
102 $pagelist->addPages($p->getBackLinks(false, $sortby, 0, $exclude));
104 $total = $pagelist->getTotal();
106 // Localization note: In English, the differences between the
107 // various phrases spit out here may seem subtle or negligible
108 // enough to tempt you to combine/normalize some of these
109 // strings together, but the grammar employed most by other
110 // languages does not always end up with so subtle a
111 // distinction as it does with English in this case. :)
113 if ($page == $request->getArg('pagename')
114 and !$dbi->isWikiPage($page))
116 // BackLinks plugin is more than likely being called
117 // upon for an empty page on said page, while either
118 // 'browse'ing, 'create'ing or 'edit'ing.
120 // Don't bother displaying a WikiLink 'unknown', just
121 // the Un~WikiLink~ified (plain) name of the uncreated
122 // page currently being viewed.
125 if ($pagelist->isEmpty())
126 return HTML::p(fmt("No other page links to %s yet.", $pagelink));
129 $pagelist->setCaption(fmt("One page would link to %s:",
131 // Some future localizations will actually require
132 // this... (BelieveItOrNot, English-only-speakers!(:)
134 // else if ($pagelist->getTotal() == 2)
135 // $pagelist->setCaption(fmt("Two pages would link to %s:",
138 $pagelist->setCaption(fmt("%s pages would link to %s:",
144 $p = array_shift($tmp_pages);
145 $pagelink = HTML(WikiLink($p, 'auto'));
146 foreach ($tmp_pages as $p)
147 $pagelink->pushContent(" ",_("AND")," ",WikiLink($p, 'auto'));
149 // BackLinks plugin is being displayed on a normal page.
150 $pagelink = WikiLink($page, 'auto');
152 if ($pagelist->isEmpty())
153 return HTML::p(fmt("No page links to %s.", $pagelink));
155 //trigger_error("DEBUG: " . $pagelist->getTotal());
158 $pagelist->setCaption(fmt("One page links to %s:",
160 // Some future localizations will actually require
161 // this... (BelieveItOrNot, English-only-speakers!(:)
163 // else if ($pagelist->getTotal() == 2)
164 // $pagelist->setCaption(fmt("Two pages link to %s:",
167 $pagelist->setCaption(fmt("%s pages link to %s:",
168 $limit > 0 ? $total : _("Those"),
172 if (!empty($args['linkmore'])
173 and $dbi->isWikiPage($args['linkmore'])
174 and $limit > 0 and $total > $limit
176 $pagelist->addCaption(WikiLink($args['linkmore'], "auto", _("More...")));
182 // how many links from this backLink to other pages
183 class _PageList_Column_BackLinks_count extends _PageList_Column {
184 function _getValue($page, &$revision_handle) {
185 $iter = $page->getPageLinks();
186 $count = $iter->count();
196 // c-hanging-comment-ender-p: nil
197 // indent-tabs-mode: nil