| 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: Marzo-2005 |
|---|
| 7 | // Nombre del fichero: gestor_Apagar.php |
|---|
| 8 | // Descripción : |
|---|
| 9 | // Gestor del comando "Apagar" |
|---|
| 10 | // ************************************************************************************************************************************************* |
|---|
| 11 | include_once("../../includes/ctrlacc.php"); |
|---|
| 12 | include_once("../../clases/AdoPhp.php"); |
|---|
| 13 | include_once("../../clases/SockHidra.php"); |
|---|
| 14 | include_once("../../includes/constantes.php"); |
|---|
| 15 | include_once("../../includes/comunes.php"); |
|---|
| 16 | include_once("../../includes/cuestionacciones.php"); |
|---|
| 17 | include_once("../../includes/CreaComando.php"); |
|---|
| 18 | //________________________________________________________________________________________________________ |
|---|
| 19 | $identificador=0; |
|---|
| 20 | $nombrefuncion=""; |
|---|
| 21 | $ejecutor=""; |
|---|
| 22 | $cadenaip=""; |
|---|
| 23 | |
|---|
| 24 | include_once("../../includes/cuestionaccionescab.php"); |
|---|
| 25 | |
|---|
| 26 | $fp = fopen('../'.$fileparam,"r"); |
|---|
| 27 | $parametros= fread ($fp, filesize ("../".$fileparam)); |
|---|
| 28 | fclose($fp); |
|---|
| 29 | |
|---|
| 30 | $ValorParametros=extrae_parametros($parametros,chr(13),'='); |
|---|
| 31 | $identificador=$ValorParametros["identificador"]; |
|---|
| 32 | $nombrefuncion=$ValorParametros["nombrefuncion"]; |
|---|
| 33 | $ejecutor=$ValorParametros["ejecutor"]; |
|---|
| 34 | $cadenaip=$ValorParametros["cadenaip"]; |
|---|
| 35 | $ambito=$ValorParametros["ambito"]; |
|---|
| 36 | $idambito=$ValorParametros["idambito"]; |
|---|
| 37 | |
|---|
| 38 | $cmd=CreaComando($cadenaconexion); // Crea objeto comando |
|---|
| 39 | $resul=false; |
|---|
| 40 | if ($cmd){ |
|---|
| 41 | $resul=Gestiona($cmd); |
|---|
| 42 | $cmd->Conexion->Cerrar(); |
|---|
| 43 | } |
|---|
| 44 | //________________________________________________________________________________________________________ |
|---|
| 45 | ?> |
|---|
| 46 | <HTML> |
|---|
| 47 | <HEAD> |
|---|
| 48 | <meta http-equiv="Content-Type" content="text/html;charset=UTF-8"> |
|---|
| 49 | <BODY> |
|---|
| 50 | <? |
|---|
| 51 | if ($resul){ |
|---|
| 52 | echo '<SCRIPT language="javascript">'; |
|---|
| 53 | echo 'window.parent.resultado_apagar(1)'.chr(13); |
|---|
| 54 | echo '</SCRIPT>'; |
|---|
| 55 | } |
|---|
| 56 | else{ |
|---|
| 57 | echo '<SCRIPT language="javascript">'; |
|---|
| 58 | echo 'window.parent.resultado_apagar(0)'.chr(13); |
|---|
| 59 | echo '</SCRIPT>'; |
|---|
| 60 | } |
|---|
| 61 | ?> |
|---|
| 62 | </BODY> |
|---|
| 63 | </HTML> |
|---|
| 64 | <? |
|---|
| 65 | // ************************************************************************************************************************************************* |
|---|
| 66 | function Gestiona($cmd){ |
|---|
| 67 | global $ACCION_SINERRORES; // Activa y con algún error |
|---|
| 68 | global $ACCION_INICIADA; |
|---|
| 69 | global $idcentro; |
|---|
| 70 | global $identificador; |
|---|
| 71 | global $nombrefuncion; |
|---|
| 72 | global $ejecutor; |
|---|
| 73 | global $cadenaip; |
|---|
| 74 | global $ambito; |
|---|
| 75 | global $idambito; |
|---|
| 76 | global $EJECUCION_COMANDO; |
|---|
| 77 | global $PROCESOS; |
|---|
| 78 | global $servidorhidra; |
|---|
| 79 | global $hidraport; |
|---|
| 80 | |
|---|
| 81 | $shidra=new SockHidra($servidorhidra,$hidraport); |
|---|
| 82 | |
|---|
| 83 | $cmd->CreaParametro("@tipoaccion",$EJECUCION_COMANDO,1); |
|---|
| 84 | $cmd->CreaParametro("@idtipoaccion",$identificador,1); |
|---|
| 85 | $cmd->CreaParametro("@cateaccion",$PROCESOS,1); |
|---|
| 86 | $cmd->CreaParametro("@ambito",$ambito,1); |
|---|
| 87 | $cmd->CreaParametro("@idambito",$idambito,1); |
|---|
| 88 | $cmd->CreaParametro("@fechahorareg",date("y/m/d H:i:s"),0); |
|---|
| 89 | $cmd->CreaParametro("@estado",$ACCION_INICIADA,0); |
|---|
| 90 | $cmd->CreaParametro("@resultado",$ACCION_SINERRORES,0); |
|---|
| 91 | $cmd->CreaParametro("@idcentro",$idcentro,1); |
|---|
| 92 | $cmd->CreaParametro("@parametros","",0); |
|---|
| 93 | |
|---|
| 94 | $cmd->CreaParametro("@descripcion","",0); |
|---|
| 95 | $cmd->CreaParametro("@idtarea",0,1); |
|---|
| 96 | $cmd->CreaParametro("@idprocedimiento",0,1); |
|---|
| 97 | $cmd->CreaParametro("@idcomando",0,1); |
|---|
| 98 | |
|---|
| 99 | $parametros=$ejecutor; |
|---|
| 100 | $parametros.="nfn=".$nombrefuncion.chr(13); |
|---|
| 101 | $parametros.="iph=".$cadenaip.chr(13); |
|---|
| 102 | $cmd->ParamSetValor("@parametros",$parametros); |
|---|
| 103 | |
|---|
| 104 | return(CuestionAcciones($cmd,$shidra,$parametros)); |
|---|
| 105 | } |
|---|
| 106 | ?> |
|---|
