|
{
|
|
Adtos 1.6 Software de gestión de Aulas Tecnológicas
|
|
Copyright (C) 2008-2009, Consejería de Educación,Junta de Extremadura
|
|
Programación: Manuel Narváez Martínez <mnarvaez007@gmail.com>
|
|
Diseño gráfico: Ana María Zamora Moreno
|
|
Desarrollado con Lazarus 0.9.26
|
|
|
|
This program is free software; you can redistribute it and/or modify
|
|
it under the terms of the GNU General Public License as published by
|
|
the Free Software Foundation; either version 2 of the License, or
|
|
(at your option) any later version.
|
|
This program is distributed in the hope that it will be useful,
|
|
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
GNU General Public License for more details.
|
|
You should have received a copy of the GNU General Public License
|
|
along with this program; if not, write to the Free Software
|
|
Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
|
|
}
|
|
unit clejucutaasi ;
|
|
|
|
{$mode objfpc}{$H+}
|
|
interface
|
|
|
|
uses
|
|
Classes, IdComponent, process, HTTPDefs, IdTCPClient,SysUtils, Math;
|
|
|
|
type
|
|
|
|
{ ThrEjucutarAsi }
|
|
|
|
ThrEjucutarAsi = class(TThread)
|
|
private
|
|
{ Private declarations }
|
|
fhost:string;
|
|
fcodigo:integer;
|
|
fcomando:string;
|
|
fcliente:TIdTcpClient;
|
|
fpuerto:integer;
|
|
fProceso:String;
|
|
ftipo:integer;
|
|
function CopiarCarpeta(Cmd: string): ansistring;
|
|
function InstalaPaqueteDebian(Cmd:string):ansistring;
|
|
function HallarDatos(Cmd:string):ansistring;
|
|
function EjecutarSript(Cmd:string):ansistring;
|
|
function EjecutaComando(Cmd:string):ansistring;
|
|
protected
|
|
procedure Execute; override;
|
|
public
|
|
constructor Create(host:string;codigo:integer;comando:string;puerto:integer;proceso:String;tipo:integer=0);
|
|
end;
|
|
|
|
|
|
implementation
|
|
constructor ThrEjucutarAsi.Create(host:string;codigo:integer;comando:string;puerto:integer;proceso:String;tipo:integer=0);
|
|
begin
|
|
inherited Create(true);
|
|
fcodigo:=codigo;
|
|
fcomando:=comando;
|
|
fpuerto:=puerto;
|
|
FreeOnTerminate:=True;
|
|
fhost:=host;
|
|
ftipo:=tipo;
|
|
fProceso:=proceso;
|
|
end;
|
|
procedure ThrEjucutarAsi.Execute;
|
|
var
|
|
salida,salidaconsola:ansistring;
|
|
respuesta_enviada:Boolean;
|
|
j:integer;
|
|
begin
|
|
|
|
try
|
|
salida:=DateTimeToStr(now) + ': '+fProceso;
|
|
case ftipo of
|
|
0: salidaconsola:=HallarDatos(fProceso);
|
|
1: salidaconsola:=EjecutaComando(fProceso);
|
|
2: salidaconsola:=EjecutarSript(fProceso);
|
|
3: salidaconsola:=InstalaPaqueteDebian(fProceso);
|
|
4: salidaconsola:=CopiarCarpeta(fProceso);
|
|
end;
|
|
|
|
except
|
|
salidaconsola:='Error al ejecutar proceso. Comando o parámetros no validos';
|
|
salida:=DateTimeToStr(Now) + ': '+fProceso +' '+ salidaconsola;
|
|
|
|
end;
|
|
|
|
salidaconsola:=HTTPEncode(salidaconsola);
|
|
//writeln(salidaconsola);
|
|
salida:=DateTimeToStr(Now) + ': '+fProceso;
|
|
respuesta_enviada:=false;
|
|
j:=0;
|
|
try
|
|
fcliente:=TidTcpClient.create(nil);
|
|
fcliente.Host:=fhost;
|
|
fcliente.port:=fpuerto;
|
|
while (( not respuesta_enviada) and (j<6)) do
|
|
begin
|
|
sleep(j *j* 1000);
|
|
inc(j);
|
|
try
|
|
try
|
|
fcliente.ConnectTimeout:=1000 +1000*j;
|
|
fcliente.connect;
|
|
fcliente.GetResponse(200);
|
|
fcliente.sendCmd(fcomando,fcodigo);
|
|
fcliente.IOHandler.WriteBufferOpen;
|
|
fcliente.IOHandler.Write(Integer(Length(salidaconsola)));
|
|
fcliente.IOHandler.Write(salidaconsola);
|
|
fcliente.IOHandler.WriteBufferClose;
|
|
respuesta_enviada:=true;
|
|
salida:='echo "'+salida+'" >> /var/log/adtos.log';
|
|
HallarDatos(salida);
|
|
except
|
|
if fcliente.Connected then fcliente.Disconnect;
|
|
end;
|
|
finally
|
|
if fcliente.Connected then fcliente.Disconnect;
|
|
end;
|
|
end;
|
|
finally
|
|
fcliente.free;
|
|
Terminate;
|
|
end;
|
|
end;
|
|
|
|
function ThrEjucutarAsi.InstalaPaqueteDebian(Cmd:string):ansistring;
|
|
var
|
|
S: TStringList;
|
|
P: TProcess;
|
|
ssalida:ansistring;
|
|
mproceso:string;
|
|
begin
|
|
mproceso:='sh -c '+QuotedStr(Cmd + ' 2>&1');
|
|
S := TStringList.Create;
|
|
P := TProcess.Create(nil);
|
|
try
|
|
try
|
|
P.CommandLine := mproceso;
|
|
P.Options := P.Options + [poWaitOnExit, poUsePipes];
|
|
P.Execute;
|
|
S.LoadFromStream(P.Output);
|
|
ssalida:=S.text;
|
|
except
|
|
ssalida:='Error al instalar el paquete: Compruebe que es correcto e inténtelo de nuevo';
|
|
end
|
|
finally
|
|
S.Free;
|
|
P.Free;
|
|
result:=ssalida;
|
|
end;
|
|
end;
|
|
function ThrEjucutarAsi.HallarDatos(Cmd:string):ansistring;
|
|
const
|
|
READ_BYTES = 2048;
|
|
var
|
|
S: TStringList;
|
|
M: TMemoryStream;
|
|
P: TProcess;
|
|
n: LongInt;
|
|
BytesRead: LongInt;
|
|
ssalida:ansistring;
|
|
mproceso:string;
|
|
begin
|
|
mproceso:='sh -c '+QuotedStr(Cmd + ' 2>&1');
|
|
S := TStringList.Create;
|
|
M := TMemoryStream.Create;
|
|
BytesRead := 0;
|
|
P := TProcess.Create(nil);
|
|
try
|
|
try
|
|
P.CommandLine := mproceso;
|
|
P.Options := P.Options + [poWaitOnExit, poUsePipes];
|
|
P.Execute;
|
|
while P.Running do
|
|
begin
|
|
M.SetSize(BytesRead + READ_BYTES);
|
|
n := P.Output.Read((M.Memory + BytesRead)^, READ_BYTES);
|
|
if n > 0 then
|
|
begin
|
|
Inc(BytesRead, n);
|
|
end
|
|
else
|
|
begin
|
|
Sleep(200);
|
|
end;
|
|
end;
|
|
repeat
|
|
M.SetSize(BytesRead + READ_BYTES);
|
|
n := P.Output.Read((M.Memory + BytesRead)^, READ_BYTES);
|
|
if n > 0 then
|
|
begin
|
|
Inc(BytesRead, n);
|
|
end;
|
|
until n <= 0;
|
|
M.SetSize(BytesRead);
|
|
S.LoadFromStream(M);
|
|
ssalida:=trim(S.text);
|
|
except
|
|
ssalida:='Error al realizar la consuta: orden o parámetros no validos';
|
|
end;
|
|
finally
|
|
S.Free;
|
|
P.Free;
|
|
M.Free;
|
|
result:=ssalida;
|
|
end;
|
|
end;
|
|
function ThrEjucutarAsi.EjecutarSript(Cmd:string):ansistring;
|
|
var
|
|
ssalida:ansistring;
|
|
mproceso:string;
|
|
P: TProcess;
|
|
begin
|
|
ssalida:='';
|
|
mproceso:='sh -c '+QuotedStr(Cmd); ;
|
|
try
|
|
try
|
|
P := TProcess.Create(nil);
|
|
P.CommandLine := mproceso;
|
|
P.Options := P.Options + [ poUsePipes];
|
|
P.Execute;
|
|
ssalida:=trim('El script se ha ejecutado en este equipo');
|
|
except
|
|
ssalida:='Error al ejecutar el script';
|
|
end;
|
|
finally
|
|
result:=ssalida;
|
|
P.Free;
|
|
end;
|
|
end;
|
|
|
|
function ThrEjucutarAsi.EjecutaComando(Cmd:string):ansistring;
|
|
var
|
|
ssalida:ansistring;
|
|
mproceso:string;
|
|
P: TProcess;
|
|
begin
|
|
ssalida:='';
|
|
mproceso:='sh -c '+QuotedStr(Cmd); ;
|
|
try
|
|
try
|
|
P := TProcess.Create(nil);
|
|
P.CommandLine := mproceso;
|
|
P.Options := P.Options + [ poUsePipes];
|
|
P.Execute;
|
|
ssalida:=trim('El comando se ha ejecutado en este equipo');
|
|
except
|
|
ssalida:='Error al ejecutar el comando: orden o parámetros no validos';
|
|
end;
|
|
finally
|
|
result:=ssalida;
|
|
P.Free;
|
|
end;
|
|
end;
|
|
function ThrEjucutarAsi.CopiarCarpeta(Cmd:string):ansistring;
|
|
var
|
|
ssalida:ansistring;
|
|
mproceso:string;
|
|
P: TProcess;
|
|
begin
|
|
ssalida:='';
|
|
mproceso:='sh -c '+QuotedStr(Cmd); ;
|
|
try
|
|
try
|
|
P := TProcess.Create(nil);
|
|
P.CommandLine := mproceso;
|
|
P.Options := P.Options + [ poUsePipes];
|
|
P.Execute;
|
|
ssalida:=trim('La carpeta se ha compiado en el directorio selecionado');
|
|
except
|
|
ssalida:='Error al copiar carpeta';
|
|
end;
|
|
finally
|
|
result:=ssalida;
|
|
P.Free;
|
|
end;
|
|
end;
|
|
end.
|