<? 
ini_set("session.gc_maxlifetime", 7200); //Sesion de 2 horas
date_default_timezone_set("Europe/Madrid");

//mode	= view	- ver la web
//		= devel	- igual pero al final muestra las variables definidas
//		= logic	- cuando ejecutamos logica de negocio, "url" indica la siguiente url a mostrar y "logic" la entrada de logic- a buscar en config.ini para ejecutar
//		= admin	- para administrar los contenidos

$protocol = $_SERVER['REQUEST_SCHEME'] . '://';

include "librerias.php";

//  1 - Set args variables

// 1.1 - corp: es el nombre/identificador de la web de la empresa - debe coincidir con el dominio de la empresa
if ($HTTP_SERVER_VARS['HTTP_HOST']=="") $HTTP_SERVER_VARS=&$_SERVER;  //Por compatibilidad - esa variables es obsoleta en php 5.1
if ( $_GET["corp"] <> "" )    $VARS["arg"]["corp"] = $_GET["corp"];
else {
  $tmp = explode(".",$HTTP_SERVER_VARS['HTTP_HOST']);
  if( strpos($HTTP_SERVER_VARS['HTTP_HOST'],"www") === FALSE ) 
           $VARS["arg"]["corp"] = $tmp[0];
  else
           $VARS["arg"]["corp"] = $tmp[1];
}  
//$VARS["arg"]["corp"] = str_replace("ñ","n",strtolower($VARS["arg"]["corp"])); //Para los dominios con ñ la carpeta se pasa a n
// Get config file
if (file_exists("corps/".$VARS["arg"]["corp"]."/config.ini")) {
  $CONF	  = parse_ini_file("corps/".$VARS["arg"]["corp"]."/config.ini",true);
} else {
  header("HTTP/1.0 404 Not Found");
  exit;
}
$CONF_TMP = parse_ini_file("config.ini",true);
foreach ($CONF_TMP as $key => $valor) {
  if (! isset ($CONF[$key]) ) {
    $CONF[$key] = $valor;
  }
}
unset($CONF_TMP);
// Para la gestion de los productos leo los config file
if (file_exists("corps/".$VARS["arg"]["corp"]."/products")) {
  $tmp_handle = opendir("corps/".$VARS["arg"]["corp"]."/products");
  while (false !== ($file = readdir($tmp_handle))) {
    if ( ($file <> ".") && ($file <> "..") ) {
	  $CONF["prod"][$file]	  = parse_ini_file("corps/".$VARS["arg"]["corp"]."/products/".$file."/config.ini",true);
	}  
  }
} 

//Sesion
session_name($VARS["arg"]["corp"]);
session_cache_limiter("must-revalidate"); //Para que me mantenga los $_POST con el boton de back
session_start();
//if (SID == "") 	$VARS['sid'] ="";
//else			$VARS['sid'] =SID."&amp;";
$VARS['sid'] = "";

//Para los path de las urls amigables
//print_r($_SERVER);
if ($_SERVER["SCRIPT_FILENAME"]<>$_SERVER["DOCUMENT_ROOT"]."/index.php") {
  $tmp_sf_path = explode("/",$_SERVER["SCRIPT_FILENAME"]);
  $VARS["product_name"] = "/".$tmp_sf_path[count($tmp_sf_path)-2];
} 
$tmp_zhtm = "";
if (strpos($_SERVER["REDIRECT_URL"],".zhtm") !== FALSE)		$tmp_zhtm = $_SERVER["REDIRECT_URL"];
elseif (strpos($_SERVER["SCRIPT_NAME"],".zhtm") !== FALSE)	$tmp_zhtm = $_SERVER["SCRIPT_NAME"];
if ($tmp_zhtm <> "") {
  $tmp_zhtm_path = explode("/",$tmp_zhtm);
  $tmp_lang = $tmp_zhtm_path[1+($VARS["product_name"]<>''?1:0)];
  $tmp_url  = str_replace(".zhtm","",$tmp_zhtm_path[2+($VARS["product_name"]<>''?1:0)]);
  //Para las tiendas con urls amigables - INICIO
  $tmp_i = 3;
  while ($tmp_i+1 <= count($tmp_zhtm_path)) {
    $VARS["arg"]["url_cat"][$tmp_i-3]  = str_replace(".zhtm","",$tmp_zhtm_path[$tmp_i+($VARS["product_name"]<>''?1:0)]); 
	$tmp_i++;
  }	
  //echo "<pre>";print_r($VARS["arg"]["url_cat"]);echo "</pre>";
  //Para las tiendas con urls amigables - FIN
}

