ext/Sys/Syslog/Syslog.xs

   1 #include "EXTERN.h"
   2 #include "perl.h"
   3 #include "XSUB.h"
   4 #ifdef USE_PPPORT_H
   5 #  include "ppport.h"
   6 #endif
   7
   8 #ifdef I_SYSLOG
   9 #include <syslog.h>
  10 #endif
  11
  12 static SV *ident_svptr;
  13
  14 #include "const-c.inc"
  15
  16 MODULE = Sys::Syslog            PACKAGE = Sys::Syslog
  17
  18 INCLUDE: const-xs.inc
  19
  20 int
  21 LOG_FAC(p)
  22     INPUT:
  23         int             p
  24     CODE:
  25 #ifdef LOG_FAC
  26         RETVAL = LOG_FAC(p);
  27 #else
  28         croak("Your vendor has not defined the Sys::Syslog macro LOG_FAC");
  29         RETVAL = -1;
  30 #endif
  31     OUTPUT:
  32         RETVAL
  33
  34 int
  35 LOG_PRI(p)
  36     INPUT:
  37         int             p
  38     CODE:
  39 #ifdef LOG_PRI
  40         RETVAL = LOG_PRI(p);
  41 #else
  42         croak("Your vendor has not defined the Sys::Syslog macro LOG_PRI");
  43         RETVAL = -1;
  44 #endif
  45     OUTPUT:
  46         RETVAL
  47
  48 int
  49 LOG_MAKEPRI(fac,pri)
  50     INPUT:
  51         int             fac
  52         int             pri
  53     CODE:
  54 #ifdef LOG_MAKEPRI
  55         RETVAL = LOG_MAKEPRI(fac,pri);
  56 #else
  57         croak("Your vendor has not defined the Sys::Syslog macro LOG_MAKEPRI");
  58         RETVAL = -1;
  59 #endif
  60     OUTPUT:
  61         RETVAL
  62
  63 int
  64 LOG_MASK(pri)
  65     INPUT:
  66         int             pri
  67     CODE:
  68 #ifdef LOG_MASK
  69         RETVAL = LOG_MASK(pri);
  70 #else
  71         croak("Your vendor has not defined the Sys::Syslog macro LOG_MASK");
  72         RETVAL = -1;
  73 #endif
  74     OUTPUT:
  75         RETVAL
  76
  77 int
  78 LOG_UPTO(pri)
  79     INPUT:
  80         int             pri
  81     CODE:
  82 #ifdef LOG_UPTO
  83         RETVAL = LOG_UPTO(pri);
  84 #else
  85         croak("Your vendor has not defined the Sys::Syslog macro LOG_UPTO");
  86         RETVAL = -1;
  87 #endif
  88     OUTPUT:
  89         RETVAL
  90
  91
  92 void
  93 openlog_xs(ident, option, facility)
  94     INPUT:
  95         SV*   ident
  96         int   option
  97         int   facility
  98     PREINIT:
  99         STRLEN len;
 100         char*  ident_pv;
 101     CODE:
 102         ident_svptr = newSVsv(ident);
 103         ident_pv    = SvPV(ident_svptr, len);
 104         openlog(ident_pv, option, facility);
 105
 106 void
 107 syslog_xs(priority, message)
 108     INPUT:
 109         int   priority
 110         const char * message
 111     CODE:
 112         syslog(priority, "%s", message);
 113
 114 int
 115 setlogmask_xs(mask)
 116     INPUT:
 117         int mask
 118     CODE:
 119         setlogmask(mask);
 120
 121 void
 122 closelog_xs()
 123     CODE:
 124         closelog();
 125         if (SvREFCNT(ident_svptr))
 126             SvREFCNT_dec(ident_svptr);
 127