1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
|
const
_PATH_LOG = '/dev/log';
LOG_EMERG = 0;
LOG_ALERT = 1;
LOG_CRIT = 2;
LOG_ERR = 3;
LOG_WARNING = 4;
LOG_NOTICE = 5;
LOG_INFO = 6;
LOG_DEBUG = 7;
LOG_PRIMASK = $07;
function LOG_PRI(p : longint) : longint;
function LOG_MAKEPRI(fac,pri : longint) : longint;
const
INTERNAL_NOPRI = $10;
INTERNAL_MARK = 24 shl 3;
type
P_code = ^_code;
_code = record
c_name : Pchar;
c_val : longint;
end;
CODE = _code;
PCODE = ^CODE;
Const
prioritynames: array[0..12] of _code =
(
(c_name: 'alert'; c_val: LOG_ALERT),
(c_name: 'crit'; c_val: LOG_CRIT),
(c_name: 'debug'; c_val: LOG_DEBUG),
(c_name: 'emerg'; c_val: LOG_EMERG),
(c_name: 'err'; c_val: LOG_ERR),
(c_name: 'error'; c_val: LOG_ERR),
(c_name: 'info'; c_val: LOG_INFO),
(c_name: 'none'; c_val: INTERNAL_NOPRI),
(c_name: 'notice'; c_val: LOG_NOTICE),
(c_name: 'panic'; c_val: LOG_EMERG),
(c_name: 'warn'; c_val: LOG_WARNING),
(c_name: 'warning'; c_val: LOG_WARNING),
(c_name: nil; c_val: -1)
);
const
LOG_KERN = 0 shl 3;
LOG_USER = 1 shl 3;
LOG_MAIL = 2 shl 3;
LOG_DAEMON = 3 shl 3;
LOG_AUTH = 4 shl 3;
LOG_SYSLOG = 5 shl 3;
LOG_LPR = 6 shl 3;
LOG_NEWS = 7 shl 3;
LOG_UUCP = 8 shl 3;
LOG_CRON = 9 shl 3;
LOG_AUTHPRIV = 10 shl 3;
LOG_FTP = 11 shl 3;
LOG_LOCAL0 = 16 shl 3;
LOG_LOCAL1 = 17 shl 3;
LOG_LOCAL2 = 18 shl 3;
LOG_LOCAL3 = 19 shl 3;
LOG_LOCAL4 = 20 shl 3;
LOG_LOCAL5 = 21 shl 3;
LOG_LOCAL6 = 22 shl 3;
LOG_LOCAL7 = 23 shl 3;
LOG_NFACILITIES = 24;
LOG_FACMASK = $03f8;
const
facilitynames: array[0..22] of _code =
(
(c_name: 'auth'; c_val: LOG_AUTH),
(c_name: 'authpriv'; c_val: LOG_AUTHPRIV),
(c_name: 'cron'; c_val: LOG_CRON),
(c_name: 'daemon'; c_val: LOG_DAEMON),
(c_name: 'ftp'; c_val: LOG_FTP),
(c_name: 'kern'; c_val: LOG_KERN),
(c_name: 'lpr'; c_val: LOG_LPR),
(c_name: 'mail'; c_val: LOG_MAIL),
(c_name: 'mark'; c_val: INTERNAL_MARK),
(c_name: 'news'; c_val: LOG_NEWS),
(c_name: 'security'; c_val: LOG_AUTH),
(c_name: 'syslog'; c_val: LOG_SYSLOG),
(c_name: 'user'; c_val: LOG_USER),
(c_name: 'uucp'; c_val: LOG_UUCP),
(c_name: 'local0'; c_val: LOG_LOCAL0),
(c_name: 'local1'; c_val: LOG_LOCAL1),
(c_name: 'local2'; c_val: LOG_LOCAL2),
(c_name: 'local3'; c_val: LOG_LOCAL3),
(c_name: 'local4'; c_val: LOG_LOCAL4),
(c_name: 'local5'; c_val: LOG_LOCAL5),
(c_name: 'local6'; c_val: LOG_LOCAL6),
(c_name: 'local7'; c_val: LOG_LOCAL7),
(c_name: nil; c_val: -1)
);
function LOG_FAC(p : longint) : longint;
function LOG_MASK(pri : longint) : longint;
function LOG_UPTO(pri : longint) : longint;
const
LOG_PID = $01;
LOG_CONS = $02;
LOG_ODELAY = $04;
LOG_NDELAY = $08;
LOG_NOWAIT = $10;
LOG_PERROR = $20;
procedure closelog;cdecl;external clib name 'closelog';
procedure openlog(__ident:Pchar; __option:longint; __facility:longint);cdecl;external clib name 'openlog';
function setlogmask(__mask:longint):longint;cdecl;external clib name 'setlogmask';
procedure syslog(__pri: Integer; __fmt: PChar; arg : array of const); cdecl; external clib name 'syslog';
procedure vsyslog(__pri: Integer; Fmt: PChar; Arg: Pointer);cdecl; external clib name 'vsyslog';
{ ---------------------------------------------------------------------
Borland compatibility types
---------------------------------------------------------------------}
Type
TSysLogCode = _code;
|