// 1.2 - lang: es el idioma
if ( $_GET["lang"] <> "" )	$VARS["arg"]["lang"] = $_GET["lang"];
elseif ( $tmp_lang <> "" )	$VARS["arg"]["lang"] = $tmp_lang;
else						$VARS["arg"]["lang"] = $CONF["langs"][0]; 
 
// 1.3 - mode: es el modo de pintar la página
// "mode" puede ser: normal, ascii, admin, print
if ( $_GET["mode"] <> "" )	$VARS["arg"]["mode"] = $_GET["mode"];
else						$VARS["arg"]["mode"] = "view";

// 1.4 - resto de args para modulos
foreach ($_GET as $key => $valor) {
  $tmp_index = substr($key,4,strlen($key));
  if (strpos($key,"arg_")===0) $VARS["arg"]["arg"][$tmp_index] = $valor;
}

// 2 - Set global variables
//$VARS["product_name"]		= substr($_SERVER["SCRIPT_NAME"],0,strrpos($_SERVER["SCRIPT_NAME"],"/"));
$VARS["global"]["path"]		= $_SERVER["DOCUMENT_ROOT"].$VARS["product_name"]."/path/";
$VARS["global"]["path_mod"]	= $VARS["global"]["path"] . "modules/";
$VARS["global"]["path_lay"]	= $VARS["global"]["path"] . "layout/";
$VARS["global"]["path_menu"]= $VARS["global"]["path"] . "menu/";
$VARS["global"]["url"]		= $VARS["product_name"]."/url/";
$VARS["global"]["url_img"]	= $VARS["global"]["url"] . "img/";
$VARS["global"]["url_css"]	= $VARS["global"]["url"] . "css/";
$VARS["global"]["url_js"]	= $VARS["global"]["url"] . "js/";
$VARS["global"]["url_swf"]	= $VARS["global"]["url"] . "swf/";

// 3 - Set local variables
$VARS["local"]["path"]		= $_SERVER["DOCUMENT_ROOT"].$VARS["product_name"]."/corps/".$VARS["arg"]["corp"]."/path/";
$VARS["local"]["path_mod"]	= $VARS["local"]["path"] . "modules/";
$VARS["local"]["path_lay"]	= $VARS["local"]["path"] . "layout/";
$VARS["local"]["path_menu"]	= $VARS["local"]["path"] . "menu/";
$VARS["local"]["path_data"]	= $_SERVER["DOCUMENT_ROOT"].$VARS["product_name"]."/corps/".$VARS["arg"]["corp"]."/data/";
$VARS["local"]["url"]		= $VARS["product_name"]."/corps/".$VARS["arg"]["corp"]."/url/";
$VARS["local"]["url_img"]	= $VARS["local"]["url"] . "img/";
$VARS["local"]["url_css"]	= $VARS["local"]["url"] . "css/";
$VARS["local"]["url_js"]	= $VARS["local"]["url"] . "js/";
$VARS["local"]["url_swf"]	= $VARS["local"]["url"] . "swf/";
$VARS["local"]["url_res"]	= $VARS["product_name"]."/corps/".$VARS["arg"]["corp"]."/data/resources/";

// 4 - Leo las claves
include "corps/".$VARS["arg"]["corp"]."/db.php";

//5- Get DB
include "MySQLClass.php";
$db = new MySQLClass();  

//6 - Get $CONF["menu"] y $CONF["menu_texto"] y $CONF["menu_prod"]
include $VARS["global"]["path_menu"]."get_menu.php";

// 1.5 - url: es el nombre/identificador de la página a mostrar
if ( $_GET["url"] <> "" ) $tmp_url = url_amigable_chars(urldecode($_GET["url"]));
if ( $tmp_url <> "" )	{
  if (is_numeric($tmp_url)) {
    $VARS["arg"]["url"] = $tmp_url;
  } else {
    foreach ($CONF["menu_texto"] as $key => $valor) {
	  if ( urlencode($tmp_url) == $valor ) {
	    $VARS["arg"]["url"] = $key;
		break 1;
	  }
	}
	if ($VARS["arg"]["url"] == "") $VARS["arg"]["url"] = $tmp_url;
  }  
} else	$VARS["arg"]["url"] = $CONF["url"]; 

