/usr/share/doc/fp-units-misc/2.6.4/examples/syslog/testlog.pp is in fp-units-misc-2.6.4 2.6.4+dfsg-4.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 | program testlog;
uses systemlog,sysutils;
procedure dotest;
var i : longint;
prefix : ansistring;
begin
i:=GetProcessID;
prefix:=format('testlog[%d] ',[i]);
// prefix will be prepended to every message now.
openlog(pchar(prefix),LOG_NOWAIT,LOG_DEBUG);
for i:=1 to 10 do
syslog(log_info,'This is message number %d'#10,[i]);
prefix:='';
end;
begin
dotest;
end.
|