=head1 NAME
Mail::SpamAssassin::Logger::File - log to file
=head1 SYNOPSIS
loadplugin Mail::SpamAssassin::Logger::File
=head1 DESCRIPTION
=cut
package Mail::SpamAssassin::Logger::File;
use strict;
use warnings;
use bytes;
use Mail::SpamAssassin::Logger;
use vars qw(@ISA);
@ISA = ();
sub new {
my $class = shift;
$class = ref($class) || $class;
my $self = { };
bless ($self, $class);
my %params = @_;
$self->{filename} = $params{filename} || 'spamassassin.log';
if (! $self->init()) {
die "logger: file initialization failed\n";
}
return($self);
}
sub init {
my ($self) = @_;
if (open(STDLOG, ">> $self->{filename}")) {
dbg("logger: successfully opened file $self->{filename}");
my $oldfh = select STDLOG;
$| = 1;
select $oldfh;
return 1;
}
else {
warn "logger: failed to open file $self->{filename}: $!\n";
return 0;
}
}
sub log_message {
my ($self, $level, $msg) = @_;
syswrite(STDLOG, sprintf("%s [%s] %s: %s\n",
scalar localtime, $$, $level, $msg));
}
sub close_log {
my ($self) = @_;
close(STDLOG) if defined $self->{filename};
}
1;