Source for file test_Text_Wiki.php

Documentation is available at test_Text_Wiki.php
<?php
ini_set('display_errors', true);
error_reporting(E_ALL);
// needed for error checking
require_once 'PEAR.php';
// base class
require_once 'Text/Wiki.php';
/**
 * Eventually set an include path if all parsers/renderers not installed
 * $Id$
 */
$parser = $render = $source = '';
$plist = array('Default', 'BBCode', 'Cowiki', 'Doku', 'Mediawiki', 'Tiki', 'X-choice', 'Creole');
$rlist = array('Xhtml', 'Plain', 'Latex', 'Cowiki', 'Doku', 'Tiki', 'Ooosxw', 'Pdf', 'Docbook', 'Creole');
 
if (get_magic_quotes_gpc()) {
    echo "\nWARNING: to this script work properly you have to set magic_quotes_gpc = Off on your php.ini file\n";
}
 
/**
 * Here we need to know if we are running from command line or from web
 * That runs anyway: if (isset($_SERVER['SERVER_NAME'])) {
 * but have some o(l|d)d compatibility problem ...
 */
if (in_array(php_sapi_name(), array('cli', 'cgi'))) {
    $html = false;
    $parser = isset($_SERVER['argv'][1]) ? $_SERVER['argv'][1] : 'BBCode';
    $render = isset($_SERVER['argv'][2]) ? $_SERVER['argv'][2] : 'Xhtml';
    if (!isset($_SERVER['argv'][3]) or !is_readable($sou = $_SERVER['argv'][3])) {
        die("Enter a text file to be processed as 3d argument\n First and second are parser and renderer\n");
    }
    $source = file_get_contents ($sou);
} else {
    $html = true;
    $elist = findExamples(dirname(__FILE__));
    if (isset($_REQUEST['example'])
        && in_array($_REQUEST['exchoice'], $elist)) {
        $_REQUEST['source'] = file_get_contents ($_REQUEST['exchoice']);
        if (preg_match('#(\b'.implode('\b|\b', $plist).'\b)#',
                         $_REQUEST['source'], $match)) {
            $_REQUEST['parser'] = $match[1];
        }
        $_REQUEST['translate'] = true;
    }
    foreach (array('parser'=>$plist[0], 'render'=>$rlist[0],
                   'exchoice'=>($elist ? $elist[0] : ''), 'source'=>'')
             as $fld=>$def) {
        if(!isset($_REQUEST[$fld])) {
            $_REQUEST[$fld] = $def;
        }
        $$fld = $_REQUEST[$fld];
    }
    if (!isset($_REQUEST['translate'])) {
        echo bldHtml('', $plist, $rlist, $elist);
        die();
    }
}
 
// instantiate a Text_Wiki object from the given class
$wiki = & Text_Wiki::singleton($parser);
 
// If you want to include rules, use
//$wiki = & Text_Wiki::singleton($parser, $rules);
 
// If you want to get a new copy of the class use factory
//$wiki =& Text_Wiki::factory($parser);
 
//print "<pre>\n";
//print_r($wiki);
//print "</pre>\n";
 
// when rendering XHTML, make sure wiki links point to a
// specific base URL
//$wiki->setRenderConf('xhtml', 'wikilink', 'view_url',
// 'http://example.com/view.php?page=');
 
// set an array of pages that exist in the wiki
// and tell the XHTML renderer about them
//$pages = array('HomePage', 'AnotherPage', 'SomeOtherPage');
 
$wiki->setRenderConf('xhtml', 'code', 'css_filename', 'codefilename');
 
// transform the wiki text into given rendering
$result = $wiki->transform($source, $render);
 
// display the transformed text
if ($html) {
    echo bldHtml($result, $plist, $rlist, $elist);
} else {
    if (PEAR::isError($result)) {
        var_dump($result);
    } else {
        echo $result;
    }
}
function bldOpt($name, $list) {
    $ret = '';
    foreach($list as $opt) {
          $ret .= "<option value='{$opt}'".
            ($opt == $_REQUEST[$name]? " selected" : "").
            ">{$opt}</option>\n";
    }
    return $ret;
}
function bldHtml($result, $plist, $rlist, $elist) {
    $optparser = bldOpt('parser', $plist);
    $optrender = bldOpt('render', $rlist);
    $optexample = bldOpt('exchoice', $elist);
    if (PEAR::isError($result)) {
        $hresult = '<span class="error">' .
            nl2br(htmlentities($result->toString ())) . '</span>';
        $result = '';
    } else {
        $hresult = nl2br(htmlentities($result));
    }
    if ($_REQUEST['render'] != 'Xhtml') {
        $result = '';
    }
    $_REQUEST['source'] = htmlspecialchars($_REQUEST['source']);
    return <<<EOT
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
 
<head>
  <title>PEAR::Text_Wiki Demo</title>
  <meta name="AUTHOR" content="bertrand Gugger / Toggg">
  <meta http-equiv="Content-Type" content="text/html; charset=UTF-8">
  <meta name="KEYWORDS" content="PEAR, Wiki, Parse, Render, Convert, PHP, BBCode, Xhtml, Plain, Latex">
  <style type="text/css">
    blockquote, pre {
        border: solid;
    }
    .codefilename {
        color: blue;
        background-color:orange;
        text-decoration: underline;
    }
    .error {
        color: red;
    }
  </style>
</head>
<body>
<h3>PEAR::Text_Wiki Demo</h3>
<div style="float: left;">
<FORM method="post">
Translate from
<SELECT name="parser">{$optparser}</SELECT>
 to
<SELECT name="render">{$optrender}</SELECT>
 <INPUT type="submit" name="translate" value="translate" />
<br />
<textarea name="source" cols="60" rows="25">{$_REQUEST['source']}</textarea>
<br />
<h4> Or choose
<SELECT name="exchoice">{$optexample}</SELECT>
 and
<INPUT type="submit" name="example" value="Load example" />
</h4>
</FORM>
</div>
<div style="float: down; font-family: monospace;">
{$hresult}
</div>
<div>
{$result}
</div>
</body>
</html>
EOT;
}
function findExamples($dir=null) {
    $ret = array();
    $dh=opendir($dir? $dir : '.');
    while ($subfil = readdir($dh)) {
        if (!is_dir($subfil) && is_readable($subfil)
            && (substr($subfil, -4) == '.txt')) {
            $ret[] = $subfil;
        }
    }
    closedir($dh);
    return $ret;
}
?>