source: admin/WebConsole/comandos/gestores/gestor_Configurar.php @ e02f9b4

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 e02f9b4 was 6e9cc32, checked in by ramon <ramongomez@…>, 16 years ago

Borrar caracteres BOM de UTF-8 en ficheros PHP de WebConsole?.

git-svn-id: https://opengnsys.es/svn/trunk@514 a21b9725-9963-47de-94b9-378ad31fedc9
  • Property mode set to 100644
File size: 5.0 KB
RevLine 
[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: Marzo-2005
7// Nombre del fichero: gestor_Configurar.php
8// Descripción :
9//              Gestor del comando "Configurar"
10// *************************************************************************************************************************************************
11include_once("../../includes/ctrlacc.php");
12include_once("../../clases/AdoPhp.php");
13include_once("../../clases/SockHidra.php");
14include_once("../../includes/constantes.php");
15include_once("../../includes/comunes.php");
16include_once("../../includes/cuestionacciones.php");
17include_once("../../includes/CreaComando.php");
18//________________________________________________________________________________________________________
19$identificador=0;
20$nombrefuncion="";
21$ejecutor="";
22$tipotrama="";
23$ambito=0;
24$idambito=0;
25$cadenaip="";
26$particiones="";
27
28$parametros="";
29if (isset($_GET["parametros"])) $parametros=$_GET["parametros"];
30
31include_once("../../includes/cuestionaccionescab.php");
32
33$resul=false;
34$cmd=CreaComando($cadenaconexion); // Crea objeto comando
35if ($cmd){
36                $auxsplit=split("\t",$parametros);
37                $numpar=sizeof($auxsplit);
38                for($j=0;$j<$numpar-1;$j++){
39                        $ValorParametros=extrae_parametros($auxsplit[$j],chr(13),'=');
40                        $identificador=$ValorParametros["identificador"];
41                        $nombrefuncion=$ValorParametros["nombrefuncion"];
42                        $ejecutor=$ValorParametros["ejecutor"];
43                        $tipotrama=$ValorParametros["tipotrama"];
44                        $ambito=$ValorParametros["ambito"];
45                        $idambito=$ValorParametros["idambito"];
46                        $cadenaip=$ValorParametros["cadenaip"];
47                        $particiones=$ValorParametros["particiones"];
48                        $resul=false;
49                        $idaula=$idambito;
50                        $resul=Gestiona($cmd);
51                        if(!$resul) break;
52                }
53}
54$cmd->Conexion->Cerrar();
55//________________________________________________________________________________________________________
56?>
57<HTML>
58<HEAD>
59<BODY>
60<?
61if ($resul){
62        echo '<SCRIPT language="javascript">';
63        echo 'window.parent.resultado_Configurar(1)'.chr(13);
64        echo '</SCRIPT>';
65}
66else{
67        echo '<SCRIPT language="javascript">';
68        echo 'window.parent.resultado_Configurar(0)'.chr(13);
69        echo '</SCRIPT>';
70}
71?>
72</BODY>
73</HTML>
74<?
75// *************************************************************************************************************************************************
76function Gestiona($cmd){
77        global $ACCION_SINERRORES; // Activa y con algn error
78        global $ACCION_INICIADA;
79        global $idcentro;
80        global $idaula;
81        global $cadenaip;
82        global $identificador;
83        global $nombrefuncion;
84        global $ejecutor;
85        global $tipotrama;
86        global $ambito;
87        global $idambito;
88        global $particiones;
89        global $EJECUCION_COMANDO;
90        global $PROCESOS;
91        global $servidorhidra;
92        global $hidraport;
93        global $tbTiposParticiones;
94
95        $swvez=true;
96        $auxsplit=split("\n",$particiones); // Toma las distintas particiones con sus particiones
97        $shidra=new SockHidra($servidorhidra,$hidraport);
98
99        $cmd->CreaParametro("@tipoaccion",$EJECUCION_COMANDO,1);
100        $cmd->CreaParametro("@idtipoaccion",$identificador,1);
101        $cmd->CreaParametro("@cateaccion",$PROCESOS,1);
102        $cmd->CreaParametro("@ambito",$ambito,1);
103        $cmd->CreaParametro("@idambito",$idambito,1);
104        $cmd->CreaParametro("@fechahorareg",date("y/m/d H:i:s"),0);
105        $cmd->CreaParametro("@estado",$ACCION_INICIADA,0);
106        $cmd->CreaParametro("@resultado",$ACCION_SINERRORES,0);
107        $cmd->CreaParametro("@idcentro",$idcentro,1);
108        $cmd->CreaParametro("@parametros","",0);
109
110        $cmd->CreaParametro("@descripcion","",0);
111        $cmd->CreaParametro("@idtarea",0,1);
112        $cmd->CreaParametro("@idprocedimiento",0,1);
113        $cmd->CreaParametro("@idcomando",0,1);
114
115        $parampar="";
116        $lparampar="";
117        $hdclean="";
118        $isizepart=0;
119        for($j=0;$j<sizeof($auxsplit)-1;$j++){
120                        $cuadruparticion=split(";",$auxsplit[$j]);
121                        $particion=$cuadruparticion[0];
122                        $tipopart=$cuadruparticion[1];
123                        $nemopar=$tbTiposParticiones[$tipopart];
124                        $sizepart=$cuadruparticion[2];
125                        if($particion>4)
126                                $isizepart+=(int)($sizepart);
127                        $accion=$cuadruparticion[3];
128                        if($accion==2) $nemopar="H".$nemopar; // Particion oculta
129                        if($particion<5)
130                                $parampar.=$nemopar.":".$sizepart." ";
131                        else
132                                $lparampar.=$nemopar.":".$sizepart." ";
133                        if($accion==1) $hdclean.=$particion.";"; // Formatear la partici�
134        }
135        if($isizepart>0) // Existen particiones extendidas
136                $parampar.="EXT:".$isizepart." ";
137        $parampar=substr($parampar,0,strlen($parampar)-1); // Quita el espacion final
138        if(strlen($lparampar)>0)
139                $lparampar=substr($lparampar,0,strlen($lparampar)-1); // Quita el espacion final
140        $hdclean=substr($hdclean,0,strlen($hdclean)-1); // Quita la coma final
141        $parametros=$ejecutor;
142        $parametros.="nfn=".$nombrefuncion.chr(13);
143        $parametros.="ppa=".$parampar.chr(13);
144        $parametros.="lpa=".$lparampar.chr(13);
145        $parametros.="hdc=".$hdclean.chr(13);
146        $parametros.="iph=".$cadenaip.chr(13);
147
148        $cmd->ParamSetValor("@parametros",$parametros);
149        return(CuestionAcciones($cmd,$shidra,$parametros));
150}
151?>
Note: See TracBrowser for help on using the repository browser.