31 lines
475 B
Perl
31 lines
475 B
Perl
package DoctorAgustin::Logger;
|
|
|
|
use Sys::Syslog;
|
|
|
|
sub new {
|
|
my $class = shift;
|
|
my $self = bless {}, $class;
|
|
return $self;
|
|
}
|
|
|
|
sub _log {
|
|
my $self = shift;
|
|
my $level = shift;
|
|
my $message = shift;
|
|
|
|
openlog ('Doctor Agustín: ', 'perror', 'user');
|
|
syslog ($level, $message);
|
|
closelog();
|
|
}
|
|
|
|
sub log_error {
|
|
my $self = shift;
|
|
$self->_log (LOG_ERR, shift);
|
|
}
|
|
|
|
sub log_info {
|
|
my $self = shift;
|
|
$self->_log (LOG_INFO, shift);
|
|
}
|
|
1;
|