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: File.pm
(594 B)
Path: /usr/share/perl5/vendor_perl/Ocsinventory/LoggerBackend/File.pm
Back
package Ocsinventory::LoggerBackend::File; use strict; sub new { my (undef, $params) = @_; my $self = {}; $self->{config} = $params->{config}; $self->{logfile} = $self->{config}->{logdir}."/".$self->{config}->{logfile}; bless $self; } sub addMsg { my ($self, $args) = @_; my $level = $args->{level}; my $message = $args->{message}; return if $message =~ /^$/; open FILE, ">>".$self->{config}->{logfile} or warn "Can't open ". "`".$self->{config}->{logfile}."'\n"; print FILE "[".localtime()."][$level] $message\n"; close FILE; } 1;