<?php
/**
 * Plugin Iframeinterwiki: Inserts an iframe element to include the specified url
 * Based on Iframe plugin written by Christopher Smith
 * include interwiki urls
 *
 * @license    GPL 2 (http://www.gnu.org/licenses/gpl.html)
 * @author     Steve Roques <steve.roques@gmail.com>
 */
// must be run within Dokuwiki
if(!defined('DOKU_INC')) die();

if(!defined('DOKU_PLUGIN')) define('DOKU_PLUGIN',DOKU_INC.'lib/plugins/');

/**
 * All DokuWiki plugins to extend the parser/rendering mechanism
 * need to inherit from this class
 */
class syntax_plugin_iframeinterwiki extends DokuWiki_Syntax_Plugin {

	function getType() { return 'substition'; }
	function getSort() { return 305; }
	function connectTo($mode) { $this->Lexer->addSpecialPattern('{{url>.*?}}',$mode,'plugin_iframeinterwiki'); }

	function handle($match, $state, $pos, Doku_Handler $handler){
		$match = substr($match, 6, -2);
		
		$exploded = explode('|', $match, 2);
		$url = isset($exploded[0]) ? $exploded[0] : '';
		$alt = isset($exploded[1]) ? $exploded[1] : '';

		$explodedUrl = explode(' ', $url, 2);
		$url = isset($explodedUrl[0]) ? $explodedUrl[0] : '';
		$param = isset($explodedUrl[1]) ? $explodedUrl[1] : '';

		// javascript pseudo uris allowed?
		if (!$this->getConf('js_ok') && substr($url,0,11) == 'javascript:'){
			$url = false;
		}

		// set defaults
		$opts = array(
				'url'    => $url,
				'width'  => '98%',
				'height' => '400px',
				'alt'    => $alt,
				'scroll' => true,
				'border' => true,
				'align'  => false,
			     );

		// handle size parameters
		$matches=array();
		if(preg_match('/\[?(\d+(em|%|pt|px)?)\s*([,xX]\s*(\d+(em|%|pt|px)?))?\]?/',$param,$matches)){
			if(array_key_exists(4, $matches) && $matches[4]){
				// width and height was given
				$opts['width'] = $matches[1];
				if(!$matches[2]) $opts['width'] .= 'px'; //default to pixel when no unit was set
				$opts['height'] = $matches[4];
                if(!isset($matches[5]) || !$matches[5]) $opts['height'] .= 'px'; //default to pixel when no unit was set
			}elseif(array_key_exists(2, $matches) && $matches[2]){
				// only height was given
				$opts['height'] = $matches[1];
				if(!$matches[2]) $opts['height'] .= 'px'; //default to pixel when no unit was set
			}
		}

		// handle other parameters
		if(preg_match('/noscroll(bars?|ing)?/',$param)){
			$opts['scroll'] = false;
		}
		if(preg_match('/no(frame)?border/',$param)){
			$opts['border'] = false;
		}
		if(preg_match('/(left|right)/',$param,$matches)){
			$opts['align'] = $matches[1];
		}

		return $opts;
	}

	// Replace on url all match from interwiki conf
	function parse_uri_inter($url, $filename) {
		if ( file_exists($filename) && ($file = fopen($filename, "r"))!==false ) {
			while (($line = fgets($file)) !== false) {
				$line = preg_replace("/\#.+/", '', trim($line));
				preg_match("/^\s*?(.+?)\s+(.+?)$/i", $line, $matches);
				if (isset($matches[1], $matches[2]) && strpos($url, $matches[1]) !== false) {
					$url = str_replace($matches[1] . '>', '@REPLACE@', $url);
					if(strpos($matches[2], '{NAME}') !== false) {
						$url = str_replace('@REPLACE@' , str_replace('{NAME}', '', $matches[2]), $url);
					} else if(strpos($matches[2], '{URL}') !== false) {
						$url = str_replace('%40REPLACE%40', str_replace('{URL}', '', $matches[2]), urlencode($url));
					}
				}
			}
			fclose($file);
		}
		return $url;
	}

	function render($mode, Doku_Renderer $R, $data) {
		if($mode != 'xhtml') return false;

		if(!$data['url']) {
			$R->doc .= '<div class="iframe">'.hsc($data['alt']).'</div>';
		} else {


			$opts = array(
					'title' => $data['alt'],
					'src'   => $this->parse_uri_inter($this->parse_uri_inter($data['url'], DOKU_INC . 'conf/interwiki.local.conf'), DOKU_INC . 'conf/interwiki.conf'),
					'style' => 'width:'.$data['width'].'; height:'.$data['height'],
				     );
			if(!$data['border']) $opts['frameborder'] = 0;
			if(!$data['scroll']) $opts['scrolling'] = 'no';
			if($data['align'])   $opts['align'] = $data['align'];
			$params = buildAttributes($opts);
			if(!isset($alt)) {
				$alt = '';
			}
			$R->doc .= "<iframe $params>".hsc($alt).'</iframe>';
		}

		return true;
	}
}