/usr/local/CPAN/Ocsinventory-Agent/Ocsinventory/LoggerBackend/Syslog.pm

• package Ocsinventory::LoggerBackend::Syslog
  • new
  • addMsg
• EOF

package Ocsinventory::LoggerBackend::Syslog;
# Not tested yet!
use Sys::Syslog qw( :DEFAULT setlogsock);

sub new {
  my (undef, $params) = @_;

  my $self = {};

  setlogsock('unix');
  openlog("ocs-agent", 'cons,pid', $ENV{'USER'});
  syslog('debug', 'syslog backend enabled');
  closelog();

  bless $self;
}

sub addMsg {

  my (undef, $args) = @_;

  my $level = $args->{level};
  my $message = $args->{message};

  return if $message =~ /^$/;

  openlog("ocs-agent", 'cons,pid', $ENV{'USER'});
  syslog('info', $message);
  closelog();

}

1;