Revision [17518]

This is an old revision of RegexpindexAction made by DomBonj on 2007-09-26 16:38:29.

 

Regexpindex Action

See also:
works with:
  • Wikka 1.1.6.2 & 1.1.6.3
NOT included in any Wikka version
Last edited by DomBonj:
v0.90: first upload
Wed, 26 Sep 2007 16:38 UTC [diff]

This is the development page for the Regexpindex action.

Installation


Code


actions/regexpindex.php


<?php
#
# Displays a list of pages whose tag matches a regular epxression
#
# @package      Actions
# @name         regexpindex
#
# @author       DomBonj
#
# @version      0.9
#
# @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_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['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
{  
    $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 (tag 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 (isset($vars['opts']) && (preg_match('/t/i', $vars['opts'])))
            {   // 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)) : $page['tag']);
            }
            if (isset($vars['opts']) && (preg_match('/o/i', $vars['opts'])))
            {   // 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
There are no comments on this page.
Valid XHTML :: Valid CSS: :: Powered by WikkaWiki