<?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);
?>