Permalink
Fetching contributors…
Cannot retrieve contributors at this time
172 lines (139 sloc) 2.52 KB
/*
* Syslog.xs
*
* XS wrapper for the syslog(3) facility.
*
*/
#if defined(_WIN32)
# include <windows.h>
#endif
#include "EXTERN.h"
#include "perl.h"
#include "XSUB.h"
#ifdef USE_PPPORT_H
# include "ppport.h"
#endif
#ifndef HAVE_SYSLOG
#define HAVE_SYSLOG 1
#endif
#if defined(_WIN32) && !defined(__CYGWIN__)
# undef HAVE_SYSLOG
# include "fallback/syslog.h"
#else
# if defined(I_SYSLOG) || PATCHLEVEL < 6
# include <syslog.h>
# else
# undef HAVE_SYSLOG
# include "fallback/syslog.h"
# endif
#endif
static SV *ident_svptr;
#ifndef LOG_FAC
#define LOG_FACMASK 0x03f8
#define LOG_FAC(p) (((p) & LOG_FACMASK) >> 3)
#endif
#ifndef LOG_PRIMASK
#define LOG_PRIMASK 0x07
#endif
#ifndef LOG_PRI
#define LOG_PRI(p) ((p) & LOG_PRIMASK)
#endif
#ifndef LOG_MAKEPRI
#define LOG_MAKEPRI(fac, pri) (((fac) << 3) | (pri))
#endif
#ifndef LOG_MASK
#define LOG_MASK(pri) (1 << (pri))
#endif
#ifndef LOG_UPTO
#define LOG_UPTO(pri) ((1 << ((pri)+1)) - 1)
#endif
#include "const-c.inc"
MODULE = Sys::Syslog PACKAGE = Sys::Syslog
INCLUDE: const-xs.inc
int
LOG_FAC(p)
INPUT:
int p
int
LOG_PRI(p)
INPUT:
int p
int
LOG_MAKEPRI(fac,pri)
INPUT:
int fac
int pri
int
LOG_MASK(pri)
INPUT:
int pri
int
LOG_UPTO(pri)
INPUT:
int pri
#ifdef HAVE_SYSLOG
void
openlog_xs(ident, option, facility)
INPUT:
SV* ident
int option
int facility
PREINIT:
STRLEN len;
char* ident_pv;
CODE:
ident_svptr = newSVsv(ident);
ident_pv = SvPV(ident_svptr, len);
openlog(ident_pv, option, facility);
void
syslog_xs(priority, message)
INPUT:
int priority
const char * message
CODE:
syslog(priority, "%s", message);
int
setlogmask_xs(mask)
INPUT:
int mask
CODE:
RETVAL = setlogmask(mask);
OUTPUT:
RETVAL
void
closelog_xs()
PREINIT:
U32 refcnt;
CODE:
if (!ident_svptr)
return;
closelog();
refcnt = SvREFCNT(ident_svptr);
if (refcnt) {
SvREFCNT_dec(ident_svptr);
if (refcnt == 1)
ident_svptr = NULL;
}
#else /* HAVE_SYSLOG */
void
openlog_xs(ident, option, facility)
INPUT:
SV* ident
int option
int facility
CODE:
void
syslog_xs(priority, message)
INPUT:
int priority
const char * message
CODE:
int
setlogmask_xs(mask)
INPUT:
int mask
CODE:
void
closelog_xs()
CODE:
#endif /* HAVE_SYSLOG */