diff options
Diffstat (limited to 'contrib/file_processor/Action/Syslog.pm')
| -rw-r--r-- | contrib/file_processor/Action/Syslog.pm | 20 |
1 files changed, 20 insertions, 0 deletions
diff --git a/contrib/file_processor/Action/Syslog.pm b/contrib/file_processor/Action/Syslog.pm new file mode 100644 index 0000000..6b7c31a --- /dev/null +++ b/contrib/file_processor/Action/Syslog.pm @@ -0,0 +1,20 @@ +package Action::Syslog; +use Moose; +extends 'Processor'; +use Sys::Syslog qw(:standard :macros); + +our $Program = 'suricata_file'; +our $Facility = LOG_LOCAL0; +has 'data' => (is => 'rw', isa => 'HashRef', required => 1); + +sub name { 'syslog' } +sub description { 'Log to local syslog' } + +sub perform { + my $self = shift; + openlog($Program, undef, $Facility); + syslog(LOG_INFO, $self->json->encode($self->data)); + closelog; +} + +1 |