//Compruebo si la url pertenece a un producto, o se administan permisos de una pagina de producto y cargo su CONFIG
if ( (is_numeric($VARS["arg"]["url"]) && strlen($VARS["arg"]["url"])>5) || ( ($VARS["arg"]["url"]=="admin_wapa_permisos_pagina") && (strlen($_GET["id_menu"])>5) ) ) {
  if ($VARS["arg"]["url"]=="admin_wapa_permisos_pagina") 	$tmp_id_url=$_GET["id_menu"];
  else														$tmp_id_url=$VARS["arg"]["url"];
  
  if (isset($CONF["menu_prod"][substr($tmp_id_url,0,-5)])) {
    $tmp_txt_prod = $CONF["menu_prod"][substr($tmp_id_url,0,-5)];
    foreach ($CONF["prod"][$tmp_txt_prod] as $key => $valor) {
      if ( preg_match("/^view-([0-9]+)(_[0-9]+)*$/",$key,$matches) ) {
	    $key = "view-".substr($tmp_id_url,0,-5).completa_ceros($matches[1]).$matches[2];
	    $CONF[$key] = $valor;
	  } elseif ($key=="url_logout") {
  	    $CONF[$key]=substr($tmp_id_url,0,-5).completa_ceros($valor);
	  } elseif ($key=="css") {
	    foreach ($valor as $key2 => $valor2) {
	      $CONF["css"][substr($tmp_id_url,0,-5).$key2]=$valor2;
	    }
	  } elseif ($key=="js") {
	    foreach ($valor as $key2 => $valor2) {
	      $CONF["js"][substr($tmp_id_url,0,-5).$key2]=$valor2;
	    }
	  } elseif ($key=="body") {
	    foreach ($valor as $key2 => $valor2) {
	      $CONF["body"][substr($tmp_id_url,0,-5).$key2]=$valor2;
	    }  
	  } elseif ($key=="layout_ruta") {
	    foreach ($valor as $key2 => $valor2) {
  	      $CONF["layout_ruta"][substr($tmp_id_url,0,-5).completa_ceros($key2)] = $valor2;
	    }	
	  } elseif ($key=="layout_url") {
	    foreach ($valor as $key2 => $valor2) {
	      if (is_numeric($key2)) $key2 = substr($tmp_id_url,0,-5).completa_ceros($key2);
  	      $CONF["layout_url"][$key2] = $valor2;
	    }	  
	  } elseif ($key=="Lheader_url") {
	    foreach ($valor as $key2 => $valor2) {
	      if (is_numeric($key2)) $key2 = substr($tmp_id_url,0,-5).completa_ceros($key2);
  	      $CONF["Lheader_url"][$key2] = $valor2;
	    }	    
	  } elseif ($key=="view-admin_menu_lista") {
	    $CONF[$key] = $CONF[$key]; //No se machaca
	  } else {
	    $CONF[$key] = $valor;
	  }
    }
  }	
  
  //Set local_prod variables
  $VARS["local_prod"]["path"]		= $_SERVER["DOCUMENT_ROOT"].$VARS["product_name"]."/corps/".$VARS["arg"]["corp"]."/products/".$tmp_txt_prod."/path/";
  $VARS["local_prod"]["path_mod"]	= $VARS["local_prod"]["path"] . "modules/";
  $VARS["local_prod"]["path_lay"]	= $VARS["local_prod"]["path"] . "layout/";
  $VARS["local_prod"]["path_menu"]	= $VARS["local_prod"]["path"] . "menu/";
  $VARS["local_prod"]["path_data"]	= $_SERVER["DOCUMENT_ROOT"].$VARS["product_name"]."/corps/".$VARS["arg"]["corp"]."/products/".$tmp_txt_prod."/data/";
  $VARS["local_prod"]["url"]		= $VARS["product_name"]."/corps/".$VARS["arg"]["corp"]."/products/".$tmp_txt_prod."/url/";
  $VARS["local_prod"]["url_img"]	= $VARS["local_prod"]["url"] . "img/";
  $VARS["local_prod"]["url_css"]	= $VARS["local_prod"]["url"] . "css/";
  $VARS["local_prod"]["url_js"]		= $VARS["local_prod"]["url"] . "js/";
  $VARS["local_prod"]["url_swf"]	= $VARS["local_prod"]["url"] . "swf/";
  //Leo los textos del producto
  if (file_exists($VARS["local_prod"]["path_data"].$VARS["arg"]["lang"]."/textos.ini")) {
    $CONF["textos"]	= parse_ini_file($VARS["local_prod"]["path_data"].$VARS["arg"]["lang"]."/textos.ini",true);
  }	
}

