From 6c8fc71eafb0f0bb069dba703c805a5247c917c7 Mon Sep 17 00:00:00 2001
From: Vsevolod Stakhov <vsevolod@rambler-co.ru>
Date: Thu, 12 Feb 2009 14:40:51 +0300
Subject: * Add log function to perl API * Prepare for more detailed work on
 rspamd perl API

---
 perl/rspamd.pm | 24 ++++++++++++++++++++++++
 perl/rspamd.xs | 18 +++++++++++++++++-
 2 files changed, 41 insertions(+), 1 deletion(-)

(limited to 'perl')

diff --git a/perl/rspamd.pm b/perl/rspamd.pm
index d3b2fac0e..6048f1a3f 100644
--- a/perl/rspamd.pm
+++ b/perl/rspamd.pm
@@ -7,11 +7,35 @@ use warnings;
 require Exporter;
 
 our @ISA = qw(Exporter);
+our @EXPORT = qw(
+    module_init
+    module_reload
+    LOG_ERROR
+    LOG_WARNING
+    LOG_MESSAGE
+    LOG_INFO
+    LOG_DEBUG
+);
 
 our $VERSION = '0.0.1';
 
 require XSLoader;
 XSLoader::load('rspamd', $VERSION);
+
+sub module_init {
+    my ($cfg) = @_;
+}
+
+sub module_reload {
+    my ($cfg) = @_;
+}
+
+use constant LOG_ERROR          =>  1 << 3;
+use constant LOG_WARNING        =>  1 << 4;
+use constant LOG_MESSAGE        =>  1 << 5;
+use constant LOG_INFO           =>  1 << 6;
+use constant LOG_DEBUG          =>  1 << 7;
+
 1;
 __END__
 
diff --git a/perl/rspamd.xs b/perl/rspamd.xs
index 4dfc9e665..c7e1ae776 100644
--- a/perl/rspamd.xs
+++ b/perl/rspamd.xs
@@ -464,7 +464,7 @@ OUTPUT:
     RETVAL
 
 void
-rspamd_task_get_module_param (r, modulename, paramname)
+rspamd_config_get_module_param (r, modulename, paramname)
 	CODE:
 	struct config_file *r;
 	char *module, *param, *value;
@@ -483,3 +483,19 @@ rspamd_task_get_module_param (r, modulename, paramname)
 	sv_setpv(TARG, value);
 
 	ST(0) = TARG;
+
+MODULE = rspamd   PACKAGE = rspamd_log PREFIX = rspamd_log_
+PROTOTYPES: DISABLE
+
+void
+rspamd_log_log (level, str)
+    CODE:
+    int level;
+    char *str;
+    
+    level = (int)SvIV (ST(0));
+    str = (char *)SvPV_nolen (ST(1));
+    
+    g_log (G_LOG_DOMAIN, level, "%s", str);
+    XSRETURN_EMPTY;
+
-- 
cgit v1.2.3