2 rcs_id('$Id: WantedPages.php,v 1.9 2004-04-10 04:15:06 rurban Exp $');
4 This file is part of PhpWiki.
6 PhpWiki is free software; you can redistribute it and/or modify
7 it under the terms of the GNU General Public License as published by
8 the Free Software Foundation; either version 2 of the License, or
9 (at your option) any later version.
11 PhpWiki is distributed in the hope that it will be useful,
12 but WITHOUT ANY WARRANTY; without even the implied warranty of
13 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
14 GNU General Public License for more details.
16 You should have received a copy of the GNU General Public License
17 along with PhpWiki; if not, write to the Free Software
18 Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
22 * A plugin which returns a list of referenced pages which do not exist yet.
25 //include_once('lib/PageList.php');
29 class WikiPlugin_WantedPages
33 return _("WantedPages");
36 function getDescription () {
37 return _("Lists referenced page names which do not exist yet.");
40 function getVersion() {
41 return preg_replace("/[Revision: $]/", '',
45 function getDefaultArguments() {
46 return array('noheader' => false,
47 'exclude' => _("PgsrcTranslation"),
48 'page' => '[pagename]');
50 // info arg allows multiple columns
51 // info=mtime,hits,summary,version,author,locked,minor,markup or all
52 // exclude arg allows multiple pagenames exclude=HomePage,RecentChanges
54 function run($dbi, $argstr, &$request, $basepage) {
55 extract($this->getArgs($argstr, $request));
58 if (!is_array($exclude))
59 $exclude = explode(',', $exclude);
62 if ($page == _("WantedPages"))
65 // The PageList class can't handle the 'count' column needed
67 $this->pagelist = array();
69 // There's probably a more memory-efficient way to do this (eg
70 // a tailored SQL query via the backend, but this gets the job
73 $allpages_iter = $dbi->getAllPages($include_empty = false);
74 while ($page_handle = $allpages_iter->next()) {
75 $name = $page_handle->getName();
76 if ($name == _("InterWikiMap")) continue;
77 if (! in_array($name, $exclude))
78 $this->_iterateLinks($page_handle, $dbi);
80 } else if ($page && $pageisWikiPage = $dbi->isWikiPage($page)) {
81 //only get WantedPages links for one page
82 $page_handle = $dbi->getPage($page);
83 $this->_iterateLinks($page_handle, $dbi);
85 ksort($this->pagelist);
86 arsort($this->pagelist);
88 $this->_rows = HTML();
90 $this->_messageIfEmpty = _("<none>");
93 // link count always seems to be 1 for a single page so
95 foreach ($this->pagelist as $key => $val) {
96 $row = HTML::li(WikiLink((string)$key, 'unknown'));
97 $this->_rows->pushContent($row);
101 $pagelink = WikiLink($page);
103 $pagelink = WikiLink($page, 'unknown');
104 $c = count($this->pagelist);
105 $caption = fmt("Wanted Pages for %s (%d total):",
108 return $this->_generateList($caption);
111 $spacer = new RawXml(" ");
112 // Clicking on the number in the links column does a
113 // FullTextSearch for the citations of the WantedPage
115 foreach ($this->pagelist as $key => $val) {
116 $key = (string) $key; // TODO: Not sure why, but this
117 // string cast type-coersion
118 // does seem necessary here.
119 // Enclose any FullTextSearch keys containing a space
120 // with quotes in oder to request a defnitive search.
121 $searchkey = (strstr($key, ' ') === false) ? $key : "\"$key\"";
122 $row = HTML::tr(HTML::td(array('align' => 'right'),
123 Button(array('s' => $searchkey),
124 $val, _("FullTextSearch")),
125 // Alternatively, get BackLinks
128 //Button(array('action'
129 // => _("BackLinks")),
130 // $val, $searchkey),
131 HTML::td(HTML($spacer,
135 $this->_rows->pushContent($row);
137 $c = count($this->pagelist);
139 $caption = sprintf(_("Wanted Pages in this wiki (%d total):"),
141 $this->_columns = array(_("Count"), _("Page Name"));
143 return $this->_generateTable($caption);
145 return HTML(HTML::p($caption), HTML::p($messageIfEmpty));
149 function _generateTable($caption) {
151 if (count($this->pagelist) > 0) {
152 $table = HTML::table(array('cellpadding' => 0,
155 'class' => 'pagelist'));
157 $table->pushContent(HTML::caption(array('align'=>'top'),
161 $spacer = new RawXml(" ");
162 foreach ($this->_columns as $col_heading) {
163 $row->pushContent(HTML::td(HTML($spacer,
164 HTML::u($col_heading))));
165 $table_summary[] = $col_heading;
167 // Table summary for non-visual browsers.
168 $table->setAttr('summary', sprintf(_("Columns: %s."),
169 implode(", ", $table_summary)));
171 $table->pushContent(HTML::thead($row),
172 HTML::tbody(false, $this->_rows));
176 $table->pushContent(HTML::p($caption));
177 $table->pushContent(HTML::p($this->_messageIfEmpty));
183 function _generateList($caption) {
185 $c = count($this->pagelist);
187 $list->pushContent(HTML::p($caption));
190 $list->pushContent(HTML::ul($this->_rows));
192 $list->pushContent(HTML::p($this->_messageIfEmpty));
197 function _iterateLinks($page_handle, $dbi) {
198 $links_iter = $page_handle->getLinks($reversed = false);
199 while ($link_handle = $links_iter->next())
201 if (! $dbi->isWikiPage($linkname = $link_handle->getName()))
202 if (! in_array($linkname, array_keys($this->pagelist)))
203 $this->pagelist[$linkname] = 1;
205 $this->pagelist[$linkname] += 1;
210 // $Log: not supported by cvs2svn $
211 // Revision 1.8 2004/02/17 12:11:36 rurban
212 // added missing 4th basepage arg at plugin->run() to almost all plugins. This caused no harm so far, because it was silently dropped on normal usage. However on plugin internal ->run invocations it failed. (InterWikiSearch, IncludeSiteMap, ...)
214 // Revision 1.7 2003/12/19 06:57:49 carstenklapp
215 // Bugfix: Enclose FullTextSearch query with quotes when the [Wiki Word]
218 // Revision 1.6 2003/11/19 17:08:23 carstenklapp
219 // New feature: Clicking on the number of citations in the links column
220 // now does a FullTextSearch for the WantedPage link!
222 // Revision 1.5 2003/03/25 21:05:27 dairiki
223 // Ensure pagenames are strings.
225 // Revision 1.4 2003/01/18 22:14:24 carstenklapp
227 // Reformatting & tabs to spaces;
228 // Added copyleft, getVersion, getDescription, rcs_id.
235 // c-hanging-comment-ender-p: nil
236 // indent-tabs-mode: nil