$value) echo "$var=$value
";
//die;
if (isset($arrHttp["newindow"]))
$_SESSION["newindow"]="Y";
if (isset($_SESSION["login"])) $arrHttp["login"]=$_SESSION["login"];
//else
// $_SESSION["login"]=$
if (isset($_SESSION["password"])) $arrHttp["password"]=$_SESSION["password"];
if (isset($_SESSION["permiso"])) $arrHttp["startas"]=$_SESSION["permiso"];
function LeerRegistro() {
global $llamada, $valortag,$maxmfn,$arrHttp,$Bases,$xWxis,$Wxis,$Mfn,$db_path,$wxisUrl;
// en la variable $arrHttp vienen los parámetros que se le van a pasar al script .xis
// el índice IsisScript contiene el nombre del script .xis que va a ser invocado
// la variable $llave permite retornar alguna marca que esté en el formato de salida
// identificada entre $$LLAVE= .....$$
$llave_pft="";
$IsisScript=$xWxis."login.xis";
$query = "&base=acces&cipar=$db_path"."par/acces.par"."&login=".$_SESSION["login"]."&password=".$_SESSION["password"];
include("../common/wxis_llamar.php");
$ic=-1;
$tag= "";
foreach ($contenido as $linea){
if ($ic==-1){
$ic=1;
$pos=strpos($linea, '##LLAVE=');
if (is_integer($pos)) {
$llave_pft=substr($linea,$pos+8);
$pos=strpos($llave_pft, '##');
$llave_pft=substr($llave_pft,0,$pos);
}
}else{
$linea=trim($linea);
$pos=strpos($linea, " ");
if (is_integer($pos)) {
$tag=trim(substr($linea,0,$pos));
}
}
}
return $llave_pft;
}
/////
///// INICIO DEL PROGRAMA
/////
$query="";
//foreach ($arrHttp as $var => $value) echo "$var = $value
";
if (isset($arrHttp["base"])){
$bdsel=trim($arrHttp["base"]);
$base_x=explode('|',$bdsel);
$db_copies="";
if (isset($base_x[2]) and $base_x[2]=="Y") $db_copies="Y";
$ix=strpos($base_x[0],'^',2);
$bd=substr($base_x[0],2,$ix-2);;
$bdright= substr($base_x[0],$ix+2);
$bddesc=$base_x[1];
}
if (isset($arrHttp["lang"])){
$_SESSION["lang"]=$arrHttp["lang"];
}else{
$arrHttp["lang"]=$_SESSION['lang'];
}
include ("../lang/admin.php");
if (!isset($_SESSION["Expresion"])) $_SESSION["Expresion"]="";
$Permiso=$_SESSION["permiso"];
if (!isset($_SESSION["permiso"])){
echo "Missing user rights";
session_destroy();
die;
}
foreach ($Permiso as $key=>$value){
if (substr($key,0,3)=="db_"){
$bases=substr($key,3);
break;
}
}
$arrHttp["base"]=$bases;
$arrHttp["cipar"]=$arrHttp["base"].".par";
$NombreBase="";
$arrHttp["Opcion"]="STATUS";
$arrHttp["IsisScript"]="control.xis";
$llave=LeerRegistro();
$stat=explode('|',$llave);
$llave=substr($stat[2],7);
echo "ABCD