source: admin/WebConsole/comandos/gestores/gestor_EjecutarScripts.php @ 0ef053b

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 0ef053b was a6b881e, checked in by alonso <alonso@…>, 15 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.8 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        <meta http-equiv="Content-Type" content="text/html;charset=UTF-8">
86<LINK rel="stylesheet" type="text/css" href="../estilos.css">
87</HEAD>
88<BODY>
89<?
90echo '<SCRIPT language="javascript">'.chr(13);
91echo '  var msg=new Array()'.chr(13);
92echo '  msg[1]='.$TbMsg[1].chr(13);
93echo '  msg[2]='.$TbMsg[2].chr(13);
94echo '  msg[3]='.$TbMsg[3].chr(13);
95echo '  msg[4]='.$TbMsg[4].chr(13);
96echo '  msg[5]='.$TbMsg[5].chr(13);
97echo 'alert( msg[' .$resul.'])';
98echo '</SCRIPT>';
99?>
100</BODY>
101</HTML>
102<?
103// *************************************************************************************************************************************************
104function Gestiona($cmd){
105        global $ACCION_SINERRORES; // Activa y con algn error
106        global $ACCION_INICIADA;
107        global $MAXSIZEFILERBC;
108        global $idcentro;
109        global $cadenaip;
110        global $identificador;
111        global $nombrefuncion;
112        global $ejecutor;
113        global $tipotrama;
114        global $ambito;
115        global $idambito;
116        global $titulo;
117        global $descripcion;
118        global $pseudocodigo;
119        global $filescript;
120        global $EJECUCION_COMANDO;
121        global $PROCESOS;
122        global $FISPATHFILESCRIPT;
123        global $servidorhidra;
124        global $hidraport;
125        global $nombre_archivo;
126        global $nombreOriginal_archivo;
127        global $tamano_archivo;
128        global $ficheroPOST;
129        global $ficheroLOCAL;
130
131        $shidra=new SockHidra($servidorhidra,$hidraport);
132
133        $cmd->CreaParametro("@tipoaccion",$EJECUCION_COMANDO,1);
134        $cmd->CreaParametro("@idtipoaccion",$identificador,1);
135        $cmd->CreaParametro("@cateaccion",$PROCESOS,1);
136        $cmd->CreaParametro("@ambito",$ambito,1);
137        $cmd->CreaParametro("@idambito",$idambito,1);
138        $cmd->CreaParametro("@fechahorareg",date("y/m/d H:i:s"),0);
139        $cmd->CreaParametro("@estado",$ACCION_INICIADA,0);
140        $cmd->CreaParametro("@resultado",$ACCION_SINERRORES,0);
141        $cmd->CreaParametro("@idcentro",$idcentro,1);
142        $cmd->CreaParametro("@parametros","",0);
143        $cmd->CreaParametro("@descripcion","",0);
144        $cmd->CreaParametro("@idtarea",0,1);
145        $cmd->CreaParametro("@idprocedimiento",0,1);
146        $cmd->CreaParametro("@idcomando",0,1);
147
148        $parametros=$ejecutor;
149        $parametros.="nfn=".$nombrefuncion.chr(13);
150        $parametros.="tis=".$titulo.chr(13);
151        $parametros.="dcr=".$descripcion.chr(13);
152
153        // Se env� fichero de script
154        if(!empty($ficheroPOST)){
155                $posrbc=strpos($nombreOriginal_archivo, "rbc");
156                if ($posrbc>0 && $tamano_archivo < $MAXSIZEFILERBC) {
157                        if (salvafichero_POST($ficheroPOST,$ficheroLOCAL)){
158                                $fp = fopen ($ficheroLOCAL, "r");
159                                $pseudocodigo = fread ($fp, filesize ($ficheroLOCAL));
160                                fclose ($fp);
161                                if(empty($pseudocodigo)) // No hay c�igo que ejecutar
162                                        return(4); // El fichero no contiene c�igo
163                        }
164                        else
165                                return(5); // No se puede salvar el fichero de script enviado por POST
166                }
167                else{
168                                return(3); // El fichero no tiene la extension .rbc
169                }
170        }
171        $fp = fopen($ficheroLOCAL,"w");
172        fwrite($fp, $pseudocodigo,strlen($pseudocodigo));
173        fclose($fp);
174
175        $parametros.="scp=".$pseudocodigo.chr(13);
176        $parametros.="iph=".$cadenaip.chr(13);
177        $cmd->ParamSetValor("@parametros",$parametros);
178        if(!CuestionAcciones($cmd,$shidra,$parametros)) return(2);
179        return(1);
180}
181//________________________________________________________________________________________________________
182//
183//      Salva un fichero enviado por POST
184//________________________________________________________________________________________________________
185function salvafichero_POST($ficheroPost,$ficheroLocal){
186        if (file_exists($ficheroLocal)) // Borra el fichero si existe
187        unlink($ficheroLocal);
188        return(move_uploaded_file($ficheroPost,$ficheroLocal)); // salva el fichero
189}
190?>
Note: See TracBrowser for help on using the repository browser.