source: admin/WebConsole/principal/purgar.php @ dc00c0f

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 dc00c0f 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: 6.1 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."/purgar_".$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$cmd=CreaComando($cadenaconexion);
25if (!$cmd)
26        Header('Location: '.$pagerror.'?herror=2'); // Error de conexión con servidor B.D.
27//________________________________________________________________________________________________________
28$cadenaip="";
29switch($litambito){
30        case $LITAMBITO_CENTROS :
31                $cmd->texto="SELECT idcentro,nombrecentro FROM centros WHERE idcentro=".$idambito;
32                RecorreCentro($cmd);
33                break;
34        case $LITAMBITO_GRUPOSAULAS :
35                $cmd->texto="SELECT idgrupo,nombregrupo FROM grupos WHERE idgrupo=".$idambito." AND tipo=".$AMBITO_GRUPOSAULAS;
36                RecorreGruposAulas($cmd);
37                break;
38        case $LITAMBITO_AULAS :
39                $cmd->texto="SELECT idaula,nombreaula FROM aulas WHERE idaula=".$idambito;
40                RecorreAulas($cmd);
41                break;
42        case $LITAMBITO_GRUPOSORDENADORES :
43                $cmd->texto="SELECT idgrupo,nombregrupoordenador FROM gruposordenadores WHERE idgrupo=".$idambito;
44                RecorreGruposOrdenadores($cmd);
45                break;
46        case $LITAMBITO_ORDENADORES :
47                $cmd->texto="SELECT ip FROM ordenadores WHERE idordenador=".$idambito;
48                RecorreOrdenadores($cmd);
49                break;
50}
51$shidra=new SockHidra($servidorhidra,$hidraport);
52$parametros="1"; // Ejecutor
53$parametros.="nfn=Purgar".chr(13);
54$parametros.="iph=".$cadenaip.chr(13);
55$resul=manda_trama();
56// *************************************************************************************************************************************************
57?>
58<HTML>
59<TITLE>" Administración web de aulas"</TITLE>
60<HEAD>
61        <meta http-equiv="Content-Type" content="text/html;charset=UTF-8">
62</HEAD>
63<BODY>
64<?
65        echo '<SCRIPT language="javascript">';
66         if($resul)
67                echo "alert('".$TbMsg[0]."');";
68         else
69                echo "alert('".$TbMsg[1]."');";
70        echo '  self.close();';
71        echo '</SCRIPT>';
72?>
73</BODY>
74</HTML>
75<?
76//________________________________________________________________________________________________________
77//
78//      Manda una trama del comando Actualizar
79//________________________________________________________________________________________________________
80function manda_trama(){
81        global $parametros;
82        global $shidra;
83        if ($shidra->conectar()){ // Se ha establecido la conexión con el servidor hidra
84                $shidra->envia_comando($parametros);
85                $shidra->desconectar();
86                return(true);
87        }
88        return(false);
89}
90//________________________________________________________________________________________________________
91function RecorreCentro($cmd){
92        global $AMBITO_GRUPOSAULAS;
93        $rs=new Recordset;
94        $rs->Comando=&$cmd;
95        if (!$rs->Abrir()) return; // Error al abrir recordset
96        $rs->Primero();
97        if(!$rs->EOF){
98                $idcentro=$rs->campos["idcentro"];
99                $cmd->texto="SELECT idgrupo,nombregrupo FROM grupos WHERE idcentro=".$idcentro." AND grupoid=0 AND tipo=".$AMBITO_GRUPOSAULAS." ORDER BY nombregrupo";
100                RecorreGruposAulas($cmd);
101                $cmd->texto="SELECT idaula,nombreaula FROM aulas WHERE idcentro=".$idcentro." AND grupoid=0 ORDER BY nombreaula";
102                RecorreAulas($cmd);
103        }
104        $rs->Cerrar();
105}
106//________________________________________________________________________________________________________
107function RecorreGruposAulas($cmd){
108        global $AMBITO_GRUPOSAULAS;
109        $rs=new Recordset;
110        $rs->Comando=&$cmd;
111        if (!$rs->Abrir()) return; // Error al abrir recordset
112        $rs->Primero();
113        while (!$rs->EOF){
114                $idgrupo=$rs->campos["idgrupo"];
115                $cmd->texto="SELECT idgrupo,nombregrupo FROM gruposaulas WHERE grupoid=".$idgrupo." AND tipo=".$AMBITO_GRUPOSAULAS." ORDER BY nombregrupo";
116                RecorreGruposAulas($cmd);
117                $cmd->texto="SELECT idaula,nombreaula FROM aulas WHERE  grupoid=".$idgrupo." ORDER BY nombreaula";
118                RecorreAulas($cmd);
119                $rs->Siguiente();
120        }
121        $rs->Cerrar();
122}
123//________________________________________________________________________________________________________
124function RecorreAulas($cmd){
125        $rs=new Recordset;
126        $rs->Comando=&$cmd;
127        if (!$rs->Abrir()) return; // Error al abrir recordset
128        $rs->Primero();
129        while (!$rs->EOF){
130                $idaula=$rs->campos["idaula"];
131                $cmd->texto="SELECT idordenador,nombreordenador,ip,mac FROM ordenadores WHERE  idaula=".$idaula;
132                $k=0;
133                RecorreOrdenadores($cmd);
134                $rs->Siguiente();
135        }
136        $rs->Cerrar();
137}
138//________________________________________________________________________________________________________
139function RecorreGruposOrdenadores($cmd){
140        $rs=new Recordset;
141        $rs->Comando=&$cmd;
142        if (!$rs->Abrir()) return; // Error al abrir recordset
143        $rs->Primero();
144        while (!$rs->EOF){
145                $idgrupo=$rs->campos["idgrupo"];
146                $cmd->texto="SELECT idgrupo,nombregrupoordenador FROM gruposOrdenadores WHERE grupoid=".$idgrupo." ORDER BY nombregrupoordenador";
147                RecorreGruposOrdenadores($cmd);
148                $cmd->texto="SELECT idordenador,nombreordenador,ip,mac FROM ordenadores WHERE  grupoid=".$idgrupo;
149                RecorreOrdenadores($cmd);
150                $rs->Siguiente();
151        }
152        $rs->Cerrar();
153}
154//________________________________________________________________________________________________________
155function RecorreOrdenadores($cmd){
156        global $cadenaip;
157        $rs=new Recordset;
158        $rs->Comando=&$cmd;
159        if (!$rs->Abrir()) return; // Error al abrir recordset
160        $rs->Primero();
161        while (!$rs->EOF){
162                $cadenaip.=$rs->campos["ip"].";";
163                $rs->Siguiente();
164        }
165        $rs->Cerrar();
166}
167?>
Note: See TracBrowser for help on using the repository browser.