<?php
define(DEBUG,0);
define(MAX_RECURSE,50);
define(CACHING,1);

/*
var_dump($_SERVER);
exit;
*/

if (DEBUG) {
  error_reporting(E_ALL);
  ini_set("display_errors", 1);
}

$SCRIPT_FILENAME=$_SERVER['SCRIPT_FILENAME'];
$newest = filemtime($SCRIPT_FILENAME);
$cacheable = true;

include 'php/cache_check.inc';
include_with_mtime('php/accept-language.inc');
include_with_mtime('php/filters.inc');
include_with_mtime('php/common-functions.inc');

$URL_PARAMS=array('name','lang');

#Globals
$name = $_GET['name'];
$lang = $_GET['lang'];

if(!$name) {
  $name="home";
}

if(!$lang) {
  $lang="no";
  $langs=acceptedLanguages();
  if ($langs) {
    foreach ($langs as $l => $val) {
      if (file_exists($l)) {
        $lang = $l;
        break;
      }
    }
  }
}

function getParam($param) {
  $param_type=$param->getAttribute("type");
  $param_value;
  if (!$param_type)
    $param_type="scalar";

  if($param_type == "scalar") {
    $param_subst=$param->getAttribute("subst");
    $param_value=$param->getAttribute("value");
    if ($param_subst) {
      /*
      $param_value=preg_replace("/name/", $name, $param_subst);
      $param_value=preg_replace('/lang/', $lang, $param_value);
      */
    }
  }
  elseif($param_type == "array") {
	  $params=$param->getElementsByTagName("param");
	  $param_value=array();
	  foreach ($param->childNodes as $param) {
	    if ($param->nodeType == XML_ELEMENT_NODE)
	    {
	      array_push($param_value, getParam($param));            
	    }
	  }
  }
  return $param_value;
}

function getInput($master, $param) {
  $out='';

  $lang=$GLOBALS['lang'];
  $name=$param->getAttribute("id");
  $conf=$_GET[$name];
  $GLOBALS[$name]=$conf;
  if (!$conf)
    $conf=$param->getAttribute("default");

  $fname = "${lang}/${conf}.xml";
  cache_time($fname);
  $config = loadFile($fname);

  $confFile="${lang}/${conf}.xml";
  if (!file_exists($confFile)) {
     errorPage("Resource not available");
  }
  $doc = new DOMDocument();
  $doc->load($confFile);
  
  $includes=$doc->getElementsByTagName("include");
  $recurse=0;

  while($includes->length>0) {
    if(++$recurse>MAX_RECURSE) {
      errorPage('Recursion limit exceeded', 500);
    }
    foreach ($includes as $include) {
	$src=$include->getAttribute("src");
	$subdoc = new DOMDocument();
	$subdoc->load("${lang}/${src}");
	$parent=$include->parentNode;
	$xml=getElementByTagName($subdoc,"xml");
	foreach($xml->childNodes as $child) {
		$text=$subdoc->saveXml($child);
		$clonedChild=$doc->importNode($child,true);
		$parent->insertBefore($clonedChild,$include);
	}
	$parent->removeChild($include);	
    }
    $includes=$doc->getElementsByTagName("include");
  }

  $head=getElementByTagName($doc,"head");
  $title=$head->getAttribute("title");

  if($title) {
    $values=$master->getElementsByTagName("param");
    foreach ($values as $value) {
      if ($value->getAttribute("type")=="input_config") {
        if ($value->getAttribute("id")=="title") {
          $tmp = new DOMDocument();
          $tmp->loadXml("<xml>${title}</xml>");
	  $parent=$value->parentNode;
	  $parent->removeChild($value);
	  $parent->appendChild(new DOMText($tmp->textContent));
        }
      }
    }
  }

  $css=getElementByTagName($head,"css");
  $css=$doc->saveXML($css);
  $css=preg_replace('/\s*<\/?\s*css\s*>\s*/s', '', $css);

  if($css) {
    $values=$master->getElementsByTagName("param");
    foreach ($values as $value) {
      if ($value->getAttribute("type")=="input_config") {
        if ($value->getAttribute("id")=="css") {
          $tmp = new DOMDocument();
          $tmp->loadXml("<xml>${css}</xml>");
	  $parent=$value->parentNode;
	  foreach($tmp->firstChild->childNodes as $node) {
		$clonedChild=$master->importNode($node,true);
		$parent->insertBefore($clonedChild,$value);
          }
	  $parent->removeChild($value);
        }
      }
    }
  }


  $body=getElementByTagName($doc,"body");
  $files=$body->getElementsByTagName("file");

  foreach ($files as $file) {
    $script=$file->getAttribute("script");
    if ($script) {
      $cacheable = false;
      $src="";
      $cwd=getcwd();
      
      $matches=array();
      preg_match('/(.*\/)/', $script, $matches);
      $dirname=$matches[0];
      preg_match('/([^\/]*)$/', $script, $matches);
      $filename=$matches[0];
      chdir("${lang}/${dirname}");
      $pipe=popen("php ${filename}","r");
      $file_content = stream_get_contents($pipe);
      chdir("${cwd}");
    }
    else {
      $src = $file->getAttribute("src");
      $fname = "${lang}/${src}";
      cache_time($fname);
      $file_content = loadFile($fname);
    }
    if(floatval($file_content)<0) {
      errorPage("Resource not found '${lang}/${src}'");
    }

    $filters=$file->getElementsByTagName("filter");
    foreach($filters as $filter) {
      $func=$filter->getAttribute("function");
      $params=$filter->getElementsByTagName("param");
      $callString="\$file_content=${func}(\$file_content";
      $param_values=array();
      $i=0;
      foreach ($filter->childNodes as $param) {
	if ($param->nodeType == XML_ELEMENT_NODE)
	  {
	    $param_value[$i]=getParam($param);
	    $callString.=",\$param_value[$i]";
	    $i++;
	  }
      }
      $callString.=");";
      eval($callString);
    }
    $out.= $file_content;
  }

  $doc = new DOMDocument();
  $doc->loadXml("<xml>${out}</xml>");
  
  return $doc;
}

$master = new DOMDocument();
$master->load("master.xml");

$params=$master->getElementsByTagName("param");
foreach ($params as $param) {
  if ($param->getAttribute("type") == "input") {
    $doc=getInput($master,$param);

    $parent=$param->parentNode;
    foreach ($doc->firstChild->childNodes as $child) {
      $clonedChild=$master->importNode($child,true);
      $parent->insertBefore($clonedChild,$param);
    }
    $parent->removeChild($param);	

  }
}

if (CACHING && $cacheable)
  print cache_check($newest);

print $master->saveXml($master);

?>