Server IP : 85.214.239.14 / Your IP : 3.147.6.122 Web Server : Apache/2.4.62 (Debian) System : Linux h2886529.stratoserver.net 4.9.0 #1 SMP Tue Jan 9 19:45:01 MSK 2024 x86_64 User : www-data ( 33) PHP Version : 7.4.18 Disable Function : pcntl_alarm,pcntl_fork,pcntl_waitpid,pcntl_wait,pcntl_wifexited,pcntl_wifstopped,pcntl_wifsignaled,pcntl_wifcontinued,pcntl_wexitstatus,pcntl_wtermsig,pcntl_wstopsig,pcntl_signal,pcntl_signal_get_handler,pcntl_signal_dispatch,pcntl_get_last_error,pcntl_strerror,pcntl_sigprocmask,pcntl_sigwaitinfo,pcntl_sigtimedwait,pcntl_exec,pcntl_getpriority,pcntl_setpriority,pcntl_async_signals,pcntl_unshare, MySQL : OFF | cURL : OFF | WGET : ON | Perl : ON | Python : ON | Sudo : ON | Pkexec : OFF Directory : /usr/share/perl5/Mail/SpamAssassin/Logger/ |
Upload File : |
# <@LICENSE> # Licensed to the Apache Software Foundation (ASF) under one or more # contributor license agreements. See the NOTICE file distributed with # this work for additional information regarding copyright ownership. # The ASF licenses this file to you under the Apache License, Version 2.0 # (the "License"); you may not use this file except in compliance with # the License. You may obtain a copy of the License at: # # http://www.apache.org/licenses/LICENSE-2.0 # # Unless required by applicable law or agreed to in writing, software # distributed under the License is distributed on an "AS IS" BASIS, # WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. # See the License for the specific language governing permissions and # limitations under the License. # </@LICENSE> =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 re 'taint'; use POSIX (); use Time::HiRes (); use Mail::SpamAssassin::Logger; our @ISA = (); # ADDING OS-DEPENDENT LINE TERMINATOR - BUG 6456 # Using Mail::SpamAssassin::Util::am_running_on_windows() leads to circular # dependencies. So, we are duplicating the code instead. use constant RUNNING_ON_WINDOWS => ($^O =~ /^(?:mswin|dos|os2)/oi); my $eol = "\n"; if (RUNNING_ON_WINDOWS) { $eol = "\r\n"; } sub new { my $class = shift; $class = ref($class) || $class; my $self = { }; bless ($self, $class); # parameters my %params = @_; $self->{filename} = $params{filename} || 'spamassassin.log'; $self->{timestamp_fmt} = $params{timestamp_fmt}; $self->{escape} = $params{escape} if exists $params{escape}; if (! $self->init()) { die "logger: file initialization failed$eol"; } return($self); } # logging via file is requested sub init { my ($self) = @_; if (open(STDLOG, ">> $self->{filename}")) { dbg("logger: successfully opened file $self->{filename}"); # ensure it's unbuffered my $oldfh = select STDLOG; $| = 1; select $oldfh; return 1; } else { warn "logger: failed to open file $self->{filename}: $!$eol"; return 0; } } sub log_message { my ($self, $level, $msg, $ts) = @_; my $timestamp; my $fmt = $self->{timestamp_fmt}; my $now = defined $ts ? $ts : Time::HiRes::time; if (!defined $fmt) { $timestamp = scalar localtime($now); # default, backward compatibility } elsif ($fmt eq '') { $timestamp = ''; } else { $timestamp = POSIX::strftime($fmt, localtime($now)); } $timestamp .= ' ' if $timestamp ne ''; if ($self->{escape}) { # Bug 6583, escape Mail::SpamAssassin::Logger::escape_str($msg); } elsif (!exists $self->{escape}) { # Backwards compatible pre-4.0 escaping, if $escape not given. # replace control characters with "_", tabs and spaces get # replaced with a single space. $msg =~ tr/\x09\x20\x00-\x1f/ _/s; } my($nwrite) = syswrite(STDLOG, sprintf("%s[%s] %s: %s%s", $timestamp, $$, $level, $msg, $eol)); defined $nwrite or warn "error writing to log file: $!"; } sub close_log { my ($self) = @_; if (defined $self->{filename}) { close(STDLOG) or die "error closing log file: $!"; } } 1;