paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-16 01:50:38 +01:00
Code Issues Packages Projects Releases Wiki Activity

* modernized. Now only uses baseunix,sysutils

Browse Source
This commit is contained in:
marco 2004-06-04 12:37:52 +00:00
parent 42f59a3ca9
commit 0034d3c59c
1 changed files with 20 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

36
demo/linux/daemon.pp
View File

@ -30,7 +30,7 @@
------------------------------------------------------------------------------
}
Program Daemon;
uses linux;
uses SysUtils,BaseUnix;
Var
{ vars for daemonizing }
bHup,
@ -42,8 +42,9 @@ Var
aHup : pSigActionRec;
ps1 : psigset;
sSet : cardinal;
pid : longint;
pid : pid_t;
secs : longint;
zerosigs : sigset_t;
hr,mn,sc,sc100 : word;
{ handle SIGHUP & SIGTERM }
@ -60,14 +61,14 @@ Procedure NewLog;
Begin
Assign(fLog,logname);
Rewrite(fLog);
GetTime(hr,mn,sc,sc100);
Writeln(flog,'Log created at ',hr:0,':',mn:0,':',sc:0);
Writeln(flog,'Log created at ',formatdatetime('hh:nn:ss',now));
Close(fLog);
End;
Begin
logname := 'daemon.log';
secs := 10;
fpsigemptyset(zerosigs);
{ set global daemon booleans }
bHup := true; { to open log file }
@ -76,29 +77,30 @@ Begin
{ block all signals except -HUP & -TERM }
sSet := $ffffbffe;
ps1 := @sSet;
sigprocmask(sig_block,ps1,nil);
fpsigprocmask(sig_block,ps1,nil);
{ setup the signal handlers }
new(aOld);
new(aHup);
new(aTerm);
aTerm^.handler.sh := @DoSig;
aTerm^.sa_mask := 0;
aTerm^.sa_handler{.sh} := TSigAction(@DoSig);
aTerm^.sa_mask := zerosigs;
aTerm^.sa_flags := 0;
{$ifndef BSD} {Linux'ism}
aTerm^.sa_restorer := nil;
{$endif}
aHup^.handler.sh := @DoSig;
aHup^.sa_mask := 0;
aHup^.sa_handler := TSigAction(@DoSig);
aHup^.sa_mask := zerosigs;
aHup^.sa_flags := 0;
{$ifndef BSD} {Linux'ism}
aHup^.sa_restorer := nil;
{$endif}
SigAction(SIGTERM,aTerm,aOld);
SigAction(SIGHUP,aHup,aOld);
fpSigAction(SIGTERM,aTerm,aOld);
fpSigAction(SIGHUP,aHup,aOld);
{ daemonize }
pid := Fork;
pid := fpFork;
Case pid of
0 : Begin { we are in the child }
Close(input); { close standard in }
@ -125,9 +127,8 @@ Begin
End;
{----------------------}
{ Do your daemon stuff }
GetTime(hr,mn,sc,sc100);
Append(flog);
Writeln(flog,'daemon code activated at ',hr:0,':',mn:0,':',sc:0);
Writeln(flog,'daemon code activated at ',formatdatetime('hh:nn:ss',now));
Close(fLog);
{ the following output goes to the bit bucket }
Writeln('daemon code activated at ',hr:0,':',mn:0,':',sc:0);
@ -136,12 +137,15 @@ Begin
BREAK
Else
{ wait a while }
Select(0,nil,nil,nil,secs*1000);
fpSelect(0,nil,nil,nil,secs*1000);
Until bTerm;
End.
{
$Log$
Revision 1.3 2002-09-07 15:06:35 peter
Revision 1.4 2004-06-04 12:37:52 marco
* modernized. Now only uses baseunix,sysutils
Revision 1.3 2002/09/07 15:06:35 peter
* old logs removed and tabs fixed
Revision 1.2 2002/02/25 12:56:43 marco