<?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/');
require_once(DOKU_PLUGIN.'syntax.php');

/**
 * 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);
		list($url, $alt) = explode('|',$match,2);
		list($url, $param) = explode(' ',$url,2);

        // 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($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(!$matches[5]) $opts['height'] .= 'px'; //default to pixel when no unit was set
            }elseif($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;
    }

	function parse_uri_inter($url, $filename) {
		$file = fopen($filename, 'r');
		while (($line = fgets($file)) !== false) {
			$line = preg_replace("/\#.+/", '', trim($line));
			preg_match("/^\s*?(.+?)\s+(.+?)$/i", $line, $matches);
			if (isset($matches[1], $matches[2]) && str_contains($url, $matches[1])) {
				$url = str_replace($matches[1] . '>', '@REPLACE@', $url);
				if(str_contains($matches[2], '{NAME}')) {
					$url = str_replace('@REPLACE@' , str_replace('{NAME}', '', $matches[2]), $url);
				} else if(str_contains($matches[2], '{URL}')) {
					$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;
    }
}