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.pm | |
| 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.pm')
| -rw-r--r-- | perl/rspamd.pm | 24 |
1 files changed, 24 insertions, 0 deletions
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__ |