source: admin/WebConsole/comandos/gestores/gestor_Configurar.php @ 5eae07e

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 5eae07e was a6b881e, checked in by alonso <alonso@…>, 16 years ago

primeros archivos de administración

git-svn-id: https://opengnsys.es/svn/trunk@520 a21b9725-9963-47de-94b9-378ad31fedc9
  • Property mode set to 100644
File size: 5.1 KB
Line 
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_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        <meta http-equiv="Content-Type" content="text/html;charset=UTF-8">
60<BODY>
61<?
62if ($resul){
63        echo '<SCRIPT language="javascript">';
64        echo 'window.parent.resultado_Configurar(1)'.chr(13);
65        echo '</SCRIPT>';
66}
67else{
68        echo '<SCRIPT language="javascript">';
69        echo 'window.parent.resultado_Configurar(0)'.chr(13);
70        echo '</SCRIPT>';
71}
72?>
73</BODY>
74</HTML>
75<?
76// *************************************************************************************************************************************************
77function Gestiona($cmd){
78        global $ACCION_SINERRORES; // Activa y con algn error
79        global $ACCION_INICIADA;
80        global $idcentro;
81        global $idaula;
82        global $cadenaip;
83        global $identificador;
84        global $nombrefuncion;
85        global $ejecutor;
86        global $tipotrama;
87        global $ambito;
88        global $idambito;
89        global $particiones;
90        global $EJECUCION_COMANDO;
91        global $PROCESOS;
92        global $servidorhidra;
93        global $hidraport;
94        global $tbTiposParticiones;
95
96        $swvez=true;
97        $auxsplit=split("\n",$particiones); // Toma las distintas particiones con sus particiones
98        $shidra=new SockHidra($servidorhidra,$hidraport);
99
100        $cmd->CreaParametro("@tipoaccion",$EJECUCION_COMANDO,1);
101        $cmd->CreaParametro("@idtipoaccion",$identificador,1);
102        $cmd->CreaParametro("@cateaccion",$PROCESOS,1);
103        $cmd->CreaParametro("@ambito",$ambito,1);
104        $cmd->CreaParametro("@idambito",$idambito,1);
105        $cmd->CreaParametro("@fechahorareg",date("y/m/d H:i:s"),0);
106        $cmd->CreaParametro("@estado",$ACCION_INICIADA,0);
107        $cmd->CreaParametro("@resultado",$ACCION_SINERRORES,0);
108        $cmd->CreaParametro("@idcentro",$idcentro,1);
109        $cmd->CreaParametro("@parametros","",0);
110
111        $cmd->CreaParametro("@descripcion","",0);
112        $cmd->CreaParametro("@idtarea",0,1);
113        $cmd->CreaParametro("@idprocedimiento",0,1);
114        $cmd->CreaParametro("@idcomando",0,1);
115
116        $parampar="";
117        $lparampar="";
118        $hdclean="";
119        $isizepart=0;
120        for($j=0;$j<sizeof($auxsplit)-1;$j++){
121                        $cuadruparticion=split(";",$auxsplit[$j]);
122                        $particion=$cuadruparticion[0];
123                        $tipopart=$cuadruparticion[1];
124                        $nemopar=$tbTiposParticiones[$tipopart];
125                        $sizepart=$cuadruparticion[2];
126                        if($particion>4)
127                                $isizepart+=(int)($sizepart);
128                        $accion=$cuadruparticion[3];
129                        if($accion==2) $nemopar="H".$nemopar; // Particion oculta
130                        if($particion<5)
131                                $parampar.=$nemopar.":".$sizepart." ";
132                        else
133                                $lparampar.=$nemopar.":".$sizepart." ";
134                        if($accion==1) $hdclean.=$particion.";"; // Formatear la partici�
135        }
136        if($isizepart>0) // Existen particiones extendidas
137                $parampar.="EXT:".$isizepart." ";
138        $parampar=substr($parampar,0,strlen($parampar)-1); // Quita el espacion final
139        if(strlen($lparampar)>0)
140                $lparampar=substr($lparampar,0,strlen($lparampar)-1); // Quita el espacion final
141        $hdclean=substr($hdclean,0,strlen($hdclean)-1); // Quita la coma final
142        $parametros=$ejecutor;
143        $parametros.="nfn=".$nombrefuncion.chr(13);
144        $parametros.="ppa=".$parampar.chr(13);
145        $parametros.="lpa=".$lparampar.chr(13);
146        $parametros.="hdc=".$hdclean.chr(13);
147        $parametros.="iph=".$cadenaip.chr(13);
148
149        $cmd->ParamSetValor("@parametros",$parametros);
150        return(CuestionAcciones($cmd,$shidra,$parametros));
151}
152?>
Note: See TracBrowser for help on using the repository browser.