24 lines
398 B
Perl
24 lines
398 B
Perl
|
package OSSEC;
|
||
|
|
||
|
# ABSTRACT: OSSEC -
|
||
|
use strict;
|
||
|
use warnings;
|
||
|
use Moose;
|
||
|
use OSSEC::Log;
|
||
|
|
||
|
has 'ossecPath' => (is => 'rw', isa => 'Str' , default => "/var/ossec" );
|
||
|
|
||
|
=method arLog
|
||
|
|
||
|
returns object to a ossec log object for loggin active response activity
|
||
|
|
||
|
=cut
|
||
|
sub arLog
|
||
|
{
|
||
|
my $self = shift;
|
||
|
|
||
|
return OSSEC::Log->new(ossecPath => $self->ossecPath(), file => "logs/active-responses.log");
|
||
|
}
|
||
|
|
||
|
1;
|