Added Syslog action for logging to local syslog

diff --git a/contrib/file_processor/Action/Syslog.pm b/contrib/file_processor/Action/Syslog.pm
new file mode 100644 (file)
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