source: admin/WebConsole/comandos/gestores/gestor_EjecutarScripts.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: 6.7 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_EjecutarScripts.php
8// Descripción :
9//              Gestor del comando "EjecutarScripts"
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");
18include_once("../../idiomas/php/".$idioma."/comandos/gestor_ejecutarscripts_".$idioma.".php");
19//________________________________________________________________________________________________________
20$identificador=0;
21$nombrefuncion="";
22$ejecutor="";
23$tipotrama="";
24$ambito=0;
25$idambito=0;
26$cadenaip="";
27$titulo="";
28$descripcion="";
29$pseudocodigo="";
30$filescript="";
31
32if (isset($_POST["titulo"]))    $titulo=$_POST["titulo"];
33if (isset($_POST["descripcion"]))       $descripcion=$_POST["descripcion"];
34if (isset($_POST["pseudocodigo"]))      $pseudocodigo=$_POST["pseudocodigo"];
35
36if (isset($_POST["identificador"]))     $identificador=$_POST["identificador"];
37if (isset($_POST["nombrefuncion"]))     $nombrefuncion=$_POST["nombrefuncion"];
38if (isset($_POST["ejecutor"]))  $ejecutor=$_POST["ejecutor"];
39
40if (isset($_POST["tipotrama"])) $tipotrama=$_POST["tipotrama"];
41if (isset($_POST["ambito"]))    $ambito=$_POST["ambito"];
42if (isset($_POST["idambito"]))  $idambito=$_POST["idambito"];
43if (isset($_POST["cadenaip"]))  $cadenaip=$_POST["cadenaip"];
44
45/*
46        // Se env� fichero de script
47$ficheroPOST = $HTTP_POST_FILES['userfile']['tmp_name'];
48$nombreOriginal_archivo = $HTTP_POST_FILES['userfile']['name'];
49$tamano_archivo = $HTTP_POST_FILES['userfile']['size'];
50*/
51$URLPATHFILESCRIPT="./filescripts";
52$FISPATHFILESCRIPT=realpath($URLPATHFILESCRIPT);
53$NOMBREFILESCRIPT="cmdscript.rbc";
54$ficheroLOCAL=$FISPATHFILESCRIPT."/".$NOMBREFILESCRIPT;
55
56$sw_ejya="";
57$sw_seguimiento="";
58$sw_mktarea="";
59$nwidtarea="";
60$nwdescritarea="";
61$sw_mkprocedimiento="";
62$nwidprocedimiento="";
63$nwdescriprocedimiento="";
64
65if (isset($_POST["sw_ejya"]))   $sw_ejya=$_POST["sw_ejya"];
66if (isset($_POST["sw_seguimiento"]))    $sw_seguimiento=$_POST["sw_seguimiento"];
67if (isset($_POST["sw_mktarea"]))        $sw_mktarea=$_POST["sw_mktarea"];
68if (isset($_POST["nwidtarea"])) $nwidtarea=$_POST["nwidtarea"];
69if (isset($_POST["nwdescritarea"]))     $nwdescritarea=$_POST["nwdescritarea"];
70if (isset($_POST["sw_mkprocedimiento"]))        $sw_mkprocedimiento=$_POST["sw_mkprocedimiento"];
71if (isset($_POST["nwidprocedimiento"])) $nwidprocedimiento=$_POST["nwidprocedimiento"];
72if (isset($_POST["nwdescriprocedimiento"]))     $nwdescriprocedimiento=$_POST["nwdescriprocedimiento"];
73
74$cmd=CreaComando($cadenaconexion); // Crea objeto comando
75$resul=0;
76if ($cmd){
77        $resul=Gestiona($cmd);
78}
79$cmd->Conexion->Cerrar();
80//________________________________________________________________________________________________________
81?>
82<HTML>
83<TITLE>Administración web de aulas</TITLE>
84<HEAD>
85<LINK rel="stylesheet" type="text/css" href="../estilos.css">
86</HEAD>
87<BODY>
88<?
89echo '<SCRIPT language="javascript">'.chr(13);
90echo '  var msg=new Array()'.chr(13);
91echo '  msg[1]='.$TbMsg[1].chr(13);
92echo '  msg[2]='.$TbMsg[2].chr(13);
93echo '  msg[3]='.$TbMsg[3].chr(13);
94echo '  msg[4]='.$TbMsg[4].chr(13);
95echo '  msg[5]='.$TbMsg[5].chr(13);
96echo 'alert( msg[' .$resul.'])';
97echo '</SCRIPT>';
98?>
99</BODY>
100</HTML>
101<?
102// *************************************************************************************************************************************************
103function Gestiona($cmd){
104        global $ACCION_SINERRORES; // Activa y con algn error
105        global $ACCION_INICIADA;
106        global $MAXSIZEFILERBC;
107        global $idcentro;
108        global $cadenaip;
109        global $identificador;
110        global $nombrefuncion;
111        global $ejecutor;
112        global $tipotrama;
113        global $ambito;
114        global $idambito;
115        global $titulo;
116        global $descripcion;
117        global $pseudocodigo;
118        global $filescript;
119        global $EJECUCION_COMANDO;
120        global $PROCESOS;
121        global $FISPATHFILESCRIPT;
122        global $servidorhidra;
123        global $hidraport;
124        global $nombre_archivo;
125        global $nombreOriginal_archivo;
126        global $tamano_archivo;
127        global $ficheroPOST;
128        global $ficheroLOCAL;
129
130        $shidra=new SockHidra($servidorhidra,$hidraport);
131
132        $cmd->CreaParametro("@tipoaccion",$EJECUCION_COMANDO,1);
133        $cmd->CreaParametro("@idtipoaccion",$identificador,1);
134        $cmd->CreaParametro("@cateaccion",$PROCESOS,1);
135        $cmd->CreaParametro("@ambito",$ambito,1);
136        $cmd->CreaParametro("@idambito",$idambito,1);
137        $cmd->CreaParametro("@fechahorareg",date("y/m/d H:i:s"),0);
138        $cmd->CreaParametro("@estado",$ACCION_INICIADA,0);
139        $cmd->CreaParametro("@resultado",$ACCION_SINERRORES,0);
140        $cmd->CreaParametro("@idcentro",$idcentro,1);
141        $cmd->CreaParametro("@parametros","",0);
142        $cmd->CreaParametro("@descripcion","",0);
143        $cmd->CreaParametro("@idtarea",0,1);
144        $cmd->CreaParametro("@idprocedimiento",0,1);
145        $cmd->CreaParametro("@idcomando",0,1);
146
147        $parametros=$ejecutor;
148        $parametros.="nfn=".$nombrefuncion.chr(13);
149        $parametros.="tis=".$titulo.chr(13);
150        $parametros.="dcr=".$descripcion.chr(13);
151
152        // Se env� fichero de script
153        if(!empty($ficheroPOST)){
154                $posrbc=strpos($nombreOriginal_archivo, "rbc");
155                if ($posrbc>0 && $tamano_archivo < $MAXSIZEFILERBC) {
156                        if (salvafichero_POST($ficheroPOST,$ficheroLOCAL)){
157                                $fp = fopen ($ficheroLOCAL, "r");
158                                $pseudocodigo = fread ($fp, filesize ($ficheroLOCAL));
159                                fclose ($fp);
160                                if(empty($pseudocodigo)) // No hay c�igo que ejecutar
161                                        return(4); // El fichero no contiene c�igo
162                        }
163                        else
164                                return(5); // No se puede salvar el fichero de script enviado por POST
165                }
166                else{
167                                return(3); // El fichero no tiene la extension .rbc
168                }
169        }
170        $fp = fopen($ficheroLOCAL,"w");
171        fwrite($fp, $pseudocodigo,strlen($pseudocodigo));
172        fclose($fp);
173
174        $parametros.="scp=".$pseudocodigo.chr(13);
175        $parametros.="iph=".$cadenaip.chr(13);
176        $cmd->ParamSetValor("@parametros",$parametros);
177        if(!CuestionAcciones($cmd,$shidra,$parametros)) return(2);
178        return(1);
179}
180//________________________________________________________________________________________________________
181//
182//      Salva un fichero enviado por POST
183//________________________________________________________________________________________________________
184function salvafichero_POST($ficheroPost,$ficheroLocal){
185        if (file_exists($ficheroLocal)) // Borra el fichero si existe
186        unlink($ficheroLocal);
187        return(move_uploaded_file($ficheroPost,$ficheroLocal)); // salva el fichero
188}
189?>
Note: See TracBrowser for help on using the repository browser.