Server IP : 85.214.239.14 / Your IP : 3.141.32.252 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 : /proc/self/root/usr/share/perl5/Net/Server/Log/Log/ |
Upload File : |
# -*- perl -*- # # Net::Server::Log::Log::Log4perl - Net::Server Logging module # # Copyright (C) 2012-2022 # # Paul Seamons <paul@seamons.com> # # This package may be distributed under the terms of either the # GNU General Public License # or the # Perl Artistic License # ################################################################ package Net::Server::Log::Log::Log4perl; use strict; use warnings; our %log4perl_map = (1 => "error", 2 => "warn", 3 => "info", 4 => "debug"); sub initialize { my ($class, $server) = @_; my $prop = $server->{'server'}; require Log::Log4perl; $server->configure({ log4perl_conf => \$prop->{'log4perl_conf'}, log4perl_logger => \$prop->{'log4perl_logger'}, log4perl_poll => \$prop->{'log4perl_poll'}, }); die "Must specify a log4perl_conf file" if ! $prop->{'log4perl_conf'}; my $poll = defined($prop->{'log4perl_poll'}) ? $prop->{'log4perl_poll'} : "0"; my $logger = $prop->{'log4perl_logger'} || "Net::Server"; if ($poll eq "0") { Log::Log4perl::init($prop->{'log4perl_conf'}); } else { Log::Log4perl::init_and_watch($prop->{'log4perl_conf'}, $poll); } my $l4p = Log::Log4perl->get_logger($logger); return sub { my ($level, $msg) = @_; $level = $log4perl_map{$level} || "error"; $l4p->$level($msg); }; } 1; __END__ =head1 NAME Net::Server::Log::Log::Log4perl - log via Log4perl =head1 SYNOPSIS use base qw(Net::Server::PreFork); __PACKAGE__->run( log_file => 'Log::Log4perl', log4perl_conf => '/path/to/my/log4perl.conf', log4perl_logger => 'myapp', ); =head1 DESCRIPTION This module provides Log::Log4perl style logging to the Net::Server system. =head1 CONFIGURATION =over 4 =item log_file To begin using Log::Log4perl logging, simply set the Net::Server log_file configuration parameter to "Log::Log4perl". If the magic name "Log::Log4perl" is used, all logging will be directed to the Log4perl system. If used, the C<log4perl_conf>, C<log4perl_poll>, C<log4perl_logger> may also be defined. =item log4perl_conf Only available if C<log_file> is equal to "Log::Log4perl". This is the filename of the log4perl configuration file - see L<Log::Log4perl>. If this is not set, will die on startup. If the file is not readable, will die. =item log4perl_poll If set to a value, will initialize with Log::Log4perl::init_and_watch with this polling value. This can also be the string "HUP" to re-read the log4perl_conf when a HUP signal is received. If set to 0, no polling is done. See L<Log::Log4perl> for more details. =item log4perl_logger This is the facility name. Defaults to "Net::Server". =back =head1 DEFAULT ARGUMENTS FOR Net::Server The following arguments are available in the default C<Net::Server> or C<Net::Server::Single> modules. (Other personalities may use additional parameters and may optionally not use parameters from the base class.) Key Value Default ## log4perl parameters (if log_file eq Log::Log4perl) log4perl_conf "filename" will die if not set log4perl_poll number or HUP 0 (no polling) log4perl_logger "name" "Net::Server" =head1 METHODS =over 4 =item C<initialize> This method is called during the initilize_logging method of Net::Server. It returns a single code ref that will be stored under the log_function property of the Net::Server object. That code ref takes log_level and message as arguments and calls the initialized log4perl system. =back =head1 LICENCE Distributed under the same terms as Net::Server =cut