=====Regexpindex Action=====
>>==See also:==
- Documentation: RegexpindexActionInfo
==works with:==
- Wikka 1.1.6.2 to 1.1.6.5
>>//NOT included in any Wikka version//{{lastedit show="3"}}
This is the development page for the Regexpindex action.

===Installation===
- Save the first code block below as ##actions/regexpindex.php##
- Give it the same file permissions as the other php files in that directory

=== Code ===

<<##actions/regexpindex.php##<<

%%(php)<?php
#
# Displays a list of pages whose tag matches a regular expression
#
# @package Actions
# @name regexpindex
#
# @author DomBonj
#
# @version 0.93
#
# @input Parameters = re='myregexp' [cat='mycategory'] [sort=('tag'|'rtime'|'time')] [opts='[o][t]']
# default values: sort='tag'
# options: o=display page owner ; t=display page title
#
# @uses Wakka::Format()
# @uses Wakka::GetUserName()
# @uses Wakka::HasAccess()
# @uses Wakka::Link()
# @uses Wakka::LoadAll()
#

// i18n strings
if (!defined('RI_PAGE_OWNER')) define('RI_PAGE_OWNER', ' . . . . Owner: %s');
if (!defined('RI_NO_TITLE')) define('RI_NO_TITLE', '');
if (!defined('RI_ERROR_NO_PAGES_FOUND')) define('RI_ERROR_NO_PAGES_FOUND', 'No pages found.');
if (!defined('RI_ERROR_REQUEST_FORMAT')) define ('RI_ERROR_REQUEST_FORMAT', 'Incorrect parameter; usage: %s');
if (!defined('RI_ERROR_USAGE')) define ('RI_ERROR_USAGE', "regexpindex re='myregexp' [cat='mycategory'] [sort='tag|time|rtime'] [opts='[o][t]']");

if (!function_exists('RIerror'))
{
function RIerror ($msg)
{
return ('<em class="error">'. $msg .'</em><br />');
}
}

$output = '';
if ( (isset($vars['opts']) && (!preg_match("/^[ot]{1,2}$/i", $vars['opts'])) )
|| ( !isset($vars['re']) )
|| ( isset($vars['re']) && (preg_match("/^\s*$/i", $vars['re'])) )
|| ( isset($vars['cat']) && (preg_match("/^\s*$/i", $vars['cat'])) )
|| ( isset($vars['sort']) && (!preg_match("/^(time|tag|rtime)$/i", $vars['sort'])) ) )
{
$output .= RIerror(sprintf(RI_ERROR_REQUEST_FORMAT, RI_ERROR_USAGE));
}
else
{
$display_title = isset($vars['opts']) && preg_match('/t/i', $vars['opts']);
$display_owner = isset($vars['opts']) && preg_match('/o/i', $vars['opts']);
$cached_username = $this->GetUserName();
$orderby = isset($vars['sort']) ? (strtolower($vars['sort'])=='rtime' ? 'time DESC' : strtolower($vars['sort'])) : 'tag';
$wherecat = isset($vars['cat']) ? ' AND (body REGEXP \''. mysql_real_escape_string($vars['cat']) .'\')' : '';
$query = 'SELECT body, tag, owner FROM '. $this->config['table_prefix'] .'pages WHERE ((latest = \'Y\') AND (CAST(tag AS BINARY) REGEXP \''. mysql_real_escape_string($vars['re']) .'\')'. $wherecat .') ORDER BY '. $orderby;
$pages = $this->LoadAll($query);
foreach ($pages as $page)
{
if ($this->HasAccess('read', $page['tag']))
{
$output .= $this->Link($page['tag']);
if ($display_title)
{ // display page title; this code is taken from PageTitle() function in Wakka.class.php
$title = '';
$pagecontent = $page['body'];
if (ereg( "(=){3,5}([^=\n]+)(=){3,5}", $pagecontent, $title))
{
$formatting_tags = array('**', '//', '__', '##', '""', '++', '#%', '@@', '\'\'');
$title = str_replace($formatting_tags, '', $title[2]);
}
$output .= ($title ? ': '. strip_tags($this->Format($title)) : '<i>'.RI_NO_TITLE.'</i>');
}
if ($display_owner)
{ // display page owner, or '*' if current user is the page owner
$page_owner = $page['owner'];
if ($cached_username == $page_owner)
{
$output .= '*';
}
elseif ($page_owner != '(Public)' && $page_owner != '')
{
$output .= sprintf(RI_PAGE_OWNER, $page_owner);
}
}
$output .= "<br />\n";
}
}
}
echo ($output ? $output : RI_ERROR_NO_PAGES_FOUND);
?>
%%

----
CategoryUserContributions