//Compruebo que la url es correcta
if (($VARS["arg"]["mode"]<>"admin")&&(!is_numeric($VARS["arg"]["url"]))&&(!tiene_modulo(str_replace("/","\/",$VARS["arg"]["url"])))&&($VARS["arg"]["url"]<>"wapa_login")&&($_GET["logic"]<>"wapa_exportar_list")) {
  header("HTTP/1.0 404 Not Found");
  exit;
}

//Manntener en sesion $_POST y recuperarlos de sesión si esa corp lo tiene habilitado
if ($CONF["keep_post"]=="1") {
  if (count($_POST)>0) {
    $_SESSION["POST"]=$_POST; 
    $_SESSION["POST_URL"]=$VARS["arg"]["url"]; 
  } else {
    if ($_SESSION["POST_URL"]==$VARS["arg"]["url"]) $_POST=$_SESSION["POST"];
    else {
	  $_SESSION["POST"]="";
	  $_SESSION["POST_URL"]="";
	}  
  }
}  


//7 - Get $CONF["menu_ruta"]
include $VARS["global"]["path_menu"]."get_ruta.php";

// 8.1 - Set url_home
foreach($CONF["langs"] as $value) {
  $VARS["url_home"][$value] = url_home($value);
}  

//8.2 Set url_mode
foreach(array("logic","view","admin","devel") as $value) {
  $VARS["url_mode"][$value] = url_mode($value);
}

//9 - Set date variables
$VARS["date"]["day"]		= date('j');
$VARS["date"]["month"]		= date('n');
$VARS["date"]["year"]		= date('Y');

// 10 - estadisticas
if (($CONF["stats"]) &&($VARS["arg"]["mode"] == "view") && ($VARS["arg"]["url"] <> "admin_login") ) {
  if ( (! isset($VARS["arg"]["arg"])) && ( (! isset($CONF["ip_stats_exclude"]) ) || (strpos($CONF["ip_stats_exclude"],$_SERVER["REMOTE_ADDR"]) === FALSE) ) ) {
    
	if ($CONF["stats"]=="3") $tmp_stats = "";
	else 					 $tmp_stats  = $VARS["date"]["day"]."-".$VARS["date"]["month"]."-".$VARS["date"]["year"];
	$tmp_stats .= "," . $VARS["arg"]["url"] . "\n";
	
	if ($CONF["stats"]=="1")
      $tmp_stats_file = $VARS["local"]["path_data"].$VARS["arg"]["lang"]."/stats.txt";
	else
      $tmp_stats_file = $VARS["local"]["path_data"].$VARS["arg"]["lang"]."/stats/stats_".$VARS["date"]["month"]."_".$VARS["date"]["year"].".txt";	
    $gestor=fopen($tmp_stats_file,'a');
    fwrite($gestor,$tmp_stats);
    fclose($gestor);
  }
}

// 11 - si definido target entonces se muestra el target y se acaba
if ( $_GET["target"] <> "" ) {
  $location="Location: ".urldecode($_GET["target"]);
  header ($location);  
  exit;
}  

// 12- Leo los textos
if ( file_exists($VARS["local"]["path_data"].$VARS["arg"]["lang"]."/textos.ini") ) {
  $CONF_TMP["textos"]	= parse_ini_file($VARS["local"]["path_data"].$VARS["arg"]["lang"]."/textos.ini",true);
  foreach ($CONF_TMP["textos"] as $key => $valor) {
    if (! isset ($CONF["textos"][$key]) ) {
      $CONF["textos"][$key] = $valor;
    }
  }
}
$TXT = &$CONF["textos"];
unset($CONF_TMP["textos"]);

