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: Stderr.pm
(593 B)
Path: /usr/share/perl5/vendor_perl/Ocsinventory/LoggerBackend/Stderr.pm
Back
package Ocsinventory::LoggerBackend::Stderr; sub new { my (undef, $params) = @_; my $self = {}; $self->{config} = $params->{config}; bless $self; } sub addMsg { my ($self, $args) = @_; my $level = $args->{level}; my $message = $args->{message}; return if $message =~ /^$/; # if STDERR has been hijacked, I take its saved ref my $stderr; if (exists ($self->{config}->{savedstderr})) { $stderr = $self->{config}->{savedstderr}; } else { open ($stderr, ">&STDERR"); } print $stderr "[$level] $message\n"; } 1;