source: admin/ogAdmSources/ogAdmWebCon/principal/actualizar.php @ e42f34e

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 e42f34e was 8964f9b, checked in by ramon <ramongomez@…>, 16 years ago

Resstructuración de trunk.

git-svn-id: https://opengnsys.es/svn/trunk@390 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: actualizar.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."/actualizar_".$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="Actualizar";
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</HEAD>
100<BODY>
101<?
102        echo '<SCRIPT language="javascript">';
103         if($resul)
104                echo "alert('".$TbMsg[0]."');";
105         else
106                echo "alert('".$TbMsg[1]."');";
107        echo '  self.close();';
108        echo '</SCRIPT>';
109?>
110</BODY>
111</HTML>
112<?
113//________________________________________________________________________________________________________
114//
115//      Manda una trama del comando Actualizar
116//________________________________________________________________________________________________________
117function manda_trama(){
118        global $parametros;
119        global $shidra;
120        if ($shidra->conectar()){ // Se ha establecido la conexión con el servidor hidra
121                $shidra->envia_comando($parametros);
122                $shidra->desconectar();
123                return(true);
124        }
125        return(false);
126}
127//________________________________________________________________________________________________________
128function RecorreCentro($cmd){
129        global $AMBITO_GRUPOSAULAS;
130        $rs=new Recordset;
131        $rs->Comando=&$cmd;
132        if (!$rs->Abrir()) return; // Error al abrir recordset
133        $rs->Primero();
134        if(!$rs->EOF){
135                $idcentro=$rs->campos["idcentro"];
136                $cmd->texto="SELECT idgrupo,nombregrupo FROM grupos WHERE idcentro=".$idcentro." AND grupoid=0 AND tipo=".$AMBITO_GRUPOSAULAS." ORDER BY nombregrupo";
137                RecorreGruposAulas($cmd);
138                $cmd->texto="SELECT idaula,nombreaula FROM aulas WHERE idcentro=".$idcentro." AND grupoid=0 ORDER BY nombreaula";
139                RecorreAulas($cmd);
140        }
141        $rs->Cerrar();
142}
143//________________________________________________________________________________________________________
144function RecorreGruposAulas($cmd){
145        global $AMBITO_GRUPOSAULAS;
146        $rs=new Recordset;
147        $rs->Comando=&$cmd;
148        if (!$rs->Abrir()) return; // Error al abrir recordset
149        $rs->Primero();
150        while (!$rs->EOF){
151                $idgrupo=$rs->campos["idgrupo"];
152                $cmd->texto="SELECT idgrupo,nombregrupo FROM grupos WHERE grupoid=".$idgrupo." AND tipo=".$AMBITO_GRUPOSAULAS." ORDER BY nombregrupo";
153                RecorreGruposAulas($cmd);
154                $cmd->texto="SELECT idaula,nombreaula FROM aulas WHERE  grupoid=".$idgrupo." ORDER BY nombreaula";
155                RecorreAulas($cmd);
156                $rs->Siguiente();
157        }
158        $rs->Cerrar();
159}
160//________________________________________________________________________________________________________
161function RecorreAulas($cmd){
162        $rs=new Recordset;
163        $rs->Comando=&$cmd;
164        if (!$rs->Abrir()) return; // Error al abrir recordset
165        $rs->Primero();
166        while (!$rs->EOF){
167                $idaula=$rs->campos["idaula"];
168                $cmd->texto="SELECT idordenador,nombreordenador,ip,mac FROM ordenadores WHERE  idaula=".$idaula;
169                $k=0;
170                RecorreOrdenadores($cmd);
171                $rs->Siguiente();
172        }
173        $rs->Cerrar();
174}
175//________________________________________________________________________________________________________
176function RecorreGruposOrdenadores($cmd){
177        $rs=new Recordset;
178        $rs->Comando=&$cmd;
179        if (!$rs->Abrir()) return; // Error al abrir recordset
180        $rs->Primero();
181        while (!$rs->EOF){
182                $idgrupo=$rs->campos["idgrupo"];
183                $cmd->texto="SELECT idgrupo,nombregrupoordenador FROM gruposOrdenadores WHERE grupoid=".$idgrupo." ORDER BY nombregrupoordenador";
184                RecorreGruposOrdenadores($cmd);
185                $cmd->texto="SELECT idordenador,nombreordenador,ip,mac FROM ordenadores WHERE  grupoid=".$idgrupo;
186                RecorreOrdenadores($cmd);
187                $rs->Siguiente();
188        }
189        $rs->Cerrar();
190}
191//________________________________________________________________________________________________________
192function RecorreOrdenadores($cmd){
193        global $cadenaip;
194        $rs=new Recordset;
195        $rs->Comando=&$cmd;
196        if (!$rs->Abrir()) return; // Error al abrir recordset
197        $rs->Primero();
198        while (!$rs->EOF){
199                $cadenaip.=$rs->campos["ip"].";";
200                $rs->Siguiente();
201        }
202        $rs->Cerrar();
203}
204?>
Note: See TracBrowser for help on using the repository browser.