source: admin/WebConsole/comandos/gestores/gestor_CrearPerfilSoftware.php @ 1a22cd2

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 1a22cd2 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: 6.2 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_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>
54<BODY>
55<?
56if ($resul){
57        echo '<SCRIPT language="javascript">';
58        echo 'window.parent.resultado_crearperfilsoftware(1)'.chr(13);
59        echo '</SCRIPT>';
60}
61else{
62        echo '<SCRIPT language="javascript">';
63        echo 'window.parent.resultado_crearperfilsoftware(0)'.chr(13);
64        echo '</SCRIPT>';
65}
66?>
67</BODY>
68</HTML>
69<?
70// *************************************************************************************************************************************************
71function TomaPerfilAula($cmd,$idperfilhard,$idaula,$ido){
72        $rs=new Recordset;
73        $cmd->texto="SELECT idaula,idperfilhard FROM ordenadores WHERE idordenador=".$ido;
74        $rs->Comando=&$cmd;
75        if (!$rs->Abrir()) return(0); // Error al abrir recordset
76        $rs->Primero();
77        if (!$rs->EOF){
78                $idperfilhard=$rs->campos["idperfilhard"];
79                $idaula=$rs->campos["idaula"];
80        }
81}
82//________________________________________________________________________________________________________
83//      Devuelve el nemonico de un S.O. incluido en un perfil software
84//              Parametros:
85//              - cmd:Una comando ya operativo (con conexión abierta) 
86//              - ips: identificador del perfil software 
87//________________________________________________________________________________________________________
88function toma_nemonico($cmd,$ips){
89        $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;
90        $rs=new Recordset;
91        $rs->Comando=&$cmd;
92        if (!$rs->Abrir()) return(0); // Error al abrir recordset
93        $rs->Primero();
94        if (!$rs->EOF)
95                return($rs->campos["nemonico"]);
96        else
97                return("");
98}
99//________________________________________________________________________________________________________
100function Gestiona($cmd){
101        global $ACCION_EXITOSA; // Finalizada con exito
102        global $ACCION_FALLIDA; // Finalizada con errores
103        global $ACCION_TERMINADA; // Finalizada manualmente con indicacion de exito
104        global $ACCION_ABORTADA; // Finalizada manualmente con indicacion de errores
105        global $ACCION_SINERRORES; // Activa y con algún error
106        global $ACCION_CONERRORES; // Activa y sin error
107        global $ACCION_DETENIDA;
108        global $ACCION_INICIADA;
109        global $ACCION_FINALIZADA;
110        global $idcentro;
111        global $idaula;
112        global $idperfilhard;
113        global $cadenaip;
114        global $identificador;
115        global $nombrefuncion;
116        global $ejecutor;
117        global $tipotrama;
118        global $ambito;
119        global $idambito;
120        global $perfiles;
121        global $EJECUCION_COMANDO;
122        global $PROCESOS;
123        global $servidorhidra;
124        global $hidraport;
125
126        $auxsplit=split(";",$perfiles); // Toma las distintas particiones con sus perfiles
127        $shidra=new SockHidra($servidorhidra,$hidraport);
128       
129        $cmd->CreaParametro("@tipoaccion",$EJECUCION_COMANDO,1);
130        $cmd->CreaParametro("@idtipoaccion",$identificador,1);
131        $cmd->CreaParametro("@cateaccion",$PROCESOS,1);
132        $cmd->CreaParametro("@ambito",$ambito,1);
133        $cmd->CreaParametro("@idambito",$idambito,1);
134        $cmd->CreaParametro("@fechahorareg",date("y/m/d H:i:s"),0);
135        $cmd->CreaParametro("@estado",$ACCION_INICIADA,0);
136        $cmd->CreaParametro("@resultado",$ACCION_SINERRORES,0);
137        $cmd->CreaParametro("@idcentro",$idcentro,1);
138        $cmd->CreaParametro("@parametros","",0);
139        $cmd->CreaParametro("@descripcion","",0);
140        $cmd->CreaParametro("@idtarea",0,1);
141        $cmd->CreaParametro("@idprocedimiento",0,1);
142        $cmd->CreaParametro("@idcomando",0,1);
143        for($j=0;$j<sizeof($auxsplit)-1;$j++){
144                        $dualperfil=split("_",$auxsplit[$j]);
145                        $particion=$dualperfil[0];
146                        $idperfilsoft=$dualperfil[1];
147                        $nemonico=toma_nemonico($cmd,$idperfilsoft);
148                        $parametros=$ejecutor;
149                        $parametros.="nfn=".$nombrefuncion.chr(13);
150                        $parametros.="par=".$particion.chr(13);
151                        $parametros.="ifs=".$idperfilsoft.chr(13);
152                        $parametros.="ifh=".$idperfilhard.chr(13);
153                        $parametros.="nem=".$nemonico.chr(13);
154                        $parametros.="idc=".$idcentro.chr(13);
155                        $parametros.="ida=".$idaula.chr(13);
156                        $parametros.="iph=".$cadenaip.chr(13);
157                        $cmd->ParamSetValor("@parametros",$parametros);
158                        if(!CuestionAcciones($cmd,$shidra,$parametros)) return(false);
159        }
160        return(true);
161}
162?>
Note: See TracBrowser for help on using the repository browser.