diff options
| author | Vsevolod Stakhov <vsevolod@rambler-co.ru> | 2009-02-12 14:40:51 +0300 |
|---|---|---|
| committer | Vsevolod Stakhov <vsevolod@rambler-co.ru> | 2009-02-12 14:40:51 +0300 |
| commit | 6c8fc71eafb0f0bb069dba703c805a5247c917c7 (patch) | |
| tree | efca07d7ff100a183b56eb1bb5d31602444408b3 /perl/rspamd.xs | |
| parent | 54480f21f115b40e76806210a61bdde00d3842f7 (diff) | |
| download | rspamd-6c8fc71eafb0f0bb069dba703c805a5247c917c7.tar.gz rspamd-6c8fc71eafb0f0bb069dba703c805a5247c917c7.zip | |
* Add log function to perl API
* Prepare for more detailed work on rspamd perl API
Diffstat (limited to 'perl/rspamd.xs')
| -rw-r--r-- | perl/rspamd.xs | 18 |
1 files changed, 17 insertions, 1 deletions
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; + |