SimpleWebPresenter: index.php annotate

annotate index.php @ 20:ac24b41a12ad

Something strange got committed in last comit, correct commit.

author	Tom Fredrik "BFG" Klaussen <bfg@blenning.no>
date	Wed, 19 Sep 2012 15:51:33 +0200
parents	ee2c31392ea3
children	5dc5cc27471d

rev	line source
0 d2da64705bce Refactored everything in the CMS into this repos. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: diff changeset	1 <?php
6 6c0162497d56 Improved error reporting, and support for multilevel params. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 5 diff changeset	2 define(DEBUG,0);
7 350a8c63bd14 Support for recursive includes. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 6 diff changeset	3 define(MAX_RECURSE,50);
20 ac24b41a12ad Something strange got committed in last comit, correct commit. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 19 diff changeset	4 define(CACHING,1);
7 350a8c63bd14 Support for recursive includes. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 6 diff changeset	5
11 ba6f0818018b Made recursive input evaluation into a function. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 10 diff changeset	6 /*
ba6f0818018b Made recursive input evaluation into a function. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 10 diff changeset	7 var_dump($_SERVER);
ba6f0818018b Made recursive input evaluation into a function. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 10 diff changeset	8 exit;
ba6f0818018b Made recursive input evaluation into a function. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 10 diff changeset	9 */
7 350a8c63bd14 Support for recursive includes. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 6 diff changeset	10
6 6c0162497d56 Improved error reporting, and support for multilevel params. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 5 diff changeset	11 if (DEBUG) {
6c0162497d56 Improved error reporting, and support for multilevel params. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 5 diff changeset	12 error_reporting(E_ALL);
6c0162497d56 Improved error reporting, and support for multilevel params. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 5 diff changeset	13 ini_set("display_errors", 1);
6c0162497d56 Improved error reporting, and support for multilevel params. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 5 diff changeset	14 }
6c0162497d56 Improved error reporting, and support for multilevel params. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 5 diff changeset	15
14 91ee5f49907e Correct caching. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 8 diff changeset	16 $SCRIPT_FILENAME=$_SERVER['SCRIPT_FILENAME'];
91ee5f49907e Correct caching. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 8 diff changeset	17 $newest = filemtime($SCRIPT_FILENAME);
20 ac24b41a12ad Something strange got committed in last comit, correct commit. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 19 diff changeset	18 $cacheable = true;
6 6c0162497d56 Improved error reporting, and support for multilevel params. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 5 diff changeset	19
20 ac24b41a12ad Something strange got committed in last comit, correct commit. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 19 diff changeset	20 include 'php/cache_check.inc';
14 91ee5f49907e Correct caching. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 8 diff changeset	21 include_with_mtime('php/accept-language.inc');
91ee5f49907e Correct caching. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 8 diff changeset	22 include_with_mtime('php/filters.inc');
91ee5f49907e Correct caching. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 8 diff changeset	23 include_with_mtime('php/common-functions.inc');
0 d2da64705bce Refactored everything in the CMS into this repos. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: diff changeset	24
20 ac24b41a12ad Something strange got committed in last comit, correct commit. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 19 diff changeset	25 $URL_PARAMS=array('name','lang');
5 18aafb1a8986 Better handling of errors and globals. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 4 diff changeset	26
18aafb1a8986 Better handling of errors and globals. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 4 diff changeset	27 #Globals
0 d2da64705bce Refactored everything in the CMS into this repos. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: diff changeset	28 $name = $_GET['name'];
d2da64705bce Refactored everything in the CMS into this repos. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: diff changeset	29 $lang = $_GET['lang'];
d2da64705bce Refactored everything in the CMS into this repos. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: diff changeset	30
d2da64705bce Refactored everything in the CMS into this repos. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: diff changeset	31 if(!$name) {
d2da64705bce Refactored everything in the CMS into this repos. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: diff changeset	32 $name="home";
d2da64705bce Refactored everything in the CMS into this repos. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: diff changeset	33 }
5 18aafb1a8986 Better handling of errors and globals. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 4 diff changeset	34
0 d2da64705bce Refactored everything in the CMS into this repos. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: diff changeset	35 if(!$lang) {
d2da64705bce Refactored everything in the CMS into this repos. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: diff changeset	36 $lang="no";
d2da64705bce Refactored everything in the CMS into this repos. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: diff changeset	37 $langs=acceptedLanguages();
11 ba6f0818018b Made recursive input evaluation into a function. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 10 diff changeset	38 if ($langs) {
ba6f0818018b Made recursive input evaluation into a function. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 10 diff changeset	39 foreach ($langs as $l => $val) {
ba6f0818018b Made recursive input evaluation into a function. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 10 diff changeset	40 if (file_exists($l)) {
ba6f0818018b Made recursive input evaluation into a function. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 10 diff changeset	41 $lang=$l;
ba6f0818018b Made recursive input evaluation into a function. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 10 diff changeset	42 break;
ba6f0818018b Made recursive input evaluation into a function. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 10 diff changeset	43 }
0 d2da64705bce Refactored everything in the CMS into this repos. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: diff changeset	44 }
d2da64705bce Refactored everything in the CMS into this repos. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: diff changeset	45 }
d2da64705bce Refactored everything in the CMS into this repos. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: diff changeset	46 }
d2da64705bce Refactored everything in the CMS into this repos. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: diff changeset	47
6 6c0162497d56 Improved error reporting, and support for multilevel params. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 5 diff changeset	48 function getParam($param) {
6c0162497d56 Improved error reporting, and support for multilevel params. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 5 diff changeset	49 $param_type=$param->getAttribute("type");
6c0162497d56 Improved error reporting, and support for multilevel params. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 5 diff changeset	50 $param_value;
6c0162497d56 Improved error reporting, and support for multilevel params. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 5 diff changeset	51 if (!$param_type)
6c0162497d56 Improved error reporting, and support for multilevel params. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 5 diff changeset	52 $param_type="scalar";
6c0162497d56 Improved error reporting, and support for multilevel params. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 5 diff changeset	53
6c0162497d56 Improved error reporting, and support for multilevel params. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 5 diff changeset	54 if($param_type == "scalar") {
6c0162497d56 Improved error reporting, and support for multilevel params. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 5 diff changeset	55 $param_subst=$param->getAttribute("subst");
6c0162497d56 Improved error reporting, and support for multilevel params. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 5 diff changeset	56 $param_value=$param->getAttribute("value");
6c0162497d56 Improved error reporting, and support for multilevel params. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 5 diff changeset	57 if ($param_subst) {
6c0162497d56 Improved error reporting, and support for multilevel params. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 5 diff changeset	58 /*
6c0162497d56 Improved error reporting, and support for multilevel params. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 5 diff changeset	59 $param_value=preg_replace("/name/", $name, $param_subst);
6c0162497d56 Improved error reporting, and support for multilevel params. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 5 diff changeset	60 $param_value=preg_replace('/lang/', $lang, $param_value);
6c0162497d56 Improved error reporting, and support for multilevel params. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 5 diff changeset	61 */
6c0162497d56 Improved error reporting, and support for multilevel params. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 5 diff changeset	62 }
6c0162497d56 Improved error reporting, and support for multilevel params. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 5 diff changeset	63 }
6c0162497d56 Improved error reporting, and support for multilevel params. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 5 diff changeset	64 elseif($param_type == "array") {
6c0162497d56 Improved error reporting, and support for multilevel params. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 5 diff changeset	65 $params=$param->getElementsByTagName("param");
6c0162497d56 Improved error reporting, and support for multilevel params. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 5 diff changeset	66 $param_value=array();
6c0162497d56 Improved error reporting, and support for multilevel params. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 5 diff changeset	67 foreach ($param->childNodes as $param) {
6c0162497d56 Improved error reporting, and support for multilevel params. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 5 diff changeset	68 if ($param->nodeType == XML_ELEMENT_NODE)
6c0162497d56 Improved error reporting, and support for multilevel params. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 5 diff changeset	69 {
6c0162497d56 Improved error reporting, and support for multilevel params. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 5 diff changeset	70 array_push($param_value, getParam($param));
6c0162497d56 Improved error reporting, and support for multilevel params. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 5 diff changeset	71 }
6c0162497d56 Improved error reporting, and support for multilevel params. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 5 diff changeset	72 }
6c0162497d56 Improved error reporting, and support for multilevel params. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 5 diff changeset	73 }
6c0162497d56 Improved error reporting, and support for multilevel params. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 5 diff changeset	74 return $param_value;
6c0162497d56 Improved error reporting, and support for multilevel params. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 5 diff changeset	75 }
6c0162497d56 Improved error reporting, and support for multilevel params. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 5 diff changeset	76
11 ba6f0818018b Made recursive input evaluation into a function. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 10 diff changeset	77 function getInput($master, $param) {
ba6f0818018b Made recursive input evaluation into a function. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 10 diff changeset	78 $out='';
ba6f0818018b Made recursive input evaluation into a function. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 10 diff changeset	79
ba6f0818018b Made recursive input evaluation into a function. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 10 diff changeset	80 $lang=$GLOBALS['lang'];
ba6f0818018b Made recursive input evaluation into a function. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 10 diff changeset	81 $name=$param->getAttribute("id");
ba6f0818018b Made recursive input evaluation into a function. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 10 diff changeset	82 $conf=$_GET[$name];
ba6f0818018b Made recursive input evaluation into a function. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 10 diff changeset	83 $GLOBALS[$name]=$conf;
ba6f0818018b Made recursive input evaluation into a function. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 10 diff changeset	84 if (!$conf)
ba6f0818018b Made recursive input evaluation into a function. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 10 diff changeset	85 $conf=$param->getAttribute("default");
20 ac24b41a12ad Something strange got committed in last comit, correct commit. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 19 diff changeset	86
ac24b41a12ad Something strange got committed in last comit, correct commit. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 19 diff changeset	87 $fname = "${lang}/${conf}.xml";
ac24b41a12ad Something strange got committed in last comit, correct commit. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 19 diff changeset	88 cache_time($fname);
ac24b41a12ad Something strange got committed in last comit, correct commit. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 19 diff changeset	89 $config = loadFile($fname);
11 ba6f0818018b Made recursive input evaluation into a function. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 10 diff changeset	90
ba6f0818018b Made recursive input evaluation into a function. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 10 diff changeset	91 $confFile="${lang}/${conf}.xml";
ba6f0818018b Made recursive input evaluation into a function. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 10 diff changeset	92 if (!file_exists($confFile)) {
ba6f0818018b Made recursive input evaluation into a function. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 10 diff changeset	93 errorPage("Resource not available");
ba6f0818018b Made recursive input evaluation into a function. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 10 diff changeset	94 }
ba6f0818018b Made recursive input evaluation into a function. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 10 diff changeset	95 $doc = new DOMDocument();
ba6f0818018b Made recursive input evaluation into a function. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 10 diff changeset	96 $doc->load($confFile);
ba6f0818018b Made recursive input evaluation into a function. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 10 diff changeset	97
ba6f0818018b Made recursive input evaluation into a function. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 10 diff changeset	98 $includes=$doc->getElementsByTagName("include");
ba6f0818018b Made recursive input evaluation into a function. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 10 diff changeset	99 $recurse=0;
ba6f0818018b Made recursive input evaluation into a function. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 10 diff changeset	100
ba6f0818018b Made recursive input evaluation into a function. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 10 diff changeset	101 while($includes->length>0) {
ba6f0818018b Made recursive input evaluation into a function. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 10 diff changeset	102 if(++$recurse>MAX_RECURSE) {
ba6f0818018b Made recursive input evaluation into a function. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 10 diff changeset	103 errorPage('Recursion limit exceeded', 500);
ba6f0818018b Made recursive input evaluation into a function. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 10 diff changeset	104 }
ba6f0818018b Made recursive input evaluation into a function. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 10 diff changeset	105 foreach ($includes as $include) {
ba6f0818018b Made recursive input evaluation into a function. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 10 diff changeset	106 $src=$include->getAttribute("src");
ba6f0818018b Made recursive input evaluation into a function. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 10 diff changeset	107 $subdoc = new DOMDocument();
ba6f0818018b Made recursive input evaluation into a function. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 10 diff changeset	108 $subdoc->load("${lang}/${src}");
ba6f0818018b Made recursive input evaluation into a function. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 10 diff changeset	109 $parent=$include->parentNode;
ba6f0818018b Made recursive input evaluation into a function. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 10 diff changeset	110 $xml=getElementByTagName($subdoc,"xml");
ba6f0818018b Made recursive input evaluation into a function. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 10 diff changeset	111 foreach($xml->childNodes as $child) {
ba6f0818018b Made recursive input evaluation into a function. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 10 diff changeset	112 $text=$subdoc->saveXml($child);
ba6f0818018b Made recursive input evaluation into a function. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 10 diff changeset	113 $clonedChild=$doc->importNode($child,true);
ba6f0818018b Made recursive input evaluation into a function. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 10 diff changeset	114 $parent->insertBefore($clonedChild,$include);
ba6f0818018b Made recursive input evaluation into a function. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 10 diff changeset	115 }
ba6f0818018b Made recursive input evaluation into a function. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 10 diff changeset	116 $parent->removeChild($include);
ba6f0818018b Made recursive input evaluation into a function. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 10 diff changeset	117 }
ba6f0818018b Made recursive input evaluation into a function. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 10 diff changeset	118 $includes=$doc->getElementsByTagName("include");
ba6f0818018b Made recursive input evaluation into a function. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 10 diff changeset	119 }
ba6f0818018b Made recursive input evaluation into a function. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 10 diff changeset	120
ba6f0818018b Made recursive input evaluation into a function. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 10 diff changeset	121 $head=getElementByTagName($doc,"head");
ba6f0818018b Made recursive input evaluation into a function. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 10 diff changeset	122 $title=$head->getAttribute("title");
ba6f0818018b Made recursive input evaluation into a function. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 10 diff changeset	123
ba6f0818018b Made recursive input evaluation into a function. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 10 diff changeset	124 if($title) {
ba6f0818018b Made recursive input evaluation into a function. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 10 diff changeset	125 $values=$master->getElementsByTagName("param");
ba6f0818018b Made recursive input evaluation into a function. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 10 diff changeset	126 foreach ($values as $value) {
ba6f0818018b Made recursive input evaluation into a function. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 10 diff changeset	127 if ($value->getAttribute("type")=="input_config") {
ba6f0818018b Made recursive input evaluation into a function. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 10 diff changeset	128 if ($value->getAttribute("id")=="title") {
ba6f0818018b Made recursive input evaluation into a function. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 10 diff changeset	129 $tmp = new DOMDocument();
ba6f0818018b Made recursive input evaluation into a function. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 10 diff changeset	130 $tmp->loadXml("<xml>${title}</xml>");
ba6f0818018b Made recursive input evaluation into a function. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 10 diff changeset	131 $parent=$value->parentNode;
ba6f0818018b Made recursive input evaluation into a function. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 10 diff changeset	132 $parent->removeChild($value);
ba6f0818018b Made recursive input evaluation into a function. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 10 diff changeset	133 $parent->appendChild(new DOMText($tmp->textContent));
ba6f0818018b Made recursive input evaluation into a function. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 10 diff changeset	134 }
ba6f0818018b Made recursive input evaluation into a function. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 10 diff changeset	135 }
ba6f0818018b Made recursive input evaluation into a function. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 10 diff changeset	136 }
ba6f0818018b Made recursive input evaluation into a function. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 10 diff changeset	137 }
ba6f0818018b Made recursive input evaluation into a function. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 10 diff changeset	138
ba6f0818018b Made recursive input evaluation into a function. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 10 diff changeset	139 $css=getElementByTagName($head,"css");
ba6f0818018b Made recursive input evaluation into a function. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 10 diff changeset	140 $css=$doc->saveXML($css);
ba6f0818018b Made recursive input evaluation into a function. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 10 diff changeset	141 $css=preg_replace('/\s<\/?\scss\s>\s/s', '', $css);
ba6f0818018b Made recursive input evaluation into a function. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 10 diff changeset	142
ba6f0818018b Made recursive input evaluation into a function. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 10 diff changeset	143 if($css) {
ba6f0818018b Made recursive input evaluation into a function. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 10 diff changeset	144 $values=$master->getElementsByTagName("param");
ba6f0818018b Made recursive input evaluation into a function. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 10 diff changeset	145 foreach ($values as $value) {
ba6f0818018b Made recursive input evaluation into a function. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 10 diff changeset	146 if ($value->getAttribute("type")=="input_config") {
ba6f0818018b Made recursive input evaluation into a function. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 10 diff changeset	147 if ($value->getAttribute("id")=="css") {
ba6f0818018b Made recursive input evaluation into a function. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 10 diff changeset	148 $tmp = new DOMDocument();
ba6f0818018b Made recursive input evaluation into a function. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 10 diff changeset	149 $tmp->loadXml("<xml>${css}</xml>");
ba6f0818018b Made recursive input evaluation into a function. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 10 diff changeset	150 $parent=$value->parentNode;
ba6f0818018b Made recursive input evaluation into a function. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 10 diff changeset	151 foreach($tmp->firstChild->childNodes as $node) {
ba6f0818018b Made recursive input evaluation into a function. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 10 diff changeset	152 $clonedChild=$master->importNode($node,true);
ba6f0818018b Made recursive input evaluation into a function. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 10 diff changeset	153 $parent->insertBefore($clonedChild,$value);
ba6f0818018b Made recursive input evaluation into a function. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 10 diff changeset	154 }
ba6f0818018b Made recursive input evaluation into a function. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 10 diff changeset	155 $parent->removeChild($value);
ba6f0818018b Made recursive input evaluation into a function. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 10 diff changeset	156 }
ba6f0818018b Made recursive input evaluation into a function. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 10 diff changeset	157 }
ba6f0818018b Made recursive input evaluation into a function. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 10 diff changeset	158 }
ba6f0818018b Made recursive input evaluation into a function. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 10 diff changeset	159 }
ba6f0818018b Made recursive input evaluation into a function. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 10 diff changeset	160
ba6f0818018b Made recursive input evaluation into a function. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 10 diff changeset	161
ba6f0818018b Made recursive input evaluation into a function. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 10 diff changeset	162 $body=getElementByTagName($doc,"body");
ba6f0818018b Made recursive input evaluation into a function. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 10 diff changeset	163 $files=$body->getElementsByTagName("file");
ba6f0818018b Made recursive input evaluation into a function. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 10 diff changeset	164
20 ac24b41a12ad Something strange got committed in last comit, correct commit. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 19 diff changeset	165 foreach ($files as $file) {
ac24b41a12ad Something strange got committed in last comit, correct commit. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 19 diff changeset	166 $script=$file->getAttribute("script");
ac24b41a12ad Something strange got committed in last comit, correct commit. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 19 diff changeset	167 if ($script) {
ac24b41a12ad Something strange got committed in last comit, correct commit. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 19 diff changeset	168 $cacheable = false;
ac24b41a12ad Something strange got committed in last comit, correct commit. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 19 diff changeset	169 $src="";
ac24b41a12ad Something strange got committed in last comit, correct commit. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 19 diff changeset	170 $cwd=getcwd();
ac24b41a12ad Something strange got committed in last comit, correct commit. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 19 diff changeset	171
ac24b41a12ad Something strange got committed in last comit, correct commit. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 19 diff changeset	172 $matches=array();
ac24b41a12ad Something strange got committed in last comit, correct commit. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 19 diff changeset	173 preg_match('/(.*\/)/', $script, $matches);
ac24b41a12ad Something strange got committed in last comit, correct commit. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 19 diff changeset	174 $dirname=$matches[0];
ac24b41a12ad Something strange got committed in last comit, correct commit. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 19 diff changeset	175 preg_match('/([^\/]*)$/', $script, $matches);
ac24b41a12ad Something strange got committed in last comit, correct commit. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 19 diff changeset	176 $filename=$matches[0];
ac24b41a12ad Something strange got committed in last comit, correct commit. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 19 diff changeset	177 chdir("${lang}/${dirname}");
ac24b41a12ad Something strange got committed in last comit, correct commit. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 19 diff changeset	178 $pipe=popen("php ${filename}","r");
ac24b41a12ad Something strange got committed in last comit, correct commit. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 19 diff changeset	179 $file_content = stream_get_contents($pipe);
ac24b41a12ad Something strange got committed in last comit, correct commit. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 19 diff changeset	180 chdir("${cwd}");
16 a64e8f968e7e Fast abort if cachehit. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 14 diff changeset	181 }
20 ac24b41a12ad Something strange got committed in last comit, correct commit. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 19 diff changeset	182 else {
ac24b41a12ad Something strange got committed in last comit, correct commit. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 19 diff changeset	183 $src = $file->getAttribute("src");
ac24b41a12ad Something strange got committed in last comit, correct commit. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 19 diff changeset	184 $fname = "${lang}/${src}";
ac24b41a12ad Something strange got committed in last comit, correct commit. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 19 diff changeset	185 cache_time($fname);
ac24b41a12ad Something strange got committed in last comit, correct commit. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 19 diff changeset	186 $file_content = loadFile($fname);
ac24b41a12ad Something strange got committed in last comit, correct commit. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 19 diff changeset	187 }
ac24b41a12ad Something strange got committed in last comit, correct commit. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 19 diff changeset	188 if(floatval($file_content)<0) {
ac24b41a12ad Something strange got committed in last comit, correct commit. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 19 diff changeset	189 errorPage("Resource not found '${lang}/${src}'");
ac24b41a12ad Something strange got committed in last comit, correct commit. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 19 diff changeset	190 }
8 19dfa6f3e2be Support for scripts. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 7 diff changeset	191
20 ac24b41a12ad Something strange got committed in last comit, correct commit. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 19 diff changeset	192 $filters=$file->getElementsByTagName("filter");
ac24b41a12ad Something strange got committed in last comit, correct commit. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 19 diff changeset	193 foreach($filters as $filter) {
ac24b41a12ad Something strange got committed in last comit, correct commit. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 19 diff changeset	194 $func=$filter->getAttribute("function");
ac24b41a12ad Something strange got committed in last comit, correct commit. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 19 diff changeset	195 $params=$filter->getElementsByTagName("param");
ac24b41a12ad Something strange got committed in last comit, correct commit. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 19 diff changeset	196 $callString="\$file_content=${func}(\$file_content";
ac24b41a12ad Something strange got committed in last comit, correct commit. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 19 diff changeset	197 $param_values=array();
ac24b41a12ad Something strange got committed in last comit, correct commit. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 19 diff changeset	198 $i=0;
ac24b41a12ad Something strange got committed in last comit, correct commit. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 19 diff changeset	199 foreach ($filter->childNodes as $param) {
ac24b41a12ad Something strange got committed in last comit, correct commit. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 19 diff changeset	200 if ($param->nodeType == XML_ELEMENT_NODE)
ac24b41a12ad Something strange got committed in last comit, correct commit. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 19 diff changeset	201 {
ac24b41a12ad Something strange got committed in last comit, correct commit. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 19 diff changeset	202 $param_value[$i]=getParam($param);
ac24b41a12ad Something strange got committed in last comit, correct commit. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 19 diff changeset	203 $callString.=",\$param_value[$i]";
ac24b41a12ad Something strange got committed in last comit, correct commit. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 19 diff changeset	204 $i++;
ac24b41a12ad Something strange got committed in last comit, correct commit. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 19 diff changeset	205 }
ac24b41a12ad Something strange got committed in last comit, correct commit. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 19 diff changeset	206 }
ac24b41a12ad Something strange got committed in last comit, correct commit. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 19 diff changeset	207 $callString.=");";
ac24b41a12ad Something strange got committed in last comit, correct commit. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 19 diff changeset	208 eval($callString);
ac24b41a12ad Something strange got committed in last comit, correct commit. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 19 diff changeset	209 }
ac24b41a12ad Something strange got committed in last comit, correct commit. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 19 diff changeset	210 $out.= $file_content;
ac24b41a12ad Something strange got committed in last comit, correct commit. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 19 diff changeset	211 }
5 18aafb1a8986 Better handling of errors and globals. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 4 diff changeset	212
11 ba6f0818018b Made recursive input evaluation into a function. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 10 diff changeset	213 $doc = new DOMDocument();
ba6f0818018b Made recursive input evaluation into a function. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 10 diff changeset	214 $doc->loadXml("<xml>${out}</xml>");
20 ac24b41a12ad Something strange got committed in last comit, correct commit. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 19 diff changeset	215
11 ba6f0818018b Made recursive input evaluation into a function. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 10 diff changeset	216 return $doc;
ba6f0818018b Made recursive input evaluation into a function. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 10 diff changeset	217 }
ba6f0818018b Made recursive input evaluation into a function. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 10 diff changeset	218
ba6f0818018b Made recursive input evaluation into a function. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 10 diff changeset	219 $master = new DOMDocument();
ba6f0818018b Made recursive input evaluation into a function. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 10 diff changeset	220 $master->load("master.xml");
ba6f0818018b Made recursive input evaluation into a function. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 10 diff changeset	221
ba6f0818018b Made recursive input evaluation into a function. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 10 diff changeset	222 $params=$master->getElementsByTagName("param");
ba6f0818018b Made recursive input evaluation into a function. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 10 diff changeset	223 foreach ($params as $param) {
ba6f0818018b Made recursive input evaluation into a function. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 10 diff changeset	224 if ($param->getAttribute("type") == "input") {
ba6f0818018b Made recursive input evaluation into a function. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 10 diff changeset	225 $doc=getInput($master,$param);
5 18aafb1a8986 Better handling of errors and globals. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 4 diff changeset	226
11 ba6f0818018b Made recursive input evaluation into a function. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 10 diff changeset	227 $parent=$param->parentNode;
ba6f0818018b Made recursive input evaluation into a function. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 10 diff changeset	228 foreach ($doc->firstChild->childNodes as $child) {
ba6f0818018b Made recursive input evaluation into a function. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 10 diff changeset	229 $clonedChild=$master->importNode($child,true);
ba6f0818018b Made recursive input evaluation into a function. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 10 diff changeset	230 $parent->insertBefore($clonedChild,$param);
ba6f0818018b Made recursive input evaluation into a function. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 10 diff changeset	231 }
ba6f0818018b Made recursive input evaluation into a function. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 10 diff changeset	232 $parent->removeChild($param);
ba6f0818018b Made recursive input evaluation into a function. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 10 diff changeset	233
ba6f0818018b Made recursive input evaluation into a function. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 10 diff changeset	234 }
ba6f0818018b Made recursive input evaluation into a function. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 10 diff changeset	235 }
ba6f0818018b Made recursive input evaluation into a function. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 10 diff changeset	236
20 ac24b41a12ad Something strange got committed in last comit, correct commit. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 19 diff changeset	237 if (CACHING && $cacheable)
ac24b41a12ad Something strange got committed in last comit, correct commit. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 19 diff changeset	238 print cache_check($newest);
ac24b41a12ad Something strange got committed in last comit, correct commit. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 19 diff changeset	239
11 ba6f0818018b Made recursive input evaluation into a function. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 10 diff changeset	240 print $master->saveXml($master);
ba6f0818018b Made recursive input evaluation into a function. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 10 diff changeset	241
5 18aafb1a8986 Better handling of errors and globals. Tom Fredrik "BFG" Klaussen <bfg@blenning.no> parents: 4 diff changeset	242 ?>

Mercurial > SimpleWebPresenter

annotate index.php @ 20:ac24b41a12ad