mirror of
https://github.com/ruby/ruby.git
synced 2022-11-09 12:17:21 -05:00
688f0d6c8e
marked and could thus be GC'd. git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@3091 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
375 lines
8.7 KiB
C
375 lines
8.7 KiB
C
/*
|
|
* UNIX Syslog extension for Ruby
|
|
* Amos Gouaux, University of Texas at Dallas
|
|
* <amos+ruby@utdallas.edu>
|
|
*
|
|
* $RoughId: syslog.c,v 1.21 2002/02/25 12:21:17 knu Exp $
|
|
* $Id$
|
|
*/
|
|
|
|
#include "ruby.h"
|
|
#include <syslog.h>
|
|
|
|
/* Syslog class */
|
|
static VALUE mSyslog, mSyslogConstants;
|
|
static const char *syslog_ident = NULL;
|
|
static int syslog_options = -1, syslog_facility = -1, syslog_mask = -1;
|
|
static int syslog_opened = 0;
|
|
|
|
/* Package helper routines */
|
|
static void syslog_write(int pri, int argc, VALUE *argv)
|
|
{
|
|
VALUE str;
|
|
|
|
if (argc < 1) {
|
|
rb_raise(rb_eArgError, "no log message supplied");
|
|
}
|
|
|
|
if (!syslog_opened) {
|
|
rb_raise(rb_eRuntimeError, "must open syslog before write");
|
|
}
|
|
|
|
str = rb_f_sprintf(argc, argv);
|
|
|
|
syslog(pri, "%s", RSTRING(str)->ptr);
|
|
}
|
|
|
|
/* Syslog module methods */
|
|
static VALUE mSyslog_close(VALUE self)
|
|
{
|
|
closelog();
|
|
syslog_opened = 0;
|
|
|
|
return Qnil;
|
|
}
|
|
|
|
static VALUE mSyslog_open(int argc, VALUE *argv, VALUE self)
|
|
{
|
|
VALUE ident, opt, fac;
|
|
int mask;
|
|
|
|
if (syslog_opened) {
|
|
rb_raise(rb_eRuntimeError, "syslog already open");
|
|
}
|
|
rb_scan_args(argc, argv, "03", &ident, &opt, &fac);
|
|
if (NIL_P(ident)) {
|
|
ident = rb_gv_get("$0");
|
|
}
|
|
if (NIL_P(opt)) {
|
|
opt = INT2NUM(LOG_PID | LOG_CONS);
|
|
}
|
|
if (NIL_P(fac)) {
|
|
fac = INT2NUM(LOG_USER);
|
|
}
|
|
|
|
#ifdef SafeStringValue
|
|
SafeStringValue(ident);
|
|
#else
|
|
Check_SafeStr(ident);
|
|
#endif
|
|
syslog_ident = (const char *)strdup(RSTRING(ident)->ptr);
|
|
syslog_options = NUM2INT(opt);
|
|
syslog_facility = NUM2INT(fac);
|
|
openlog(syslog_ident, syslog_options, syslog_facility);
|
|
syslog_opened = 1;
|
|
|
|
setlogmask(syslog_mask = setlogmask(0));
|
|
|
|
/* be like File.new.open {...} */
|
|
if (rb_block_given_p()) {
|
|
rb_ensure(rb_yield, self, mSyslog_close, self);
|
|
}
|
|
|
|
return self;
|
|
}
|
|
|
|
static VALUE mSyslog_reopen(int argc, VALUE *argv, VALUE self)
|
|
{
|
|
mSyslog_close(self);
|
|
|
|
return mSyslog_open(argc, argv, self);
|
|
}
|
|
|
|
static VALUE mSyslog_isopen(VALUE self)
|
|
{
|
|
return syslog_opened ? Qtrue : Qfalse;
|
|
}
|
|
|
|
static VALUE mSyslog_ident(VALUE self)
|
|
{
|
|
return rb_str_new2(syslog_ident);
|
|
}
|
|
|
|
static VALUE mSyslog_options(VALUE self)
|
|
{
|
|
return INT2NUM(syslog_options);
|
|
}
|
|
|
|
static VALUE mSyslog_facility(VALUE self)
|
|
{
|
|
return INT2NUM(syslog_facility);
|
|
}
|
|
|
|
static VALUE mSyslog_get_mask(VALUE self)
|
|
{
|
|
return INT2NUM(syslog_mask);
|
|
}
|
|
|
|
static VALUE mSyslog_set_mask(VALUE self, VALUE mask)
|
|
{
|
|
if (!syslog_opened) {
|
|
rb_raise(rb_eRuntimeError, "must open syslog before setting log mask");
|
|
}
|
|
|
|
setlogmask(syslog_mask = NUM2INT(mask));
|
|
|
|
return mask;
|
|
}
|
|
|
|
static VALUE mSyslog_log(int argc, VALUE *argv, VALUE self)
|
|
{
|
|
VALUE pri;
|
|
|
|
if (argc < 2) {
|
|
rb_raise(rb_eArgError, "wrong # of arguments(%d for 2+)", argc);
|
|
}
|
|
|
|
argc--;
|
|
pri = *argv++;
|
|
|
|
if (!FIXNUM_P(pri)) {
|
|
rb_raise(rb_eTypeError, "type mismatch: %s given", rb_class2name(CLASS_OF(pri)));
|
|
}
|
|
|
|
syslog_write(FIX2INT(pri), argc, argv);
|
|
|
|
return self;
|
|
}
|
|
|
|
static VALUE mSyslog_inspect(VALUE self)
|
|
{
|
|
char buf[1024];
|
|
|
|
snprintf(buf, sizeof(buf),
|
|
"<#%s: ident=\"%s\", options=%d, facility=%d, mask=%d%s>",
|
|
rb_class2name(self),
|
|
syslog_ident,
|
|
syslog_options,
|
|
syslog_facility,
|
|
syslog_mask,
|
|
syslog_opened ? ", opened" : "");
|
|
|
|
return rb_str_new2(buf);
|
|
}
|
|
|
|
static VALUE mSyslog_instance(VALUE self)
|
|
{
|
|
return self;
|
|
}
|
|
|
|
#define define_syslog_shortcut_method(pri, name) \
|
|
static VALUE mSyslog_##name(int argc, VALUE *argv, VALUE self) \
|
|
{ \
|
|
syslog_write(pri, argc, argv); \
|
|
\
|
|
return self; \
|
|
}
|
|
|
|
#ifdef LOG_EMERG
|
|
define_syslog_shortcut_method(LOG_EMERG, emerg)
|
|
#endif
|
|
#ifdef LOG_ALERT
|
|
define_syslog_shortcut_method(LOG_ALERT, alert)
|
|
#endif
|
|
#ifdef LOG_CRIT
|
|
define_syslog_shortcut_method(LOG_CRIT, crit)
|
|
#endif
|
|
#ifdef LOG_ERR
|
|
define_syslog_shortcut_method(LOG_ERR, err)
|
|
#endif
|
|
#ifdef LOG_WARNING
|
|
define_syslog_shortcut_method(LOG_WARNING, warning)
|
|
#endif
|
|
#ifdef LOG_NOTICE
|
|
define_syslog_shortcut_method(LOG_NOTICE, notice)
|
|
#endif
|
|
#ifdef LOG_INFO
|
|
define_syslog_shortcut_method(LOG_INFO, info)
|
|
#endif
|
|
#ifdef LOG_DEBUG
|
|
define_syslog_shortcut_method(LOG_DEBUG, debug)
|
|
#endif
|
|
|
|
static VALUE mSyslogConstants_LOG_MASK(VALUE klass, VALUE pri)
|
|
{
|
|
return INT2FIX(LOG_MASK(FIX2INT(pri)));
|
|
}
|
|
|
|
static VALUE mSyslogConstants_LOG_UPTO(VALUE klass, VALUE pri)
|
|
{
|
|
return INT2FIX(LOG_UPTO(FIX2INT(pri)));
|
|
}
|
|
|
|
/* Init for package syslog */
|
|
void Init_syslog()
|
|
{
|
|
mSyslog = rb_define_module("Syslog");
|
|
|
|
mSyslogConstants = rb_define_module_under(mSyslog, "Constants");
|
|
|
|
rb_include_module(mSyslog, mSyslogConstants);
|
|
|
|
rb_define_module_function(mSyslog, "open", mSyslog_open, -1);
|
|
rb_define_module_function(mSyslog, "reopen", mSyslog_reopen, -1);
|
|
rb_define_module_function(mSyslog, "open!", mSyslog_reopen, -1);
|
|
rb_define_module_function(mSyslog, "opened?", mSyslog_isopen, 0);
|
|
|
|
rb_define_module_function(mSyslog, "ident", mSyslog_ident, 0);
|
|
rb_define_module_function(mSyslog, "options", mSyslog_options, 0);
|
|
rb_define_module_function(mSyslog, "facility", mSyslog_facility, 0);
|
|
|
|
rb_define_module_function(mSyslog, "log", mSyslog_log, -1);
|
|
rb_define_module_function(mSyslog, "close", mSyslog_close, 0);
|
|
rb_define_module_function(mSyslog, "mask", mSyslog_get_mask, 0);
|
|
rb_define_module_function(mSyslog, "mask=", mSyslog_set_mask, 1);
|
|
|
|
rb_define_module_function(mSyslog, "LOG_MASK", mSyslogConstants_LOG_MASK, 1);
|
|
rb_define_module_function(mSyslog, "LOG_UPTO", mSyslogConstants_LOG_UPTO, 1);
|
|
|
|
rb_define_module_function(mSyslog, "inspect", mSyslog_inspect, 0);
|
|
rb_define_module_function(mSyslog, "instance", mSyslog_instance, 0);
|
|
|
|
rb_define_module_function(mSyslogConstants, "LOG_MASK", mSyslogConstants_LOG_MASK, 1);
|
|
rb_define_module_function(mSyslogConstants, "LOG_UPTO", mSyslogConstants_LOG_UPTO, 1);
|
|
|
|
#define rb_define_syslog_const(id) \
|
|
rb_define_const(mSyslogConstants, #id, INT2NUM(id))
|
|
|
|
/* Various options when opening log */
|
|
#ifdef LOG_PID
|
|
rb_define_syslog_const(LOG_PID);
|
|
#endif
|
|
#ifdef LOG_CONS
|
|
rb_define_syslog_const(LOG_CONS);
|
|
#endif
|
|
#ifdef LOG_ODELAY
|
|
rb_define_syslog_const(LOG_ODELAY); /* deprecated */
|
|
#endif
|
|
#ifdef LOG_NDELAY
|
|
rb_define_syslog_const(LOG_NDELAY);
|
|
#endif
|
|
#ifdef LOG_NOWAIT
|
|
rb_define_syslog_const(LOG_NOWAIT); /* deprecated */
|
|
#endif
|
|
#ifdef LOG_PERROR
|
|
rb_define_syslog_const(LOG_PERROR);
|
|
#endif
|
|
|
|
/* Various syslog facilities */
|
|
#ifdef LOG_AUTH
|
|
rb_define_syslog_const(LOG_AUTH);
|
|
#endif
|
|
#ifdef LOG_AUTHPRIV
|
|
rb_define_syslog_const(LOG_AUTHPRIV);
|
|
#endif
|
|
#ifdef LOG_CONSOLE
|
|
rb_define_syslog_const(LOG_CONSOLE);
|
|
#endif
|
|
#ifdef LOG_CRON
|
|
rb_define_syslog_const(LOG_CRON);
|
|
#endif
|
|
#ifdef LOG_DAEMON
|
|
rb_define_syslog_const(LOG_DAEMON);
|
|
#endif
|
|
#ifdef LOG_FTP
|
|
rb_define_syslog_const(LOG_FTP);
|
|
#endif
|
|
#ifdef LOG_KERN
|
|
rb_define_syslog_const(LOG_KERN);
|
|
#endif
|
|
#ifdef LOG_LPR
|
|
rb_define_syslog_const(LOG_LPR);
|
|
#endif
|
|
#ifdef LOG_MAIL
|
|
rb_define_syslog_const(LOG_MAIL);
|
|
#endif
|
|
#ifdef LOG_NEWS
|
|
rb_define_syslog_const(LOG_NEWS);
|
|
#endif
|
|
#ifdef LOG_NTP
|
|
rb_define_syslog_const(LOG_NTP);
|
|
#endif
|
|
#ifdef LOG_SECURITY
|
|
rb_define_syslog_const(LOG_SECURITY);
|
|
#endif
|
|
#ifdef LOG_SYSLOG
|
|
rb_define_syslog_const(LOG_SYSLOG);
|
|
#endif
|
|
#ifdef LOG_USER
|
|
rb_define_syslog_const(LOG_USER);
|
|
#endif
|
|
#ifdef LOG_UUCP
|
|
rb_define_syslog_const(LOG_UUCP);
|
|
#endif
|
|
#ifdef LOG_LOCAL0
|
|
rb_define_syslog_const(LOG_LOCAL0);
|
|
#endif
|
|
#ifdef LOG_LOCAL1
|
|
rb_define_syslog_const(LOG_LOCAL1);
|
|
#endif
|
|
#ifdef LOG_LOCAL2
|
|
rb_define_syslog_const(LOG_LOCAL2);
|
|
#endif
|
|
#ifdef LOG_LOCAL3
|
|
rb_define_syslog_const(LOG_LOCAL3);
|
|
#endif
|
|
#ifdef LOG_LOCAL4
|
|
rb_define_syslog_const(LOG_LOCAL4);
|
|
#endif
|
|
#ifdef LOG_LOCAL5
|
|
rb_define_syslog_const(LOG_LOCAL5);
|
|
#endif
|
|
#ifdef LOG_LOCAL6
|
|
rb_define_syslog_const(LOG_LOCAL6);
|
|
#endif
|
|
#ifdef LOG_LOCAL7
|
|
rb_define_syslog_const(LOG_LOCAL7);
|
|
#endif
|
|
|
|
#define rb_define_syslog_shortcut(name) \
|
|
rb_define_module_function(mSyslog, #name, mSyslog_##name, -1)
|
|
|
|
/* Various syslog priorities and the shortcut methods */
|
|
#ifdef LOG_EMERG
|
|
rb_define_syslog_const(LOG_EMERG);
|
|
rb_define_syslog_shortcut(emerg);
|
|
#endif
|
|
#ifdef LOG_ALERT
|
|
rb_define_syslog_const(LOG_ALERT);
|
|
rb_define_syslog_shortcut(alert);
|
|
#endif
|
|
#ifdef LOG_CRIT
|
|
rb_define_syslog_const(LOG_CRIT);
|
|
rb_define_syslog_shortcut(crit);
|
|
#endif
|
|
#ifdef LOG_ERR
|
|
rb_define_syslog_const(LOG_ERR);
|
|
rb_define_syslog_shortcut(err);
|
|
#endif
|
|
#ifdef LOG_WARNING
|
|
rb_define_syslog_const(LOG_WARNING);
|
|
rb_define_syslog_shortcut(warning);
|
|
#endif
|
|
#ifdef LOG_NOTICE
|
|
rb_define_syslog_const(LOG_NOTICE);
|
|
rb_define_syslog_shortcut(notice);
|
|
#endif
|
|
#ifdef LOG_INFO
|
|
rb_define_syslog_const(LOG_INFO);
|
|
rb_define_syslog_shortcut(info);
|
|
#endif
|
|
#ifdef LOG_DEBUG
|
|
rb_define_syslog_const(LOG_DEBUG);
|
|
rb_define_syslog_shortcut(debug);
|
|
#endif
|
|
}
|