diff options
| author | alonso <alonso@us.es> | 2010-04-12 11:20:48 +0000 |
|---|---|---|
| committer | alonso <alonso@us.es> | 2010-04-12 11:20:48 +0000 |
| commit | 06be6723218372ed45ead2c38ae63ca30849238d (patch) | |
| tree | 024d8114132463a2ef5cff5c33b76a19668bc5c0 /admin/WebConsole/controlpostacceso.php | |
| parent | 00b3dffed67f1a03ffa194bb50c0d4dc44b470ff (diff) | |
Modificaciones de Alfonso
git-svn-id: https://opengnsys.es/svn/trunk@856 a21b9725-9963-47de-94b9-378ad31fedc9
Diffstat (limited to 'admin/WebConsole/controlpostacceso.php')
| -rw-r--r-- | admin/WebConsole/controlpostacceso.php | 31 |
1 files changed, 29 insertions, 2 deletions
diff --git a/admin/WebConsole/controlpostacceso.php b/admin/WebConsole/controlpostacceso.php index 0a97a769..f793db9a 100644 --- a/admin/WebConsole/controlpostacceso.php +++ b/admin/WebConsole/controlpostacceso.php @@ -54,11 +54,17 @@ include_once("./clases/AdoPhp.php"); $_SESSION["widtipousuario"]=$tsu; $_SESSION["widioma"]=$idi; $_SESSION["wcadenaconexion"]=$cnx; - $_SESSION["wservidorhidra"]=$ips; - $_SESSION["whidraport"]=$prt; $_SESSION["wpagerror"]=$wer; $_SESSION["wurlacceso"]=$wac; +// Variables de entorno + $resul=toma_entorno($cmd,&$ips,&$prt); + if(!$resul) + Header("Location: ".$wac."?herror=4"); // Error de conexión con servidor B.D. + + $_SESSION["wservidorhidra"]=$ips; + $_SESSION["whidraport"]=$prt; + /* echo "<BR>Cadena=".$_SESSION["wcadenaconexion"]; echo "<BR>servidorhidra=".$_SESSION["wservidorhidra"]; @@ -118,6 +124,27 @@ echo "<BR>idtipousuario=".$_SESSION["widtipousuario"]; } return(false); } +//________________________________________________________________________________________________________ + // Busca datos de configuración del sistema + // Parametros: + // - cmd:Una comando ya operativo (con conexión abierta) + // - ips: Dirección IP del servidor de administración + // - prt: Puerto de comunicaciones + // + // Devuelve datos generales de configuración del sistema + //_______________________________________________________________________________________________________ + function toma_entorno($cmd,$ips,$prt){ + $rs=new Recordset; + $cmd->texto="SELECT * FROM entornos"; + $rs->Comando=&$cmd; + //echo $cmd->texto; + if (!$rs->Abrir()) return($false); // Error al abrir recordset + if(!$rs->EOF){ + $ips=$rs->campos["ipserveradm"]; + $prt=$rs->campos["portserveradm"]; + } + return(true); + } //_______________________________________________________________________________________________________ ?> <HTML> |