summaryrefslogtreecommitdiffstats
path: root/admin/WebConsole/varios/procedimientoscomandos.php
diff options
context:
space:
mode:
Diffstat (limited to 'admin/WebConsole/varios/procedimientoscomandos.php')
-rw-r--r--admin/WebConsole/varios/procedimientoscomandos.php169
1 files changed, 169 insertions, 0 deletions
diff --git a/admin/WebConsole/varios/procedimientoscomandos.php b/admin/WebConsole/varios/procedimientoscomandos.php
new file mode 100644
index 00000000..89ab0ea6
--- /dev/null
+++ b/admin/WebConsole/varios/procedimientoscomandos.php
@@ -0,0 +1,169 @@
+<?
+// *************************************************************************************************************************************************
+// Aplicación WEB: ogAdmWebCon
+// Autor: José Manuel Alonso (E.T.S.I.I.) Universidad de Sevilla
+// Fecha Creación: Año 2009-2010
+// Fecha Última modificación: Agosto-2010
+// Nombre del fichero: procedimientoscomandos.php
+// Descripción :
+// Administra los comandos que forman parte de un procedimiento
+// *************************************************************************************************************************************************
+include_once("../includes/ctrlacc.php");
+include_once("../clases/AdoPhp.php");
+include_once("../includes/constantes.php");
+include_once("../includes/comunes.php");
+include_once("../includes/CreaComando.php");
+include_once("../includes/TomaDato.php");
+include_once("../idiomas/php/".$idioma."/procedimientoscomandos_".$idioma.".php");
+//________________________________________________________________________________________________________
+$idprocedimiento=0;
+$descripcionprocedimiento="";
+if (isset($_GET["idprocedimiento"])) $idprocedimiento=$_GET["idprocedimiento"]; // Recoge parametros
+if (isset($_GET["descripcionprocedimiento"])) $descripcionprocedimiento=$_GET["descripcionprocedimiento"]; // Recoge parametros
+
+$cmd=CreaComando($cadenaconexion); // Crea objeto comando
+if (!$cmd)
+ Header('Location: '.$pagerror.'?herror=2'); // Error de conexión con servidor B.D.
+//________________________________________________________________________________________________________
+?>
+<HTML>
+<HEAD>
+ <meta http-equiv="Content-Type" content="text/html;charset=UTF-8">
+<LINK rel="stylesheet" type="text/css" href="../estilos.css">
+<SCRIPT language="javascript" src="../jscripts/procedimientoscomandos.js"></SCRIPT>
+<SCRIPT language="javascript" src="../jscripts/opciones.js"></SCRIPT>
+<SCRIPT language="javascript" src="../clases/jscripts/HttpLib.js"></SCRIPT>
+<? echo '<SCRIPT language="javascript" src="../idiomas/javascripts/'.$idioma.'/procedimientoscomandos_'.$idioma.'.js"></SCRIPT>'?>
+</HEAD>
+<BODY>
+<FORM name="fdatos">
+ <INPUT type=hidden value="<? echo $idcentro?>" id=idcentro>
+ <P align=center class=cabeceras><IMG src="../images/iconos/procedimiento.gif">&nbsp;<?echo $TbMsg[0]?><BR>
+ <SPAN align=center class=subcabeceras><?echo $TbMsg[1]?></span>&nbsp;<img src="../images/iconos/comandos.gif"><BR><BR>
+ <SPAN align=center class=presentaciones><B><?echo $TbMsg[2]?>:&nbsp;</B><? echo $descripcionprocedimiento?></SPAN></P>
+ <TABLE align=center class="tabla_listados" cellspacing=1 cellpadding=0 id="TABLACOMANDOS">
+ <TR height=20>
+ <TH ><IMG src="../images/iconos/eliminar.gif"></TH>
+ <TH colspan=2 align=left>&nbsp;<?echo $TbMsg[3]?></TH>
+ <TH ><?echo $TbMsg[4]?></TH>
+ <TH >A</TH>
+ </TR>
+ <?
+ $rs=new Recordset;
+ $cmd->texto='SELECT procedimientos_acciones.*, comandos.descripcion,comandos.visuparametros
+ FROM procedimientos_acciones
+ INNER JOIN comandos ON procedimientos_acciones.idcomando = comandos.idcomando
+ WHERE procedimientos_acciones.idprocedimiento='.$idprocedimiento.'
+ ORDER BY procedimientos_acciones.orden';
+
+ $rs->Comando=&$cmd;
+ if ($rs->Abrir()){
+ $rs->Primero();
+ $tabla_parametros=""; // Tabla para localizar parametros
+ $cont_parametros=0; // Contador de la tabla
+ CreaTablaParametros($cmd); // Crea tabla especificaciones de parametros
+ while (!$rs->EOF){
+ echo '<TR height=20 id=TR-'.$rs->campos["idprocedimientocomando"].'>';
+ echo '<TD align=center ><INPUT id=checkbox-'.$rs->campos["idprocedimientocomando"].' type=checkbox
+ onclick="gestion_comandos('.$rs->campos["idprocedimientocomando"].',this)" checked ></INPUT></TD>';
+ // Descripcion de la comando
+ echo '<TD colspan=2>&nbsp;'.$rs->campos["descripcion"].'</TD>';
+ // Orden del item del item
+ echo '<TD valign="meddle" align=center >&nbsp;<INPUT class="formulariodatos" id=orden-'.$rs->campos["idprocedimientocomando"].'
+ style="WIDTH:20px" type=text value="'.$rs->campos["orden"].'"></INPUT></TD>';
+ echo '<TD align=center id="imgact-'.$rs->campos["idprocedimientocomando"].'">
+ <IMG src="../images/iconos/actualizar.gif" onclick="ActualizarAccion('.$rs->campos["idprocedimientocomando"].')"></TD>';
+ echo '</TR>';
+ pintacomandos($cmd,$rs);
+ echo '<TR height=3><TD style="BACKGROUND-COLOR: #999999;" colspan=5></TD></TR>'.chr(13);
+ $rs->Siguiente();
+ }
+ }
+ $rs->Cerrar();
+ ?>
+ </TABLE>
+ <br>
+ <P align=center><span align=center class=notas><I><?echo $TbMsg[7]?>.</I></P>
+</FORM>
+</BODY>
+</HTML>
+<?
+// *************************************************************************************************************************************************
+function pintacomandos($cmd,$rs){
+ global $TbMsg;
+ global $AMBITO_CENTROS;
+ global $AMBITO_GRUPOSAULAS;
+ global $AMBITO_AULAS;
+ global $AMBITO_GRUPOSORDENADORES;
+ global $AMBITO_ORDENADORES;
+ global $tabla_parametros;
+ global $cont_parametros;
+
+ $HTMLparametros='<TR id="PAR-'.$rs->campos["idprocedimientocomando"].'" >'.chr(13);
+ $HTMLparametros.= '<TD>&nbsp;</TD>'.chr(13);
+ $HTMLparametros.= '<TH style="FONT-WEIGHT: 700;COLOR: #000000;BACKGROUND-COLOR: #D4D4D4; " >'.$TbMsg[5].'</TH>'.chr(13);
+ $HTMLparametros.= '<TH style="FONT-WEIGHT: 700;COLOR: #000000;BACKGROUND-COLOR: #D4D4D4;" >'.$TbMsg[6].'</TH>'.chr(13);
+ $HTMLparametros.= '<TH style="FONT-WEIGHT: 700;COLOR: #000000;BACKGROUND-COLOR: #D4D4D4;" >&nbsp;</TH>'.chr(13);
+ $HTMLparametros.= '<TH style="FONT-WEIGHT: 700;COLOR: #000000;BACKGROUND-COLOR: #D4D4D4;" >&nbsp;</TH>'.chr(13);
+ $HTMLparametros.= '</TR>'.chr(13);
+
+ $urlimg="";
+ $auxVP=split(";",$rs->campos["visuparametros"]); // Parametros visualizables
+ $auxP=split(chr(13),$rs->campos["parametros"]); // Recorre parametros para visualizar los que así sean
+
+ for ($i=0;$i<sizeof($auxP);$i++){ // Por cada parametros del comando...
+ $dualparam=split("=",$auxP[$i]);
+ for ($k=0;$k<sizeof($auxVP);$k++){
+ if($auxVP[$k]==$dualparam[0]){
+ $posp=busca_indicebinariodual($dualparam[0],$tabla_parametros,$cont_parametros); // Busca datos del parámetro en la tabla cargada previamentre con todos los parámetros
+ if ($posp>=0){
+ $auxtabla_parametros=$tabla_parametros[$posp][1];
+ $HTMLparametros.='<TR id="PAR-'.$rs->campos["idprocedimientocomando"].'" >'.chr(13);
+ $HTMLparametros.= '<TD>&nbsp;</TD>'.chr(13);
+ $HTMLparametros.= '<TD style="BACKGROUND-COLOR: #b5daad;">&nbsp;'.$auxtabla_parametros["descripcion"].'&nbsp;</TD>'.chr(13);
+ if($auxtabla_parametros["tipopa"]==1){
+ $valor=TomaDato($cmd,0,$auxtabla_parametros["nomtabla"],$dualparam[1],$auxtabla_parametros["nomidentificador"],$auxtabla_parametros["nomliteral"]);
+ }else
+ $valor=$dualparam[1];
+ if($dualparam[0]!="iph")
+ $HTMLparametros.= '<TD style="BACKGROUND-COLOR: #b5daad;">&nbsp;'.$valor.'&nbsp;</TD>'.chr(13);
+ else{
+ $tablaipes=PintaOrdenadores($cmd,$valor);
+ $HTMLparametros.= '<TD style="BACKGROUND-COLOR: #b5daad;">&nbsp;'.$tablaipes.'&nbsp;</TD>'.chr(13);
+ }
+ $HTMLparametros.= '<TD>&nbsp;</TD>'.chr(13);
+ $HTMLparametros.= '<TD>&nbsp;</TD>'.chr(13);
+ $HTMLparametros.= '</TR>'.chr(13);
+ }
+ }
+ }
+ }
+ echo $HTMLparametros;
+}
+//________________________________________________________________________________________________________
+function PintaOrdenadores($cmd,$cadenaip){
+ $auxP=split(";",$cadenaip);
+ if(sizeof($auxP)<1) return("");
+ $clauslaIN="'".$auxP[0]."'";
+ for ($i=1;$i<sizeof($auxP);$i++)
+ $clauslaIN.=",'".$auxP[$i]."'";
+ $rs=new Recordset;
+ $contor=0;
+ $maxord=7; // Máximos ordenadores por linea
+ $cmd->texto=" SELECT nombreordenador,ip FROM ordenadores INNER JOIN aulas ON aulas.idaula=ordenadores.idaula WHERE ip IN(".$clauslaIN.") ORDER by nombreaula,nombreordenador";
+ $rs->Comando=&$cmd;
+ if (!$rs->Abrir()) return(""); // Error al abrir recordset
+ $tablaHtml='<TABLE align=left border=0><TR>';
+ while (!$rs->EOF){
+ $contor++;
+ $tablaHtml.= '<TD align=center style="BACKGROUND-COLOR: #b5daad;FONT-FAMILY: Arial, Helvetica, sans-serif; BORDER-BOTTOM:#000000 none;FONT-SIZE: 8px"><IMG src="../images/iconos/ordenador.gif"><br><span style="FONT-SIZE:9px" >'.$rs->campos["nombreordenador"].'</TD>';
+ if($contor>$maxord){
+ $contor=0;
+ $tablaHtml.='</TR><TR>';
+ }
+ $rs->Siguiente();
+ }
+ $tablaHtml.='</TR>';
+ $tablaHtml.= '</TR></TABLE>';
+ return($tablaHtml);
+}