1 /*
2  * Syslog.xs
3  *
4  * XS wrapper for the syslog(3) facility.
5  *
6  */
7 
8 #if defined(_WIN32)
9 #  include <windows.h>
10 #endif
11 
12 #include "EXTERN.h"
13 #include "perl.h"
14 #include "XSUB.h"
15 #ifdef USE_PPPORT_H
16 #  include "ppport.h"
17 #endif
18 
19 #ifndef HAVE_SYSLOG
20 #define HAVE_SYSLOG 1
21 #endif
22 
23 #if defined(_WIN32) && !defined(__CYGWIN__)
24 #  undef HAVE_SYSLOG
25 #  include "fallback/syslog.h"
26 #else
27 #  if defined(I_SYSLOG) || PATCHLEVEL < 6
28 #    include <syslog.h>
29 #  endif
30 #endif
31 
32 static SV *ident_svptr;
33 
34 
35 #ifndef LOG_FAC
36 #define LOG_FACMASK     0x03f8
37 #define LOG_FAC(p)      (((p) & LOG_FACMASK) >> 3)
38 #endif
39 
40 #ifndef LOG_PRIMASK
41 #define LOG_PRIMASK     0x07
42 #endif
43 
44 #ifndef	LOG_PRI
45 #define	LOG_PRI(p)	((p) & LOG_PRIMASK)
46 #endif
47 
48 #ifndef	LOG_MAKEPRI
49 #define	LOG_MAKEPRI(fac, pri)	(((fac) << 3) | (pri))
50 #endif
51 
52 #ifndef LOG_MASK
53 #define	LOG_MASK(pri)	(1 << (pri))
54 #endif
55 
56 #ifndef LOG_UPTO
57 #define	LOG_UPTO(pri)	((1 << ((pri)+1)) - 1)
58 #endif
59 
60 #include "const-c.inc"
61 
62 
63 MODULE = Sys::Syslog		PACKAGE = Sys::Syslog
64 
65 INCLUDE: const-xs.inc
66 
67 int
68 LOG_FAC(p)
69     INPUT:
70 	int		p
71 
72 int
73 LOG_PRI(p)
74     INPUT:
75 	int		p
76 
77 int
78 LOG_MAKEPRI(fac,pri)
79     INPUT:
80 	int		fac
81 	int		pri
82 
83 int
84 LOG_MASK(pri)
85     INPUT:
86 	int		pri
87 
88 int
89 LOG_UPTO(pri)
90     INPUT:
91 	int		pri
92 
93 #ifdef HAVE_SYSLOG
94 
95 void
96 openlog_xs(ident, option, facility)
97     INPUT:
98         SV*   ident
99         int   option
100         int   facility
101     PREINIT:
102         STRLEN len;
103         char*  ident_pv;
104     CODE:
105         ident_svptr = newSVsv(ident);
106         ident_pv    = SvPV(ident_svptr, len);
107         openlog(ident_pv, option, facility);
108 
109 void
110 syslog_xs(priority, message)
111     INPUT:
112         int   priority
113         const char * message
114     CODE:
115         syslog(priority, "%s", message);
116 
117 int
118 setlogmask_xs(mask)
119     INPUT:
120         int mask
121     CODE:
122         RETVAL = setlogmask(mask);
123     OUTPUT:
124         RETVAL
125 
126 void
127 closelog_xs()
128     PREINIT:
129         U32 refcnt;
130     CODE:
131         if (!ident_svptr)
132             return;
133         closelog();
134         refcnt = SvREFCNT(ident_svptr);
135         if (refcnt) {
136             SvREFCNT_dec(ident_svptr);
137             if (refcnt == 1)
138                 ident_svptr = NULL;
139         }
140 
141 #else  /* HAVE_SYSLOG */
142 
143 void
144 openlog_xs(ident, option, facility)
145     INPUT:
146         SV*   ident
147         int   option
148         int   facility
149     CODE:
150 
151 void
152 syslog_xs(priority, message)
153     INPUT:
154         int   priority
155         const char * message
156     CODE:
157 
158 int
159 setlogmask_xs(mask)
160     INPUT:
161         int mask
162     CODE:
163 
164 void
165 closelog_xs()
166     CODE:
167 
168 #endif /* HAVE_SYSLOG */
169