<?php if (!defined('PmWiki')) exit();

/*  Copyright 2005
    
    Version: includewikipage 1.0.0
    
    *Contributors*
    Jeffrey W Barke
    
    *License*
    You can redistribute this file and/or modify it under the terms of the 
	GNU General Public License as published by the Free Software Foundation; 
	either version 2 of the License, or at your option) any later version.  
    
    *Description*
    Permits wiki syndication by allowing wiki pages from one PmWiki 2.0 site
	to be viewed on another PmWiki 2.0 site.   
        
    *Installation*
    Simply copy this file into the 'cookbook/' subdirectory or some other
    suitable place and then add:
		include_once('cookbook/includewikipages.php');
        
    *Use*
	Add the directive
		(:includewikipage someurlhere :)
	to any wiki page to display the contents of another wiki page.
	Note - The URL will take the form of http://somesite.com/wiki.d/GroupName.PageName
	Note - The page you are attempting to syndicate must be in a directory that allows
		requests.
     
    *Attention* 
    This script works only with PmWiki 2.0!
    
*/

function ReadImportedWikiPage($page) {
		
	$newline = "\262";
	$pieces = explode("\n", $page);
	foreach ($pieces as $value) {
		list($k, $v) = explode("=", $value, 2);
		if ($k == 'newline') { $newline = $v; continue; }
		$newpage[$k] = str_replace($newline, "\n", $v);
	}
			
	return @$newpage;

}
	
function ImportWikiPage($page, $inclspec) {

	global $FmtV;
	$inclpage = ReadImportedWikiPage($page);
	$npat = '[[:alpha:]][-\\w]*';
	$itext = $inclpage['text'];
    		
	foreach(preg_split('/\\s+/',$opts) as $o) {
      			
		if (preg_match("/^#($npat)?(\\.\\.)?(#($npat)?)?$/",$o,$match)) {
   			@list($x,$aa,$dots,$b,$bb)=$match;
   			if (!$dots && !$b) $bb=$npat;
   			if ($b=='#') $bb=$npat;
   			if ($aa)
				$itext=preg_replace("/^.*?([^\n]*\\[\\[#$aa\\]\\])/s",'$1',$itext,1);
   			if ($bb)
   				$itext=preg_replace("/(.)[^\n]*\\[\\[#$bb\\]\\].*$/s",'$1',$itext,1);
      			continue;
		} 
		if (preg_match('/^(lines?|paras?)=(\\d*)(\\.\\.(\\d*))?$/', $o,$match)) {
  			@list($x,$unit,$a,$dots,$b) = $match;
  			$upat = ($unit{0} == 'p') ? ".*?(\n\\s*\n|$)" : "[^\n]*\n";
  			if (!$dots) { $b=$a; $a=0;}
   			if ($a>0) $a--;
   			$itext=preg_replace("/^(($upat)\{0,$b}).*$/s",'$1',$itext,1);
   			$itext=preg_replace("/^($upat)\{0,$a}/s",'',$itext,1); 
   			continue;
		}
	
	}
			
	return htmlspecialchars($itext,ENT_NOQUOTES);
		
}
		
Markup('includewikipage', 'directives',
	"/\\(:includewikipage\\s+(http:[^$UrlExcludeChars]*?)\\s*:\\)/e",
	"PRR().ImportWikiPage(implode('',file(str_replace('&amp;','&','$1'))),'$1')");
			
?>