// 13 - compruebo si admin
if ( (($VARS["arg"]["mode"] == "admin")||((strpos($_GET["logic"],"admin_")===0)&&($_GET["logic"]<>"admin_login"))||((strpos($VARS["arg"]["url"],"admin_")===0)&&($VARS["arg"]["url"]<>"admin_login"))) && ($_SESSION["admin"] == "") ) {
  $tmp_texto = $VARS["product_name"]."/?".$VARS['sid']."mode=view&url=admin_login";
  $tmp_texto = str_replace("&amp;","&",$tmp_texto);
  foreach ($VARS["arg"] as $key => $value) {
    if ( ($key <> "url") && ($key <> "mode") && ($key <> "arg") ) { $tmp_texto .= "&".$key."=".$value; }  
  }
  $location="Location: " . $protocol . $HTTP_SERVER_VARS['HTTP_HOST'].$tmp_texto;
  header ($location);  
  exit;
}

//Habilito errores si mode=devel
if($VARS["arg"]["mode"]=="devel") {
  ini_set('display_errors',1);
  error_reporting(E_ERROR | E_WARNING );
}

//14 - execute logic or load layout
//LOGIC
if ($_GET["logic"] <> "") {
  
  //Para evitar errores de seguridad en los logic - INICIO - 12/08/2010
  if ($_GET["logic"] <> "wapa_login") {
    $tmp_pintar = test_permiso("",0,$VARS["arg"]["url"]);
    if ( ($tmp_pintar == 2) || ($tmp_pintar == 0) ) { //LOGIN WAPA_PERMISOS O SI NO HAY PERMISOS
	  header("HTTP/1.0 404 Not Found");
      exit;
    }
  }	
  //Para evitar errores de seguridad en los logic - FIN

  $tmp_relocate_url = "";
  $tmp_new_args = "";
  if ( file_exists($VARS["local"]["path"]."wapa_forms/funciones.php") ) {
	require_once $VARS["local"]["path"]."wapa_forms/funciones.php";
  } 
  if ( file_exists($VARS["local_prod"]["path"]."wapa_forms/funciones.php") ) {
	require_once $VARS["local_prod"]["path"]."wapa_forms/funciones.php";
  } 
  #MODE=LOGIC Tradicional - url indica la siguiente url a mostrar y $_GET["logic"] indica la entrada "logic-" a ejecutar
  if ($VARS["arg"]["mode"] == "logic") {
    $MODU["status"] = 0;
    foreach ($CONF as $key => $valor) {
      if ( preg_match("/^logic-".$_GET["logic"]."$/",$key) ) {
	    $MODU["arg"] = array();
	    foreach ($CONF[$key] as $key2 => $valor2) {
          if (strpos($key2,"arg_")===0) array_push($MODU["arg"],cambia($valor2));
        }	
	    $tmp_mode = cambia($CONF[$key]["mode"]);
	    $tmp_keep_args = explode(",",cambia($CONF[$key]["keep_args"]));
        include cambia($CONF[$key]["src"]);
	    break 1;
	  }  
    }
	$tmp_status = $MODU["status"];
  //***LOGIC de un WAPA_FORM
  } else { 	
    //Ejecuto antes los upload de ficheros
	if (isset($_FILES)&&(count($_FILES)>0)) {
	  foreach ($_FILES as $key => $value) {
	    if ($value['name'] !="") {
		  if ($value['size']<=$_POST[$key.'_maxsize']) {
		    $tmp_nombre = substr($value['tmp_name'],strrpos($value['tmp_name'],"\\")+1,strlen($value['tmp_name'])-strrpos($value['name'],"\\"));
		    $tmp_nombre = substr($tmp_nombre,0,strrpos($tmp_nombre,"."));
		    $tmp_extension = substr($value['name'],strrpos($value['name'],"."),strlen($value['name'])-strrpos($value['name'],"."));
			//Inicio - Compruebo si hay que crear los directorios donde va el fichero
			 if (isset($_POST[$key.'_directorio'])) {
			   $tmp_carpetas = explode("/",$_POST[$key.'_directorio']);
			   $tmp_carpeta_acumulada = $VARS['local']['path_data']."resources/";
			   foreach ($tmp_carpetas as $tmp_carpeta) {
			     if ($tmp_carpeta<>"") {
			       $tmp_carpeta_acumulada = $tmp_carpeta_acumulada.$tmp_carpeta."/";
			       if(!file_exists($tmp_carpeta_acumulada)){
				     mkdir($tmp_carpeta_acumulada,0777);
				   }
			     }	 
			   }
			 }  
			 //Fin - Compruebo si hay que crear los directorios donde va el fichero
		    if (move_uploaded_file($value['tmp_name'], $VARS['local']['path_data'].'resources/'.$_POST[$key.'_directorio'].$tmp_nombre.$tmp_extension))
		      $_POST[$key] = $VARS['local']['url_res'].$_POST[$key.'_directorio'].$tmp_nombre.$tmp_extension;
		  }	  
		} else{
		  $_POST[$key]=$_POST[$key."_src"];
		}
	  }
	}
    $tmp_keep_args	= "";
    $tmp_mode		= "";
    $tmp_status		= "";
    //Comprobamos si logic esta en algun *.ini de los que incluye la URL
    foreach ($CONF as $key => $valor) {
      //Si existe un modulo para esa url
      if ( preg_match("/^view-".get_alias($VARS["arg"]["url"])."(_[0-9]+)*$/",$key) ) {
	    //Si es un modulo de tipo form
	    if ( strpos(cambia($CONF[$key]["src"]),"ini") !== false ) { 	
	      $FORM = parse_ini_file(cambia($CONF[$key]["src"]),true);
		  if (isset($FORM["query-logic-".$_GET["logic"]])) {
		    if (isset($FORM["query-logic-".$_GET["logic"]]["keep_args"])) 	$tmp_keep_args = explode(",",$FORM["query-logic-".$_GET["logic"]]["keep_args"]);
		    if (isset($FORM["query-logic-".$_GET["logic"]]["mode"])) 		$tmp_mode = $FORM["query-logic-".$_GET["logic"]]["mode"];
		    if (isset($FORM["query-logic-".$_GET["logic"]]["status"])) 		$tmp_status = $FORM["query-logic-".$_GET["logic"]]["status"];
			foreach ($FORM["query-logic-".$_GET["logic"]] as $key2 => $query) {
		      //Si es una query de INSERT o actualizacion
		      if (is_numeric($key2)) {
			    $tmp_ejecuta = true;
			    //Se comprueba si tiene en prev un SELECT y TEST
			    if (isset($FORM["query-logic-".$_GET["logic"]][$key2."_prev"])) {
			      $db->sqlSelect(parsePHP($FORM["query-logic-".$_GET["logic"]][$key2."_prev"]));
	              $i=0;
                  while ( $DATA[$key2][$i] = $db->sqlNextRow() ) {$i++;};
			    }
			    if (isset($FORM["query-logic-".$_GET["logic"]][$key2."_test"])) {
			  	  //TEST
				  //Si hace referencia a otro _test se evalua el otro
				  if ( strpos($FORM["query-logic-".$_GET["logic"]][$key2."_test"],"_test") !== false ) {
				    if (! parsePHP($FORM["query-logic-".$_GET["logic"]][cambia($CONF[$key]["src"]."_test")])) {
				      $tmp_ejecuta = false;
				      $tmp_status = $FORM["query-logic-".$_GET["logic"]][$key2."_status"];
				    }
				  //Si no, compruebo ese TEST
                  } else {				  
				    if (! parsePHP($FORM["query-logic-".$_GET["logic"]][$key2."_test"])) {
				      $tmp_ejecuta = false;
				      if ($FORM["query-logic-".$_GET["logic"]][$key2."_status"]<>"") $tmp_status = $FORM["query-logic-".$_GET["logic"]][$key2."_status"];
				    }
				  }	
			    }
			    //echo parsePHP($query);
			    if ($tmp_ejecuta) {
				  $query = parsePHP($query);
				  if (strlen($query) > 9) { //Si es una query devuelve una cadena de mas de 9 caraactares.
			        if ( ($db->sqlUpdate(parsePHP($query)) == 0) && ($tmp_mode<>"close_iframe") ) $tmp_status = "";
				  }	
			    }	
			  }  
		    }
			if (isset($FORM["query-logic-".$_GET["logic"]]["new_args"])) 	 $tmp_new_args = parsePHP($FORM["query-logic-".$_GET["logic"]]["new_args"]);
			if (isset($FORM["query-logic-".$_GET["logic"]]["relocate_url"])) $tmp_relocate_url = $FORM["query-logic-".$_GET["logic"]]["relocate_url"];
            break 1;		  
		  }
	    }  
      }	
    }
  }
  //SALIDA DEL LOGIC
  if ($tmp_mode=="close") {
    echo "<script language=javascript>";
	echo "window.opener.location.href = window.opener.location.href;";
	echo "window.close();";
	echo "</script>";
  } elseif ($tmp_mode=="close_iframe") {
    $location  = "" . $protocol . $HTTP_SERVER_VARS['HTTP_HOST'];
	if (is_numeric($VARS["arg"]["url"]) && (strlen($VARS["arg"]["url"])>5) && ($tmp_relocate_url<>"")) $tmp_relocate_url = substr($VARS["arg"]["url"],0,-5).completa_ceros($tmp_relocate_url);
	$location .= url_location($tmp_keep_args,$tmp_status,$tmp_relocate_url,$tmp_new_args);
	echo "<script language=javascript>";
	echo "parent.location.href = '".$location."';";
	echo "</script>";  
  } else {	
    if ($tmp_mode=="") $tmp_mode = $VARS["arg"]["mode"];
    $location  = "Location: " . $protocol . $HTTP_SERVER_VARS['HTTP_HOST'];
	if (is_numeric($VARS["arg"]["url"]) && (strlen($VARS["arg"]["url"])>5) && ($tmp_relocate_url<>"")) $tmp_relocate_url = substr($VARS["arg"]["url"],0,-5).completa_ceros($tmp_relocate_url);
	$location .= url_location($tmp_keep_args,$tmp_mode,$tmp_relocate_url,$tmp_new_args);
	if ($tmp_status <> "") $location .= "&status=".$tmp_status;
	header("HTTP/1.0 307 Temporary redirect"); //Para mantener los $_POST en el redirect
    header ($location);    
	exit;
  }

//LAYOUT pasado en arg_layout
} elseif (isset($VARS["arg"]["arg"]["layout"]))  {
  $tmp_pintar = test_permiso("",0,$VARS["arg"]["url"]);
  if ($tmp_pintar == 2) { //LOGIN WAPA_PERMISOS
	$tmp_texto = $VARS["product_name"]."/?".str_replace("&amp;","&",$VARS['sid'])."url=wapa_login&arg_redirect=".$VARS["arg"]["url"];
    foreach ($VARS["arg"] as $key => $value) {
      if ( ($key <> "url") && ($key <> "arg") ) { $tmp_texto .= "&".$key."=".$value; }  
    }
    $location="Location: " . $protocol . $HTTP_SERVER_VARS['HTTP_HOST'].urldecode($tmp_texto);
    header ($location);
	exit;
  }	
  if ($tmp_pintar == 0) { //Si no hay permisos muestro la url_logout (ver config.ini)
    $tmp_texto = $VARS["product_name"]."/?".$VARS['sid']."url=".$CONF["url_logout"]."&mode=".$VARS["arg"]["mode"]."&lang=".$VARS["arg"]["lang"]."&corp=".$VARS["arg"]["corp"];
    $location="Location: " . $protocol . $HTTP_SERVER_VARS['HTTP_HOST'].urldecode($tmp_texto);
	header ($location);
	exit;
  }
  if ($tmp_pintar) {
    foreach (array("layout") as $tipo) {
      if(count($CONF["layout_".$tipo])) {
        foreach ($CONF["layout_".$tipo] as $key => $value) {
	      if ( preg_match("/^".preg_replace("(/)","\/",$key)."$/",$VARS["arg"]["arg"][$tipo]) ) {
		    if ( file_exists($VARS["local"]["path_mod"]."set_sesion.php") ) {
             include $VARS["local"]["path_mod"]."set_sesion.php";
            } 
		    if ($VARS["arg"]["mode"]<>"ajax") {
		      if ($CONF["Lheader_url"][$VARS["arg"]["url"]] <> "")	include cambia($CONF["Lheader_url"][$VARS["arg"]["url"]]);
              elseif ($CONF["Lheader"] <> "")							include cambia($CONF["Lheader"]);
		      else													include $VARS["global"]["path_lay"]."header.php";		  
		    }	
		    include cambia($value);
		    if ($VARS["editor_found"] == true)    include $VARS['global']['path_mod'].'editor/editor_js.php';
		    if ($VARS["editor242_found"] == true) include $VARS['global']['path_mod'].'editor242/editor_js.php';
			if ($VARS["editor432_found"] == true) include $VARS['global']['path_mod'].'editor432/editor_js.php';
		    if ($VARS["arg"]["mode"]<>"ajax") {
		      include $VARS["global"]["path_lay"]."footer.php";
		    }	
	        break 2;
          }
        }  
      }
    }
  }	
//LAYOUT
} else  {
  $tmp_pintar = test_permiso("",0,$VARS["arg"]["url"]);
  if ($tmp_pintar == 2) { //LOGIN WAPA_PERMISOS
	$tmp_texto = $VARS["product_name"]."/?".str_replace("&amp;","&",$VARS['sid'])."url=wapa_login&arg_redirect=".$VARS["arg"]["url"];
    foreach ($VARS["arg"] as $key => $value) {
      if ( ($key <> "url") && ($key <> "arg") ) { $tmp_texto .= "&".$key."=".$value; }  
    }
    $location="Location: " . $protocol . $HTTP_SERVER_VARS['HTTP_HOST'].urldecode($tmp_texto);
    header ($location);
	exit;
  }	
  if ($tmp_pintar == 0) { //Si no hay permisos muestro la url_logout (ver config.ini)
    $tmp_texto = $VARS["product_name"]."/?".$VARS['sid']."url=".$CONF["url_logout"]."&mode=".$VARS["arg"]["mode"]."&lang=".$VARS["arg"]["lang"]."&corp=".$VARS["arg"]["corp"];
    $location="Location: " . $protocol . $HTTP_SERVER_VARS['HTTP_HOST'].urldecode($tmp_texto);
	header ($location);
	exit;
  }
  if ($tmp_pintar) {
    foreach ($CONF["layout_order"] as $tipo) {
      if (count($CONF["layout_".$tipo])) {
        foreach ($CONF["layout_".$tipo] as $key => $value) {
		  if ($tipo == "ruta") 	{
		    $tmp_compara = $CONF["menu_ruta"];
			$key = ".*,".$key.",.*";
		  } else {
		    $tmp_compara = $VARS["arg"][$tipo];
		  }	
	      if ( preg_match("/^".preg_replace("(/)","\/",$key)."$/",$tmp_compara) ) {
		    if ( file_exists($VARS["local"]["path_mod"]."set_sesion.php") ) {
             include $VARS["local"]["path_mod"]."set_sesion.php";
            }
			$VARS["layout"] = $value; //esto sirve para poner test en css y js para plantillas
			if ($VARS["arg"]["mode"]<>"ajax") {
			  if ($CONF["Lheader_url"][$VARS["arg"]["url"]] <> "")	include cambia($CONF["Lheader_url"][$VARS["arg"]["url"]]);
              elseif ($CONF["Lheader"] <> "") 						include cambia($CONF["Lheader"]);
		      else                        							include $VARS["global"]["path_lay"]."header.php";
			}  
		    include cambia($value);
		    if ($VARS["editor_found"] == true)    include $VARS['global']['path_mod'].'editor/editor_js.php';
			if ($VARS["editor242_found"] == true) include $VARS['global']['path_mod'].'editor242/editor_js.php';
			if ($VARS["editor432_found"] == true) include $VARS['global']['path_mod'].'editor432/editor_js.php';
			if ($VARS["arg"]["mode"]<>"ajax") {
		      include $VARS["global"]["path_lay"]."footer.php";
			}  
	        break 2;
          }
        }  
      }
    }
  }	
}  

// 15 - close DB
$db->sqlClose();

// 16 - print used vars
if ($VARS["arg"]["mode"] == "devel") {
  echo "<p><hr><pre>[VARS] => ";
  print_r($VARS);
  echo "<p>[CONF] => ";
  print_r($CONF);
  echo "<p>[MODU] => ";
  print_r($MODU);
  //echo "<p>[DB] => ";
  //print_r($DB);
  echo "</pre>";
}  
?>