desarrollosconsejeria/adtos-aula/1.7-0/serveradtospro/serveradtospro.lpr @ 29401061
| 23a384b9 | Elisa | program serveradtospro;
|
|
| a2ba555f | Elisa | ||
{$mode objfpc}{$H+}
|
|||
uses
|
|||
cthreads,
|
|||
| 23a384b9 | Elisa | Classes, SysUtils, CustApp
|
|
{ you can add units after this }, globales, demonio, clservidor, clcomandosroot;
|
|||
| a2ba555f | Elisa | ||
type
|
|||
{ TMyApplication }
|
|||
TMyApplication = class(TCustomApplication)
|
|||
private
|
|||
f_usuario:String;
|
|||
f_contador:integer;
|
|||
protected
|
|||
procedure DoRun; override;
|
|||
public
|
|||
constructor Create(TheOwner: TComponent); override;
|
|||
destructor Destroy; override;
|
|||
end;
|
|||
{ TMyApplication }
|
|||
procedure TMyApplication.DoRun;
|
|||
| 23a384b9 | Elisa | begin
|
|
IF g_finalizar then terminate;
|
|||
sleep(50);
|
|||
end;
|
|||
| a2ba555f | Elisa | ||
constructor TMyApplication.Create(TheOwner: TComponent);
|
|||
| 23a384b9 | Elisa | const
|
|
GRUPO_PROFESORES:string='groups|grep profesor';
|
|||
GRUPO_TEACHER:string='groups|grep teacher';
|
|||
var
|
|||
soyunprofesor:Boolean;
|
|||
| a2ba555f | Elisa | begin
|
|
inherited Create(TheOwner);
|
|||
StopOnException:=True;
|
|||
| 23a384b9 | Elisa | soyunprofesor:=false;
|
|
| a2ba555f | Elisa | f_usuario:=GetEnvironmentVariable('USER');
|
|
| 23a384b9 | Elisa | if (length(Trim(HallarDatos(GRUPO_PROFESORES)))<>0) or (length(Trim(HallarDatos(GRUPO_TEACHER)))<>0) or (fusuario='root') then soyunprofesor:=true;
|
|
if soyunprofesor = false then
|
|||
begin
|
|||
halt;
|
|||
exit;
|
|||
end;
|
|||
| a2ba555f | Elisa | f_contador:=0;
|
|
end;
|
|||
destructor TMyApplication.Destroy;
|
|||
begin
|
|||
| 23a384b9 | Elisa | inherited Destroy;
|
|
| a2ba555f | Elisa | end;
|
|
var
|
|||
Application: TMyApplication;
|
|||
{$IFDEF WINDOWS}{$R serveralumnolinex.rc}{$ENDIF}
|
|||
begin
|
|||
Application:=TMyApplication.Create(nil);
|
|||
Application.Run;
|
|||
Application.Free;
|
|||
end.
|