[6e9cc32] | 1 | <?
|
---|
[b0dc2e4] | 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: Mayo-2005
|
---|
| 7 | // Nombre del fichero: gestor_procedimientos.php
|
---|
| 8 | // Descripción :
|
---|
| 9 | // Gestiona la ejecución de procedimientos
|
---|
| 10 | // *************************************************************************************************************************************************
|
---|
| 11 | include_once("../includes/ctrlacc.php");
|
---|
| 12 | include_once("../clases/AdoPhp.php");
|
---|
| 13 | include_once("../clases/XmlPhp.php");
|
---|
| 14 | include_once("../clases/ArbolVistaXML.php");
|
---|
| 15 | include_once("../clases/SockHidra.php");
|
---|
| 16 | include_once("../includes/CreaComando.php");
|
---|
| 17 | include_once("../includes/constantes.php");
|
---|
| 18 | include_once("../includes/RecopilaIpesMacs.php");
|
---|
| 19 | //________________________________________________________________________________________________________
|
---|
| 20 | $opcion=0; // Inicializa parametros
|
---|
| 21 |
|
---|
| 22 | $idprocedimiento=0;
|
---|
| 23 | $ambito=0;
|
---|
| 24 | $idambito=0;
|
---|
| 25 | $swc=0; // switch de cliente, esta pagina la llama el cliente a través del browser
|
---|
| 26 |
|
---|
| 27 | if (isset($_GET["idprocedimiento"])) $idprocedimiento=$_GET["idprocedimiento"];
|
---|
| 28 | if (isset($_GET["ambito"])) $ambito=$_GET["ambito"];
|
---|
| 29 | if (isset($_GET["idambito"])) $idambito=$_GET["idambito"];
|
---|
| 30 | if (isset($_GET["swc"])) $swc=$_GET["swc"];
|
---|
| 31 |
|
---|
| 32 | $cadenaip="";
|
---|
| 33 | $cadenamac="";
|
---|
| 34 |
|
---|
| 35 | $cmd=CreaComando($cadenaconexion); // Crea objeto comando
|
---|
| 36 | $resul=false;
|
---|
| 37 | if ($cmd){
|
---|
| 38 | $resul=Gestiona();
|
---|
| 39 | $cmd->Conexion->Cerrar();
|
---|
| 40 | }
|
---|
| 41 | // *************************************************************************************************************************************************
|
---|
| 42 | ?>
|
---|
| 43 | <HTML>
|
---|
[857c4ae] | 44 | <HEAD>
|
---|
[a6b881e] | 45 | <meta http-equiv="Content-Type" content="text/html;charset=UTF-8">
|
---|
[b0dc2e4] | 46 | <BODY>
|
---|
| 47 | <?
|
---|
| 48 | $literal="resultado_ejecutar_procedimiento";
|
---|
| 49 | if ($resul){
|
---|
| 50 | if(empty($swc)){
|
---|
| 51 | echo '<SCRIPT language="javascript">'.chr(13);
|
---|
| 52 | echo 'window.parent.'.$literal."(1,'".$cmd->DescripUltimoError()." ',".$idprocedimiento.");".chr(13);
|
---|
| 53 | echo '</SCRIPT>';
|
---|
| 54 | }
|
---|
| 55 | else{
|
---|
| 56 | echo '<SCRIPT language="javascript">'.chr(13);
|
---|
| 57 | echo 'alert("El item se ha ejecutado correctamente");'.chr(13);
|
---|
[857c4ae] | 58 | echo 'var wurl="../varios/menucliente.php?iph='.trim($_SESSION["ogCliente"]).'";';
|
---|
[71e333d] | 59 | echo 'history.back();';
|
---|
[b0dc2e4] | 60 | echo '</SCRIPT>';
|
---|
| 61 | }
|
---|
| 62 | }
|
---|
| 63 | else{
|
---|
| 64 | if(empty($swc)){
|
---|
| 65 | echo '<SCRIPT language="javascript">';
|
---|
| 66 | echo " window.parent.".$literal."(0,'".$cmd->DescripUltimoError()."',".$idprocedimiento.")";
|
---|
| 67 | echo '</SCRIPT>';
|
---|
| 68 | }
|
---|
| 69 | else{
|
---|
| 70 | echo '<SCRIPT language="javascript">'.chr(13);
|
---|
| 71 | echo 'alert("***ATENCIÓN:El item NO se ha podido ejecutar");'.chr(13);
|
---|
[857c4ae] | 72 | echo 'var wurl="../varios/menucliente.php?iph='.trim($_SESSION["ogCliente"]).'";';
|
---|
| 73 | echo 'location.href=wurl;';
|
---|
[b0dc2e4] | 74 | echo '</SCRIPT>';
|
---|
| 75 | }
|
---|
| 76 | }
|
---|
| 77 | ?>
|
---|
| 78 | </BODY>
|
---|
| 79 | </HTML>
|
---|
| 80 | <?
|
---|
| 81 | /**************************************************************************************************************************************************
|
---|
| 82 | Ejecutar un procedimiento para un ambito concreto
|
---|
| 83 | ________________________________________________________________________________________________________*/
|
---|
| 84 | function Gestiona(){
|
---|
| 85 | global $EJECUCION_PROCEDIMIENTO;
|
---|
| 86 |
|
---|
| 87 | global $cmd;
|
---|
| 88 | global $opcion;
|
---|
| 89 |
|
---|
| 90 | global $idcentro;
|
---|
| 91 | global $idprocedimiento;
|
---|
| 92 | global $ambito;
|
---|
| 93 | global $idambito;
|
---|
| 94 |
|
---|
| 95 | global $EJECUCION_COMANDO;
|
---|
| 96 | global $EJECUCION_TAREA;
|
---|
| 97 | global $PROCESOS;
|
---|
| 98 | global $ACCION_INICIADA;
|
---|
| 99 | global $ACCION_SINERRORES;
|
---|
| 100 | global $idcentro;
|
---|
| 101 | global $servidorhidra;
|
---|
| 102 | global $hidraport;
|
---|
| 103 | global $idprocedimiento;
|
---|
| 104 | global $cmd;
|
---|
| 105 |
|
---|
| 106 | global $cadenaip;
|
---|
| 107 |
|
---|
| 108 | $tbComandos="";
|
---|
| 109 | $tabla_comandos="";
|
---|
| 110 | $cont_comandos=0;
|
---|
| 111 |
|
---|
| 112 | RecopilaIpesMacs($cmd,$ambito,$idambito); // Recopila Ipes para la variable parámetros
|
---|
| 113 |
|
---|
| 114 | $rs=new Recordset;
|
---|
| 115 | $cmd->texto="SELECT * FROM procedimientos_comandos WHERE idprocedimiento=".$idprocedimiento;
|
---|
| 116 | $cmd->texto.=" ORDER by procedimientos_comandos.orden";
|
---|
| 117 | $rs->Comando=&$cmd;
|
---|
| 118 | if (!$rs->Abrir()) return(false); // Error al abrir recordset
|
---|
| 119 | $rs->Primero();
|
---|
| 120 | // Recorre tareas-comandos
|
---|
| 121 | while (!$rs->EOF){
|
---|
| 122 | $tbComandos["idcomando"]=$rs->campos["idcomando"];
|
---|
| 123 | $tbComandos["ambito"]=$ambito;
|
---|
| 124 | $tbComandos["idambito"]=$idambito;
|
---|
| 125 | $tbComandos["parametros"]=$rs->campos["parametros"];
|
---|
| 126 | $tbComandos["parametros"].="iph=".$cadenaip.chr(13);
|
---|
| 127 | $tbComandos["idnotificador"]=0;
|
---|
| 128 | $tabla_comandos[$cont_comandos]=$tbComandos;
|
---|
| 129 | $cont_comandos++;
|
---|
| 130 | $rs->Siguiente();
|
---|
| 131 | }
|
---|
| 132 | $rs->Cerrar();
|
---|
| 133 |
|
---|
| 134 | //Creación parametros para inserción
|
---|
| 135 | $cmd->CreaParametro("@tipoaccion","",1);
|
---|
| 136 | $cmd->CreaParametro("@idtipoaccion",0,1);
|
---|
| 137 | $cmd->CreaParametro("@cateaccion",$PROCESOS,1);
|
---|
| 138 | $cmd->CreaParametro("@ambito",0,1);
|
---|
| 139 | $cmd->CreaParametro("@idambito",0,1);
|
---|
| 140 | $cmd->CreaParametro("@ambitskwrk","",0);
|
---|
| 141 | $cmd->CreaParametro("@fechahorareg","",0);
|
---|
| 142 | $cmd->CreaParametro("@estado",$ACCION_INICIADA,0);
|
---|
| 143 | $cmd->CreaParametro("@resultado",$ACCION_SINERRORES,0);
|
---|
| 144 | $cmd->CreaParametro("@idcentro",$idcentro,1);
|
---|
| 145 | $cmd->CreaParametro("@parametros","",0);
|
---|
| 146 | $cmd->CreaParametro("@accionid",0,1);
|
---|
| 147 | $cmd->CreaParametro("@idnotificador",0,1);
|
---|
| 148 |
|
---|
| 149 | // Insertar acciones:comandos
|
---|
| 150 | for ($i=0;$i<$cont_comandos;$i++){
|
---|
| 151 | $tbComandos=$tabla_comandos[$i];
|
---|
| 152 | $cmd->ParamSetValor("@tipoaccion",$EJECUCION_COMANDO);
|
---|
| 153 | $cmd->ParamSetValor("@idtipoaccion",$tbComandos["idcomando"]);
|
---|
| 154 | $cmd->ParamSetValor("@ambito",$tbComandos["ambito"]);
|
---|
| 155 | $cmd->ParamSetValor("@idambito",$tbComandos["idambito"]);
|
---|
| 156 | $cmd->ParamSetValor("@ambitskwrk","");
|
---|
[71e333d] | 157 | $cmd->ParamSetValor("@fechahorareg",date("y/m/d H:i:s"));
|
---|
[b0dc2e4] | 158 | $cmd->ParamSetValor("@parametros",$tbComandos["parametros"]);
|
---|
| 159 | $cmd->ParamSetValor("@accionid",0);
|
---|
[044cd96] | 160 | $cmd->ParamSetValor("@idnotificador",$tbComandos["idnotificador"]); |
---|
| 161 | |
---|
| 162 | if (!isset($_SESSION["ogCliente"])){ |
---|
| 163 | $cmd->texto="INSERT INTO acciones (tipoaccion,idtipoaccion,cateaccion,ambito,idambito,ambitskwrk,fechahorareg,estado,resultado,idcentro,parametros,accionid,idnotificador) VALUES (@tipoaccion,@idtipoaccion,@cateaccion,@ambito,@idambito,@ambitskwrk,@fechahorareg,@estado,@resultado,@idcentro,@parametros,@accionid,@idnotificador)";
|
---|
| 164 | $resul=$cmd->Ejecutar();
|
---|
| 165 | if(!$resul) return(false);
|
---|
| 166 | $tbComandos["parametros"].="ids=".$cmd->Autonumerico().chr(13);
|
---|
| 167 | }
|
---|
[b0dc2e4] | 168 | $shidra=new SockHidra($servidorhidra,$hidraport);
|
---|
| 169 | if ($shidra->conectar()){ // Se ha establecido la conexión con el servidor hidra
|
---|
| 170 | $shidra->envia_comando($tbComandos["parametros"]);
|
---|
| 171 | $shidra->desconectar();
|
---|
| 172 | }
|
---|
| 173 | }
|
---|
| 174 | return(true);
|
---|
| 175 | }
|
---|
| 176 | ?>
|
---|