// ************************************************************************************************************************************************* // Aplicación WEB: ogAdmWebCon // Autor: José Manuel Alonso (E.T.S.I.I.) Universidad de Sevilla // Fecha Creación: Año 2003-2004 // Fecha Última modificación: Febrero-2005 // Nombre del fichero: conmutar.php // Descripción : // Actualiza la visualización de los ordenadores de un ámbito concreto // ************************************************************************************************************************************************* include_once("../includes/ctrlacc.php"); include_once("../clases/SockHidra.php"); include_once("../clases/AdoPhp.php"); include_once("../includes/constantes.php"); include_once("../includes/CreaComando.php"); include_once("../idiomas/php/".$idioma."/conmutar_".$idioma.".php"); //________________________________________________________________________________________________________ $litambito=0; $idambito=0; if (isset($_GET["litambito"])) $litambito=$_GET["litambito"]; // Recoge parametros if (isset($_GET["idambito"])) $idambito=$_GET["idambito"]; $nombrefuncion="Conmutar"; $ejecutor="1"; $cadenaip=""; $cmd=CreaComando($cadenaconexion); if (!$cmd) Header('Location: '.$pagerror.'?herror=2'); // Error de conexión con servidor B.D. //________________________________________________________________________________________________________ if($cmd){ // Compone cadena ip recorriendo ámbitos switch($litambito){ case $LITAMBITO_CENTROS : $cmd->texto="SELECT idcentro,nombrecentro FROM centros WHERE idcentro=".$idambito; RecorreCentro($cmd); break; case $LITAMBITO_GRUPOSAULAS : $cmd->texto="SELECT idgrupo,nombregrupo FROM grupos WHERE idgrupo=".$idambito." AND tipo=".$AMBITO_GRUPOSAULAS; RecorreGruposAulas($cmd); break; case $LITAMBITO_AULAS : $cmd->texto="SELECT idaula,nombreaula FROM aulas WHERE idaula=".$idambito; RecorreAulas($cmd); break; case $LITAMBITO_GRUPOSORDENADORES : $cmd->texto="SELECT idgrupo,nombregrupoordenador FROM gruposordenadores WHERE idgrupo=".$idambito; RecorreGruposOrdenadores($cmd); break; case $LITAMBITO_ORDENADORES : $cmd->texto="SELECT ip FROM ordenadores WHERE idordenador=".$idambito; RecorreOrdenadores($cmd); break; } } $resul=false; if($cmd){ $shidra=new SockHidra($servidorhidra,$hidraport); $cadenaip=ereg_replace( ";", "','", $cadenaip ); $cmd->texto="SELECT ordenadores.ip as ipord,servidoresrembo.ip FROM ordenadores INNER JOIN servidoresrembo ON ordenadores.idservidorrembo =servidoresrembo.idservidorrembo WHERE ordenadores.ip IN ('".$cadenaip."') ORDER BY servidoresrembo.ip"; $rs=new Recordset; $rs->Comando=&$cmd; if (!$rs->Abrir()) $resul=false; // Error al abrir recordset $rs->Primero(); if(!$rs->EOF){ $resul=true; $ipservidorrembo=trim($rs->campos["ip"]); // toma ip servidor rembo $cadenaip=""; while(!$rs->EOF && $resul){ if($ipservidorrembo!=trim($rs->campos["ip"])){ // compara si cambia el servidor rembo $parametros=$ejecutor; $parametros.="nfn=".$nombrefuncion.chr(13); $cadenaip=substr($cadenaip,0,strlen($cadenaip)-1); // Quita la coma $parametros.="iph=".$cadenaip.chr(13); $parametros.="rmb=".$ipservidorrembo.chr(13); $resul=manda_trama(); $ipservidorrembo=trim($rs->campos["ip"]); // toma ip servidor rembo $cadenaip=""; } $cadenaip.=trim($rs->campos["ipord"]).";"; // toma ip del cliente $rs->Siguiente(); } } $rs->Cerrar(); if($resul){ $parametros=$ejecutor; $parametros.="nfn=".$nombrefuncion.chr(13); $cadenaip=substr($cadenaip,0,strlen($cadenaip)-1); // Quita la coma $parametros.="iph=".$cadenaip.chr(13); $parametros.="rmb=".$ipservidorrembo.chr(13); $resul=manda_trama(); } } // ************************************************************************************************************************************************* ?>