File: File.pm

package info (click to toggle)
ocsinventory-agent 2%3A2.0.5-1.2
  • links: PTS
  • area: main
  • in suites: stretch
  • size: 4,120 kB
  • ctags: 899
  • sloc: perl: 20,687; sh: 576; objc: 468; ansic: 333; makefile: 55
file content (31 lines) | stat: -rw-r--r-- 569 bytes parent folder | download | duplicates (3) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
 
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;