2 rcs_id('$Id: LikePages.php,v 1.20 2004-05-18 16:23:40 rurban 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
23 require_once('lib/TextSearchQuery.php');
24 require_once('lib/PageList.php');
28 class WikiPlugin_LikePages
32 return _("LikePages");
35 function getDescription() {
36 return sprintf(_("List page names which share an initial or final title word with '%s'."),
40 function getVersion() {
41 return preg_replace("/[Revision: $]/", '',
42 "\$Revision: 1.20 $");
45 function getDefaultArguments() {
46 return array('page' => '[pagename]',
54 // info arg allows multiple columns
55 // info=mtime,hits,summary,version,author,locked,minor
56 // exclude arg allows multiple pagenames exclude=HomePage,RecentChanges
58 function run($dbi, $argstr, &$request, $basepage) {
59 $args = $this->getArgs($argstr, $request);
61 if (empty($page) && empty($prefix) && empty($suffix))
66 $descrip = fmt("Page names with prefix '%s'", $prefix);
69 $descrip = fmt("Page names with suffix '%s'", $suffix);
72 $words = preg_split('/[\s:-;.,]+/',
73 SplitPagename($page));
74 $words = preg_grep('/\S/', $words);
76 $prefix = reset($words);
77 $suffix = end($words);
79 $descrip = fmt("These pages share an initial or final title word with '%s'",
80 WikiLink($page, 'auto'));
83 // Search for pages containing either the suffix or the prefix.
84 $search = $match = array();
85 if (!empty($prefix)) {
86 $search[] = $this->_quote($prefix);
87 $match[] = '^' . preg_quote($prefix, '/');
89 if (!empty($suffix)) {
90 $search[] = $this->_quote($suffix);
91 $match[] = preg_quote($suffix, '/') . '$';
95 $query = new TextSearchQuery(join(' OR ', $search));
97 $query = new NullTextSearchQuery; // matches nothing
99 $match_re = '/' . join('|', $match) . '/';
101 $pagelist = new PageList($info, $exclude);
103 $pagelist->setCaption($descrip);
105 $pages = $dbi->titleSearch($query);
107 while ($page = $pages->next()) {
108 $name = $page->getName();
109 if (!preg_match($match_re, $name))
111 $pagelist->addPage($page);
117 function _quote($str) {
118 return "'" . str_replace("'", "''", $str) . "'";
122 // $Log: not supported by cvs2svn $
123 // Revision 1.19 2004/02/17 12:11:36 rurban
124 // 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, ...)
126 // Revision 1.18 2003/01/18 21:48:52 carstenklapp
128 // Reformatting & tabs to spaces;
129 // Added copyleft, getVersion, getDescription, rcs_id.
136 // c-hanging-comment-ender-p: nil
137 // indent-tabs-mode: nil