source: admin/WebConsole/comandos/gestores/gestor_CrearPerfilSoftware.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: 6.2 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_CrearPerfilSoftware.php
8// Descripción :
9//              Gestor del comando "CrearPerfilSoftware"
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$perfiles="";
27
28if (isset($_GET["identificador"]))      $identificador=$_GET["identificador"];
29if (isset($_GET["nombrefuncion"]))      $nombrefuncion=$_GET["nombrefuncion"];
30if (isset($_GET["ejecutor"]))   $ejecutor=$_GET["ejecutor"];
31if (isset($_GET["tipotrama"]))  $tipotrama=$_GET["tipotrama"];
32if (isset($_GET["ambito"]))     $ambito=$_GET["ambito"];
33if (isset($_GET["idambito"]))   $idambito=$_GET["idambito"];
34if (isset($_GET["cadenaip"]))   $cadenaip=$_GET["cadenaip"];
35if (isset($_GET["perfiles"]))   $perfiles=$_GET["perfiles"];
36
37include_once("../../includes/cuestionaccionescab.php");
38
39$idaula=0;
40$idperfilhard=0;
41$idordenador=$idambito;
42
43$cmd=CreaComando($cadenaconexion); // Crea objeto comando
44$resul=false;
45if ($cmd){
46        TomaPerfilAula($cmd,&$idperfilhard,&$idaula,$idordenador);
47        $resul=Gestiona($cmd);
48        $cmd->Conexion->Cerrar();
49}
50//________________________________________________________________________________________________________
51?>
52<HTML>
53<HEAD>
[a6b881e]54        <meta http-equiv="Content-Type" content="text/html;charset=UTF-8">
[b0dc2e4]55<BODY>
56<?
57if ($resul){
58        echo '<SCRIPT language="javascript">';
59        echo 'window.parent.resultado_crearperfilsoftware(1)'.chr(13);
60        echo '</SCRIPT>';
61}
62else{
63        echo '<SCRIPT language="javascript">';
64        echo 'window.parent.resultado_crearperfilsoftware(0)'.chr(13);
65        echo '</SCRIPT>';
66}
67?>
68</BODY>
69</HTML>
70<?
71// *************************************************************************************************************************************************
72function TomaPerfilAula($cmd,$idperfilhard,$idaula,$ido){
73        $rs=new Recordset;
74        $cmd->texto="SELECT idaula,idperfilhard FROM ordenadores WHERE idordenador=".$ido;
75        $rs->Comando=&$cmd;
76        if (!$rs->Abrir()) return(0); // Error al abrir recordset
77        $rs->Primero();
78        if (!$rs->EOF){
79                $idperfilhard=$rs->campos["idperfilhard"];
80                $idaula=$rs->campos["idaula"];
81        }
82}
83//________________________________________________________________________________________________________
84//      Devuelve el nemonico de un S.O. incluido en un perfil software
85//              Parametros:
86//              - cmd:Una comando ya operativo (con conexión abierta) 
87//              - ips: identificador del perfil software 
88//________________________________________________________________________________________________________
89function toma_nemonico($cmd,$ips){
90        $cmd->texto="SELECT tiposos.nemonico FROM perfilessoft INNER JOIN perfilessoft_softwares ON perfilessoft.idperfilsoft = perfilessoft_softwares.idperfilsoft INNER JOIN softwares ON perfilessoft_softwares.idsoftware = softwares.idsoftware INNER JOIN tiposos ON softwares.idtiposo = tiposos.idtiposo WHERE tiposos.idtiposo > 0 AND perfilessoft.idperfilsoft=".$ips;
91        $rs=new Recordset;
92        $rs->Comando=&$cmd;
93        if (!$rs->Abrir()) return(0); // Error al abrir recordset
94        $rs->Primero();
95        if (!$rs->EOF)
96                return($rs->campos["nemonico"]);
97        else
98                return("");
99}
100//________________________________________________________________________________________________________
101function Gestiona($cmd){
102        global $ACCION_EXITOSA; // Finalizada con exito
103        global $ACCION_FALLIDA; // Finalizada con errores
104        global $ACCION_TERMINADA; // Finalizada manualmente con indicacion de exito
105        global $ACCION_ABORTADA; // Finalizada manualmente con indicacion de errores
106        global $ACCION_SINERRORES; // Activa y con algún error
107        global $ACCION_CONERRORES; // Activa y sin error
108        global $ACCION_DETENIDA;
109        global $ACCION_INICIADA;
110        global $ACCION_FINALIZADA;
111        global $idcentro;
112        global $idaula;
113        global $idperfilhard;
114        global $cadenaip;
115        global $identificador;
116        global $nombrefuncion;
117        global $ejecutor;
118        global $tipotrama;
119        global $ambito;
120        global $idambito;
121        global $perfiles;
122        global $EJECUCION_COMANDO;
123        global $PROCESOS;
124        global $servidorhidra;
125        global $hidraport;
126
127        $auxsplit=split(";",$perfiles); // Toma las distintas particiones con sus perfiles
128        $shidra=new SockHidra($servidorhidra,$hidraport);
129       
130        $cmd->CreaParametro("@tipoaccion",$EJECUCION_COMANDO,1);
131        $cmd->CreaParametro("@idtipoaccion",$identificador,1);
132        $cmd->CreaParametro("@cateaccion",$PROCESOS,1);
133        $cmd->CreaParametro("@ambito",$ambito,1);
134        $cmd->CreaParametro("@idambito",$idambito,1);
135        $cmd->CreaParametro("@fechahorareg",date("y/m/d H:i:s"),0);
136        $cmd->CreaParametro("@estado",$ACCION_INICIADA,0);
137        $cmd->CreaParametro("@resultado",$ACCION_SINERRORES,0);
138        $cmd->CreaParametro("@idcentro",$idcentro,1);
139        $cmd->CreaParametro("@parametros","",0);
140        $cmd->CreaParametro("@descripcion","",0);
141        $cmd->CreaParametro("@idtarea",0,1);
142        $cmd->CreaParametro("@idprocedimiento",0,1);
143        $cmd->CreaParametro("@idcomando",0,1);
144        for($j=0;$j<sizeof($auxsplit)-1;$j++){
145                        $dualperfil=split("_",$auxsplit[$j]);
146                        $particion=$dualperfil[0];
147                        $idperfilsoft=$dualperfil[1];
148                        $nemonico=toma_nemonico($cmd,$idperfilsoft);
149                        $parametros=$ejecutor;
150                        $parametros.="nfn=".$nombrefuncion.chr(13);
151                        $parametros.="par=".$particion.chr(13);
152                        $parametros.="ifs=".$idperfilsoft.chr(13);
153                        $parametros.="ifh=".$idperfilhard.chr(13);
154                        $parametros.="nem=".$nemonico.chr(13);
155                        $parametros.="idc=".$idcentro.chr(13);
156                        $parametros.="ida=".$idaula.chr(13);
157                        $parametros.="iph=".$cadenaip.chr(13);
158                        $cmd->ParamSetValor("@parametros",$parametros);
159                        if(!CuestionAcciones($cmd,$shidra,$parametros)) return(false);
160        }
161        return(true);
162}
163?>
Note: See TracBrowser for help on using the repository browser.