source: admin/WebConsole/varios/tareascomandos.php @ 72d19da

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-instalacion
Last change on this file since 72d19da was 9f1274e, checked in by ramon <ramongomez@…>, 7 years ago

#804: Sustituir funciones para compatibilidad con PHP 7 (split por explode y ereg... por preg_...).

git-svn-id: https://opengnsys.es/svn/branches/version1.1@5619 a21b9725-9963-47de-94b9-378ad31fedc9
  • Property mode set to 100644
File size: 10.3 KB
Line 
1<?php
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 2009-2010
6// Fecha Última modificación: Agosto-2010
7// Nombre del fichero: tareascomandos.php
8// Descripción :
9//              Administra los comandos que forman parte de una tarea
10// *************************************************************************************************************************************************
11include_once("../includes/ctrlacc.php");
12include_once("../clases/AdoPhp.php");
13include_once("../includes/constantes.php");
14include_once("../includes/comunes.php");
15include_once("../includes/CreaComando.php");
16include_once("../includes/TomaDato.php");
17include_once("../idiomas/php/".$idioma."/tareascomandos_".$idioma.".php");
18//________________________________________________________________________________________________________
19
20$idtarea=0;
21$descripciontarea="";
22if (isset($_GET["idtarea"])) $idtarea=$_GET["idtarea"]; // Recoge parametros
23if (isset($_GET["descripciontarea"])) $descripciontarea=$_GET["descripciontarea"]; // Recoge parametros
24
25$cmd=CreaComando($cadenaconexion); // Crea objeto comando
26if (!$cmd)
27        Header('Location: '.$pagerror.'?herror=2'); // Error de conexión con servidor B.D.
28//________________________________________________________________________________________________________
29?>
30<HTML>
31<HEAD>
32        <meta http-equiv="Content-Type" content="text/html;charset=UTF-8">
33<LINK rel="stylesheet" type="text/css" href="../estilos.css">
34<SCRIPT language="javascript" src="../jscripts/tareascomandos.js"></SCRIPT>
35<SCRIPT language="javascript" src="../jscripts/opciones.js"></SCRIPT>
36<SCRIPT language="javascript" src="../clases/jscripts/HttpLib.js"></SCRIPT>
37<?php echo '<SCRIPT language="javascript" src="../idiomas/javascripts/'.$idioma.'/tareascomandos_'.$idioma.'.js"></SCRIPT>'?>
38</HEAD>
39<BODY>
40<FORM name="fdatos"> 
41        <INPUT type=hidden value="<?php echo $idcentro?>" id=idcentro>   
42        <P align=center class=cabeceras><IMG src="../images/iconos/tareas.gif">&nbsp;<?php echo $TbMsg[0]?><BR>
43        <SPAN align=center class=subcabeceras><?php echo $TbMsg[1]?></SPAN>&nbsp;<IMG src="../images/iconos/comandos.gif"><BR><BR>
44        <SPAN align=center class=presentaciones><B><?php echo $TbMsg[2]?>:&nbsp;</B><?php echo $descripciontarea?></SPAN></P>
45        <DIV align=center id="Layer_componentes">
46                <TABLE class="tabla_listados" cellspacing=1 cellpadding=0 id="TABLACOMANDOS">
47                                <TR height=20>
48                                        <TH><IMG src="../images/iconos/eliminar.gif"></TH>
49                                        <TH align=left>&nbsp;<?php echo $TbMsg[3]?></TH>
50                                        <TH><?php echo $TbMsg[4]?></TH>
51                                        <TH>A</TH>
52                        </TR>
53                <?php
54                        $rs=new Recordset;
55                        $cmd->texto='SELECT  tareas_acciones.*, comandos.descripcion,comandos.visuparametros
56                                                        FROM tareas_acciones
57                                                        INNER JOIN procedimientos ON tareas_acciones.idprocedimiento = procedimientos.idprocedimiento
58                                                        INNER JOIN procedimientos_acciones ON procedimientos.idprocedimiento = procedimientos_acciones.idprocedimiento
59                                                        INNER JOIN comandos ON procedimientos_acciones.idcomando = comandos.idcomando
60                                                        WHERE tareas_acciones.idtarea='.$idtarea.' ORDER BY tareas_acciones.orden';
61                        $rs->Comando=&$cmd;
62                        if ($rs->Abrir()){
63                                $rs->Primero();
64                                $tabla_parametros=""; // Tabla  para localizar parametros
65                                $cont_parametros=0; // Contador de la tabla
66                                CreaTablaParametros($cmd); // Crea tabla  especificaciones de parametros
67                                while (!$rs->EOF){
68                                                 echo '<TR id=TR-'.$rs->campos["idtareacomando"].'>';
69                                                 echo '<TD align=center ><INPUT  id=checkbox-'.$rs->campos["idtareacomando"].' type=checkbox   
70                                                 onclick="gestion_comandos('.$rs->campos["idtareacomando"].',this)" checked ></INPUT></TD>';
71                                                // Descripcion de la comando
72                                                 echo '<TD>&nbsp;'.$rs->campos["descripcion"].'</TD>';
73                                                // Orden del item del item
74                                                echo '<TD align=center >&nbsp;<INPUT class="formulariodatos" id=orden-'.$rs->campos["idtareacomando"].'
75                                                style="WIDTH:20px" type=text value="'.$rs->campos["orden"].'"></INPUT></TD>';
76                                                echo '<TD width="10%" align=center id="imgact-'.$rs->campos["idtareacomando"].'">
77                                                <IMG src="../images/iconos/actualizar.gif" style="cursor:hand" onclick="ActualizarAccion('.$rs->campos["idtareacomando"].')"></TD>';
78                                                echo '</TR>';
79                                                pintacomandos($cmd,$rs);
80                                        echo  '<TR height=3><TD style="BACKGROUND-COLOR: #999999;" colspan=5></TD></TR>'.chr(13);
81                                                $rs->Siguiente();
82                                }
83                        }
84                        $rs->Cerrar();
85                ?>
86                </TABLE>
87        </DIV>         
88        <DIV id="Layer_nota"  align=center>
89                <br>
90                <span align=left class=notas><I><?php echo $TbMsg[7]?>.</I></span>
91        </DIV>
92</FORM>
93</BODY>
94</HTML>
95<?php
96// *************************************************************************************************************************************************
97function pintacomandos($cmd,$rs){
98        global $TbMsg;
99        global $AMBITO_CENTROS;
100        global $AMBITO_GRUPOSAULAS;
101        global $AMBITO_AULAS;
102        global $AMBITO_GRUPOSORDENADORES;
103        global $AMBITO_ORDENADORES;
104        global  $tabla_parametros;
105        global  $cont_parametros;
106
107        $HTMLparametros='<TR  id="PAR-'.$rs->campos["idtareacomando"].'">'.chr(13);
108        $HTMLparametros.= '<TD>&nbsp;</TD>'.chr(13);
109        $HTMLparametros.= '<TH style="FONT-WEIGHT: 700;COLOR: #000000;BACKGROUND-COLOR: #D4D4D4; " >'.$TbMsg[5].'</TH>'.chr(13);
110        $HTMLparametros.= '<TH style="FONT-WEIGHT: 700;COLOR: #000000;BACKGROUND-COLOR: #D4D4D4;" >'.$TbMsg[6].'</TH>'.chr(13);
111        $HTMLparametros.= '<TH style="FONT-WEIGHT: 700;COLOR: #000000;BACKGROUND-COLOR: #D4D4D4;" >&nbsp;</TH>'.chr(13);
112        $HTMLparametros.= '</TR>'.chr(13);
113
114        $textambito="";
115        $urlimg="";
116        $nombre="";
117        switch($rs->campos["ambito"]){
118                case $AMBITO_CENTROS :
119                        $urlimg='../images/iconos/centros.gif';
120                        $textambito="Center";
121                        $nombre=TomaDato($cmd,0,'centros',$rs->campos["idambito"],'idcentro','nombrecentro');
122                        break;
123                case $AMBITO_GRUPOSAULAS :
124                        $urlimg='../images/iconos/carpeta.gif';
125                        $textambito="Group of labs";
126                        $nombre=TomaDato($cmd,0,'grupos',$rs->campos["idambito"],'idgrupo','nombregrupo');
127                        break;
128                case $AMBITO_AULAS :
129                        $urlimg='../images/iconos/aula.gif';
130                        $textambito="Labs";
131                        $nombre=TomaDato($cmd,0,'aulas',$rs->campos["idambito"],'idaula','nombreaula');
132                        break;
133                case $AMBITO_GRUPOSORDENADORES :
134                        $urlimg='../images/iconos/carpeta.gif';
135                        $textambito="Group of computers";
136                        $nombre=TomaDato($cmd,0,'gruposordenadores',$rs->campos["idambito"],'idgrupo','nombregrupoordenador');
137                        break;
138                case $AMBITO_ORDENADORES :
139                        $urlimg='../images/iconos/ordenador.gif';
140                        $textambito="Computers";
141                        $nombre=TomaDato($cmd,0,'ordenadores',$rs->campos["idambito"],'idordenador','nombreordenador');
142                        break;
143        }
144        $HTMLparametros.='<TR  id="PAR-'.$rs->campos["idtareacomando"].'">'.chr(13);
145        $HTMLparametros.= '<TD>&nbsp;</TD>'.chr(13);
146        $HTMLparametros.= '<TD style="BACKGROUND-COLOR: #b5daad;">&nbsp;'.$TbMsg[8].'&nbsp;</TD>'.chr(13);
147        $HTMLparametros.= '<TD style="BACKGROUND-COLOR: #b5daad;">&nbsp;'.$textambito.'&nbsp;';
148        $HTMLparametros.= '<IMG src="'.$urlimg.'">&nbsp;</TD>'.chr(13);
149        $HTMLparametros.=  '<TH style="FONT-WEIGHT: 700;COLOR: #000000;BACKGROUND-COLOR: #b5daad;" >&nbsp;</TH>'.chr(13);
150        $HTMLparametros.=       '</TR>';
151
152        $HTMLparametros.='<TR  id="PAR-'.$rs->campos["idtareacomando"].'">'.chr(13);
153        $HTMLparametros.= '<TD>&nbsp;</TD>'.chr(13);
154        $HTMLparametros.= '<TD style="BACKGROUND-COLOR: #b5daad;">&nbsp;'.$TbMsg[9].'&nbsp;</TD>'.chr(13);
155        $HTMLparametros.= '<TD style="BACKGROUND-COLOR: #b5daad;">&nbsp;'.$nombre.'&nbsp;</TD>'.chr(13);
156        $HTMLparametros.=  '<TH style="FONT-WEIGHT: 700;COLOR: #000000;BACKGROUND-COLOR: #b5daad;" >&nbsp;</TH>'.chr(13);
157        $HTMLparametros.=       '</TR>';
158
159        $auxVP=explode(";",$rs->campos["visuparametros"]); // Parametros visualizables
160        $auxP=explode(chr(13),$rs->campos["parametros"]); // Recorre parametros para visualizar los que así sean
161        for ($i=0;$i<sizeof($auxP);$i++){
162                $dualparam=explode("=",$auxP[$i]);
163                for ($k=0;$k<sizeof($auxVP);$k++){
164                         if($auxVP[$k]==$dualparam[0]){
165                                $posp=busca_indicebinariodual($dualparam[0],$tabla_parametros,$cont_parametros); // Busca datos del parámetro en la tabla cargada previamentre con todos los parámetros
166                                if ($posp>=0){
167                                        $auxtabla_parametros=$tabla_parametros[$posp][1];
168                                        $HTMLparametros.='<TR  id="PAR-'.$rs->campos["idtareacomando"].'">'.chr(13);
169                                        $HTMLparametros.= '<TD>&nbsp;</TD>'.chr(13);
170                                        $HTMLparametros.=  '<TD style="BACKGROUND-COLOR: #b5daad;">&nbsp;'.$auxtabla_parametros["descripcion"].'&nbsp;</TD>'.chr(13);
171                                        if($auxtabla_parametros["tipopa"]==1){
172                                        $valor=TomaDato($cmd,0,$auxtabla_parametros["nomtabla"],$dualparam[1],$auxtabla_parametros["nomidentificador"],$auxtabla_parametros["nomliteral"]);
173                                        }else
174                                                $valor=$dualparam[1];
175                                        if($dualparam[0]!="iph")
176                                                        $HTMLparametros.=  '<TD style="BACKGROUND-COLOR: #b5daad;">&nbsp;'.$valor.'&nbsp;</TD>'.chr(13);
177                                        else{
178                                                        $tablaipes=PintaOrdenadores($cmd,$valor);
179                                                        $HTMLparametros.=  '<TD style="BACKGROUND-COLOR: #b5daad;">&nbsp;'.$tablaipes.'&nbsp;</TD>'.chr(13);
180                                        }
181                                        $HTMLparametros.=  '<TH style="FONT-WEIGHT: 700;COLOR: #000000;BACKGROUND-COLOR: #b5daad;" >&nbsp;</TH>'.chr(13);
182                                        $HTMLparametros.=  '</TR>'.chr(13);
183                                }
184                        }
185                }
186        }
187        echo  $HTMLparametros;
188}
189//________________________________________________________________________________________________________
190function PintaOrdenadores($cmd,$cadenaip){
191        $auxP=explode(";",$cadenaip);
192        if(sizeof($auxP)<1) return("");
193        $clauslaIN="'".$auxP[0]."'";
194        for ($i=1;$i<sizeof($auxP);$i++)
195                $clauslaIN.=",'".$auxP[$i]."'";
196        $rs=new Recordset;
197        $contor=0;
198        $maxord=7; // Máximos ordenadores por linea
199        $cmd->texto=" SELECT nombreordenador,ip FROM ordenadores  INNER JOIN aulas ON aulas.idaula=ordenadores.idaula WHERE ip IN(".$clauslaIN.") ORDER by nombreaula,nombreordenador";
200        $rs->Comando=&$cmd;
201        if (!$rs->Abrir()) return(""); // Error al abrir recordset
202        $tablaHtml='<TABLE align=left border=0><TR>';
203        while (!$rs->EOF){
204                $contor++;
205                $tablaHtml.= '<TD align=center style="BACKGROUND-COLOR: #b5daad;FONT-FAMILY: Arial, Helvetica, sans-serif;      BORDER-BOTTOM:#000000 none;FONT-SIZE: 8px">
206                                        <IMG src="../images/iconos/ordenador.gif"><br><span style="FONT-SIZE:9px" >'.$rs->campos["nombreordenador"].'</TD>';
207                if($contor>$maxord){
208                        $contor=0;
209                        $tablaHtml.='</TR><TR>';
210                }
211                $rs->Siguiente();
212        }
213        $tablaHtml.='</TR>';
214        $tablaHtml.= '</TR></TABLE>';
215        return($tablaHtml);
216}
Note: See TracBrowser for help on using the repository browser.