[=', "/\$:xsl(\\s+.*)?\\s*:\$\\s*$KeepToken(\\d.*?)$KeepToken/e", "IncludeXMLTransform(\$pagename,'xsl',PSS('$1'),\$GLOBALS['KPV']['$2'])"); Markup('xslend', '>xsl', "/\$:xsl(\\s+.*)?\\s*:\$\n(?s:(.*?))\$:xslend:\$/e", "IncludeXMLTransform(\$pagename,'xsl',PSS('$1'),PSS('$2'))"); Markup('xml', '>[=', "/\$:xml(\\s+.*)?\\s*:\$\\s*$KeepToken(\\d.*?)$KeepToken/e", "IncludeXMLTransform(\$pagename,'xml',PSS('$1'),\$GLOBALS['KPV']['$2'])"); Markup('xmlend', '>xml', "/\$:xml(\\s+.*)?\\s*:\$\n(?s:(.*?))\$:xmlend:\$/e", "IncludeXMLTransform(\$pagename,'xml',PSS('$1'),PSS('$2'))"); SDVA($IncludeXMLMsgFmt, array( 'denied' => "

$[Unable to bind to denied resource.]

", 'notfound' => "

$[XML data not found]

", )); SDVA($IncludeXMLOptions, array( 'xml' => array('inc' => false, 'ctx' => null), 'xsl' => array('inc' => false, 'ctx' => null), 'markup' => true, )); SDV($IncludeXMLDecodeFunc, create_function('$data', 'return $data;')); function IncludeXMLTransform($pagename, $type, $args, $data = '') { global $IncludeXMLMsgFmt, $IncludeXMLDecodeFunc, $IncludeXMLOptions; $opt = ParseArgs($args); $xslt_args = array(); if($type) { $o = array_flip(array('xml', 'xsl')); unset($o[$type]); $opt[$type] = '-'; $xslt_args["/_$type"] = # undo PmWiki's htmlspecialchars conversion and trim str_replace(array('<:vspace>', '<', '>', '&'), array('', '<', '>', '&'), trim($data)); $rsc = key($o); if(IncludeXMLReadData($pagename, $data2, $opt[$rsc], $IncludeXMLOptions[$rsc]['inc'], $IncludeXMLOptions[$rsc]['ctx'])) $xslt_args["/_$rsc"] = $data2; else return $data2; } else { if(!isset($opt['xml'])) { $opt['xml'] = $opt['src']; unset($opt['src']); } if(IncludeXMLReadData($pagename, $data, $opt['xml'], $IncludeXMLOptions['xml']['inc'], $IncludeXMLOptions['xml']['ctx'])) $xslt_args['/_xml'] = $data; else return $data; if(IncludeXMLReadData($pagename, $data, $opt['xsl'], $IncludeXMLOptions['xsl']['inc'], $IncludeXMLOptions['xsl']['ctx'])) $xslt_args['/_xsl'] = $data; else return $data; } if(!$xslt_args['/_xml']) return FmtPageName($IncludeXMLMsgFmt['notfound'], $pagename); if(!$xslt_args['/_xsl']) return Keep("

"
                                     . htmlentities($xslt_args['/_xml'])
                                     . "

"); $redoMarkup = ! @in_array('markup', $opt['-']) && $IncludeXMLOptions['markup']; $debug = @in_array('debug', $opt['+']); unset($opt['#'], $opt['+'], $opt['-']); $xh = xslt_create(); $result = $IncludeXMLDecodeFunc(xslt_process($xh, 'arg:/_xml', 'arg:/_xsl', NULL, $xslt_args, $opt)); xslt_free($xh); if($debug) return Keep("" . htmlentities($result) . ""); if($redoMarkup) return PRR(PVSE($result)); return Keep($result); } function IncludeXMLReadData($pagename, &$data, $tgt, $inc, $ctx) { global $EnableExternalResource, $IncludeXMLMsgFmt, $IncludeXMLUseIncludePath; if(!ResolveLinkResource($pagename, $tgt, $url, $txt, $upname, $filepath, $size, $mime)) { $data = isset($filepath) ? Keep($url) : ''; return false; } if(!$filepath) { if(!IsEnabled($EnableExternalResource, true)) { $data = FmtPageName($IncludeXMLMsgFmt['denied'], $pagename); return false; } $filepath = $url; } $data = IncludeXML_file_get_contents($filepath, $inc, $ctx); return true; } // Emulate potentially missing functions and old xslt library functions // // xslt_* functions from jw@jwscripts.com's php manual notes. // // file_get_contents: PHP 4 >= 4.3.0, PHP 5 - file_put_contents: PHP 5 // functions adapted from http://pear.php.net/package/PHP_Compat code. See there // for original credits. // if(PHP_VERSION >= 5) { function xslt_create() { return new XsltProcessor(); } function xslt_free($xsltproc) { unset($xsltproc); } function xslt_process($xsltproc, $xml_arg, $xsl_arg, $xslcontainer = null, $args = null, $params = null) { // Start with preparing the arguments $xml_arg = str_replace('arg:', '', $xml_arg); $xsl_arg = str_replace('arg:', '', $xsl_arg); // Load the xml document and the xsl template // creating instances of the DomDocument class $xml = DOMDocument::loadXML($args[$xml_arg]); $xsl = DOMDocument::loadXML($args[$xsl_arg]); // Load the xsl template $xsltproc->importStyleSheet($xsl); // Set parameters when defined if($params) foreach($params as $param => $value) $xsltproc->setParameter("", $param, $value); // Start the transformation $processed = $xsltproc->transformToXML($xml); // Put the result in a file when specified if($xslcontainer) return IncludeXML_file_put_contents($xslcontainer, $processed); else return $processed; } function IncludeXML_file_get_contents($filename, $incpath = false, $resource_context = null) { return file_get_contents($filename, $incpath, $resource_context); } function IncludeXML_file_put_contents($filename, $content, $flags = null, $resource_context = null) { return file_put_contents($filename, $content, $flags, $resource_context); } } else { define('INCLUDEXML_FILE_GET_CONTENTS_MAX_REDIRECTS', 5); function IncludeXML_file_get_contents($filename, $incpath = false, $resource_context = null) { $opts = is_resource($resource_context) && function_exists('stream_context_get_options') ? stream_context_get_options($resource_context) : null; $colon_pos = strpos($filename, '://'); $wrapper = $colon_pos === false ? 'file' : substr($filename, 0, $colon_pos); $opts = (empty($opts) || empty($opts[$wrapper])) ? array() : $opts[$wrapper]; switch($wrapper) { case 'http': $max_redirects = (isset($opts[$wrapper]['max_redirects']) ? $opts[$proto]['max_redirects'] : INCLUDEXML_FILE_GET_CONTENTS_MAX_REDIRECTS); for($i = 0; $i < $max_redirects; $i++) { $contents = IncludeXML_file_get_contents_http_get_contents_helper($filename, $opts); if(is_array($contents)) { // redirected $filename = rtrim($contents[1]); $contents = ''; continue; } return $contents; } user_error('redirect limit exceeded', E_USER_WARNING); return; case 'ftp': case 'https': case 'ftps': case 'socket': // tbc } if(false === $fh = fopen($filename, 'rb', $incpath)) { user_error('failed to open stream: No such file or directory', E_USER_WARNING); return false; } clearstatcache(); if($fsize = @filesize($filename)) $data = fread($fh, $fsize); else { $data = ''; while (!feof($fh)) $data .= fread($fh, 8192); } fclose($fh); return $data; } function IncludeXML_file_get_contents_http_get_contents_helper($filename, $opts) { $path = parse_url($filename); if(!isset($path['host'])) return ''; $fp = fsockopen($path['host'], 80, $errno, $errstr, 4); if(!$fp) return ''; if(!isset($path['path'])) $path['path'] = '/'; $headers = array('Host' => $path['host'], 'Conection' => 'close'); // enforce some options (proxy isn't supported) $opts_defaults = array('method' => 'GET', 'header' => null, 'user_agent' => ini_get('user_agent'), 'content' => null, 'request_fulluri' => false); foreach($opts_defaults as $key => $value) if(!isset($opts[$key])) $opts[$key] = $value; $opts['path'] = $opts['request_fulluri'] ? $filename : $path['path']; // build request $request = $opts['method'] . ' ' . $opts['path'] . " HTTP/1.0\r\n"; // build headers if(isset($opts['header'])) { $optheaders = explode("\r\n", $opts['header']); for($i = count($optheaders); $i--;) { $sep_pos = strpos($optheaders[$i], ': '); $headers[substr($optheaders[$i], 0, $sep_pos)] = substr($optheaders[$i], $sep_pos + 2); } } foreach($headers as $key => $value) $request .= "$key: $value\r\n"; $request .= "\r\n" . $opts['content']; // make request fputs($fp, $request); $response = ''; while(!feof($fp)) $response .= fgets($fp, 8192); fclose($fp); $content_pos = strpos($response, "\r\n\r\n"); // recurse for redirects if(preg_match('/^Location: (.*)$/mi', $response, $matches)) return $matches; return ($content_pos != -1 ? substr($response, $content_pos + 4) : $response); } if(!defined('FILE_USE_INCLUDE_PATH')) define('FILE_USE_INCLUDE_PATH', 1); if(!defined('LOCK_EX')) define('LOCK_EX', 2); if(!defined('FILE_APPEND')) define('FILE_APPEND', 8); function IncludeXML_file_put_contents($filename, $content, $flags = null, $resource_context = null) { if(!is_scalar($content)) { user_error('file_put_contents() The 2nd parameter should be either a string or an array', E_USER_WARNING); return false; } $fh = @fopen($filename, ($flags & FILE_APPEND) ? 'a' : 'wb', ($flags & FILE_USE_INCLUDE_PATH) ? true : false, $resource_context); if(!$fh) { user_error('file_put_contents() failed to open stream: Permission denied', E_USER_WARNING); return false; } // Attempt to get an exclusive lock if(($flags & LOCK_EX) && !flock($fh, LOCK_EX)) return false; // Write to the file if(is_array($content)) $content = implode('', $content); $length = strlen($content); if(($bytes = @fwrite($fh, $content)) === false) { user_error(sprintf('file_put_contents() Failed to write %d bytes to %s', $length, $filename), E_USER_WARNING); return false; } @fclose($fh); // Check all the data was written if($bytes != $length) { user_error(sprintf('file_put_contents() Only %d of %d bytes written, possibly out of free disk space.', $bytes, $length), E_USER_WARNING); return false; } return $bytes; } }