source: admin/WebConsole/principal/conmutar.php @ 49c6891

918-git-images-111dconfigfileconfigure-oglivegit-imageslgromero-new-oglivemainmaint-cronmount-efivarfsmultivmmultivm-ogboot-installerogClonningEngineogboot-installer-jenkinsoglive-ipv6test-python-scriptsticket-301ticket-50ticket-50-oldticket-577ticket-585ticket-611ticket-612ticket-693ticket-700ubu24tplunification2use-local-agent-oglivevarios-instalacionwebconsole3
Last change on this file since 49c6891 was a6b881e, checked in by alonso <alonso@…>, 15 years ago

primeros archivos de administración

git-svn-id: https://opengnsys.es/svn/trunk@520 a21b9725-9963-47de-94b9-378ad31fedc9
  • Property mode set to 100644
File size: 7.5 KB
Line 
1<?
2// *************************************************************************************************************************************************
3// Aplicación WEB: ogAdmWebCon
4// Autor: José Manuel Alonso (E.T.S.I.I.) Universidad de Sevilla
5// Fecha Creación: Año 2003-2004
6// Fecha Última modificación: Febrero-2005
7// Nombre del fichero: conmutar.php
8// Descripción :
9//              Actualiza la visualización de los ordenadores de un ámbito concreto
10// *************************************************************************************************************************************************
11include_once("../includes/ctrlacc.php");
12include_once("../clases/SockHidra.php");
13include_once("../clases/AdoPhp.php");
14include_once("../includes/constantes.php");
15include_once("../includes/CreaComando.php");
16include_once("../idiomas/php/".$idioma."/conmutar_".$idioma.".php");
17//________________________________________________________________________________________________________
18$litambito=0;
19$idambito=0;
20
21if (isset($_GET["litambito"])) $litambito=$_GET["litambito"]; // Recoge parametros
22if (isset($_GET["idambito"])) $idambito=$_GET["idambito"];
23
24$nombrefuncion="Conmutar";
25$ejecutor="1";
26$cadenaip="";
27
28$cmd=CreaComando($cadenaconexion);
29if (!$cmd)
30        Header('Location: '.$pagerror.'?herror=2'); // Error de conexión con servidor B.D.
31//________________________________________________________________________________________________________
32if($cmd){ // Compone cadena ip recorriendo ámbitos
33        switch($litambito){
34                        case $LITAMBITO_CENTROS :
35                                $cmd->texto="SELECT idcentro,nombrecentro FROM centros WHERE idcentro=".$idambito;
36                                RecorreCentro($cmd);
37                                break;
38                        case $LITAMBITO_GRUPOSAULAS :
39                                $cmd->texto="SELECT idgrupo,nombregrupo FROM grupos WHERE idgrupo=".$idambito." AND tipo=".$AMBITO_GRUPOSAULAS;
40                                RecorreGruposAulas($cmd);
41                                break;
42                        case $LITAMBITO_AULAS :
43                                $cmd->texto="SELECT idaula,nombreaula FROM aulas WHERE idaula=".$idambito;
44                                RecorreAulas($cmd);
45                                break;
46                        case $LITAMBITO_GRUPOSORDENADORES :
47                                $cmd->texto="SELECT idgrupo,nombregrupoordenador FROM gruposordenadores WHERE idgrupo=".$idambito;
48                                RecorreGruposOrdenadores($cmd);
49                                break;
50                        case $LITAMBITO_ORDENADORES :
51                                $cmd->texto="SELECT ip FROM ordenadores WHERE idordenador=".$idambito;
52                                RecorreOrdenadores($cmd);
53                                break;
54        }
55}
56$resul=false;
57if($cmd){
58        $shidra=new SockHidra($servidorhidra,$hidraport);
59        $cadenaip=ereg_replace( ";", "','", $cadenaip );
60        $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";
61        $rs=new Recordset;
62        $rs->Comando=&$cmd;
63        if (!$rs->Abrir())      $resul=false; // Error al abrir recordset
64        $rs->Primero();
65        if(!$rs->EOF){
66                $resul=true;
67                $ipservidorrembo=trim($rs->campos["ip"]); // toma ip servidor rembo
68                $cadenaip="";
69                while(!$rs->EOF && $resul){
70                        if($ipservidorrembo!=trim($rs->campos["ip"])){ // compara si cambia el servidor rembo
71                                $parametros=$ejecutor;
72                                $parametros.="nfn=".$nombrefuncion.chr(13);
73                                $cadenaip=substr($cadenaip,0,strlen($cadenaip)-1); // Quita la coma
74                                $parametros.="iph=".$cadenaip.chr(13);
75                                $parametros.="rmb=".$ipservidorrembo.chr(13);
76                                $resul=manda_trama();
77                                $ipservidorrembo=trim($rs->campos["ip"]); // toma ip servidor rembo
78                                $cadenaip="";
79                        }
80                        $cadenaip.=trim($rs->campos["ipord"]).";"; // toma ip del cliente
81                        $rs->Siguiente();
82                }
83        }
84        $rs->Cerrar();
85        if($resul){
86                $parametros=$ejecutor;
87                $parametros.="nfn=".$nombrefuncion.chr(13);
88                $cadenaip=substr($cadenaip,0,strlen($cadenaip)-1); // Quita la coma
89                $parametros.="iph=".$cadenaip.chr(13);
90                $parametros.="rmb=".$ipservidorrembo.chr(13);
91                $resul=manda_trama();
92        }
93}
94// *************************************************************************************************************************************************
95?>
96<HTML>
97<TITLE>" Administración web de aulas"</TITLE>
98<HEAD>
99        <meta http-equiv="Content-Type" content="text/html;charset=UTF-8">
100</HEAD>
101<BODY>
102<?
103        echo '<SCRIPT language="javascript">';
104         if($resul)
105                echo "alert('".$TbMsg[0]."');";
106         else
107                echo "alert('".$TbMsg[1]."');";
108        echo '  self.close();';
109        echo '</SCRIPT>';
110?>
111</BODY>
112</HTML>
113<?
114//________________________________________________________________________________________________________
115//
116//      Manda una trama del comando Conmutar
117//________________________________________________________________________________________________________
118function manda_trama(){
119        global $parametros;
120        global $shidra;
121        if ($shidra->conectar()){ // Se ha establecido la conexión con el servidor hidra
122                $shidra->envia_comando($parametros);
123                $shidra->desconectar();
124                return(true);
125        }
126        return(false);
127}
128//________________________________________________________________________________________________________
129function RecorreCentro($cmd){
130        global $AMBITO_GRUPOSAULAS;
131        $rs=new Recordset;
132        $rs->Comando=&$cmd;
133        if (!$rs->Abrir()) return; // Error al abrir recordset
134        $rs->Primero();
135        if(!$rs->EOF){
136                $idcentro=$rs->campos["idcentro"];
137                $cmd->texto="SELECT idgrupo,nombregrupo FROM grupos WHERE idcentro=".$idcentro." AND grupoid=0 AND tipo=".$AMBITO_GRUPOSAULAS." ORDER BY nombregrupo";
138                RecorreGruposAulas($cmd);
139                $cmd->texto="SELECT idaula,nombreaula FROM aulas WHERE idcentro=".$idcentro." AND grupoid=0 ORDER BY nombreaula";
140                RecorreAulas($cmd);
141        }
142        $rs->Cerrar();
143}
144//________________________________________________________________________________________________________
145function RecorreGruposAulas($cmd){
146        global $AMBITO_GRUPOSAULAS;
147        $rs=new Recordset;
148        $rs->Comando=&$cmd;
149        if (!$rs->Abrir()) return; // Error al abrir recordset
150        $rs->Primero();
151        while (!$rs->EOF){
152                $idgrupo=$rs->campos["idgrupo"];
153                $cmd->texto="SELECT idgrupo,nombregrupo FROM grupos WHERE grupoid=".$idgrupo." AND tipo=".$AMBITO_GRUPOSAULAS." ORDER BY nombregrupo";
154                RecorreGruposAulas($cmd);
155                $cmd->texto="SELECT idaula,nombreaula FROM aulas WHERE  grupoid=".$idgrupo." ORDER BY nombreaula";
156                RecorreAulas($cmd);
157                $rs->Siguiente();
158        }
159        $rs->Cerrar();
160}
161//________________________________________________________________________________________________________
162function RecorreAulas($cmd){
163        $rs=new Recordset;
164        $rs->Comando=&$cmd;
165        if (!$rs->Abrir()) return; // Error al abrir recordset
166        $rs->Primero();
167        while (!$rs->EOF){
168                $idaula=$rs->campos["idaula"];
169                $cmd->texto="SELECT idordenador,nombreordenador,ip,mac FROM ordenadores WHERE  idaula=".$idaula;
170                $k=0;
171                RecorreOrdenadores($cmd);
172                $rs->Siguiente();
173        }
174        $rs->Cerrar();
175}
176//________________________________________________________________________________________________________
177function RecorreGruposOrdenadores($cmd){
178        $rs=new Recordset;
179        $rs->Comando=&$cmd;
180        if (!$rs->Abrir()) return; // Error al abrir recordset
181        $rs->Primero();
182        while (!$rs->EOF){
183                $idgrupo=$rs->campos["idgrupo"];
184                $cmd->texto="SELECT idgrupo,nombregrupoordenador FROM gruposOrdenadores WHERE grupoid=".$idgrupo." ORDER BY nombregrupoordenador";
185                RecorreGruposOrdenadores($cmd);
186                $cmd->texto="SELECT idordenador,nombreordenador,ip,mac FROM ordenadores WHERE  grupoid=".$idgrupo;
187                RecorreOrdenadores($cmd);
188                $rs->Siguiente();
189        }
190        $rs->Cerrar();
191}
192//________________________________________________________________________________________________________
193function RecorreOrdenadores($cmd){
194        global $cadenaip;
195        $rs=new Recordset;
196        $rs->Comando=&$cmd;
197        if (!$rs->Abrir()) return; // Error al abrir recordset
198        $rs->Primero();
199        while (!$rs->EOF){
200                $cadenaip.=$rs->campos["ip"].";";
201                $rs->Siguiente();
202        }
203        $rs->Cerrar();
204}
205?>
Note: See TracBrowser for help on using the repository browser.