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
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
|
###########################################################################
#
# Syslog.pm
#
# Copyright (C) 1999 Raphael Manfredi.
# Copyright (C) 2002-2017 Mark Rogaski, mrogaski@cpan.org;
# all rights reserved.
#
# See the README file included with the
# distribution for license information.
#
##########################################################################
use strict;
########################################################################
package Log::Agent::Driver::Syslog;
require Log::Agent::Driver;
use vars qw(@ISA);
@ISA = qw(Log::Agent::Driver);
require Log::Agent::Channel::Syslog;
#
# ->make -- defined
#
# Creation routine.
#
# All switches are passed to Log::Agent::Channel::Syslog.
#
# prefix the application name
# facility the syslog facility name to use ("auth", "daemon", etc...)
# showpid whether to show pid
# socktype socket type ('unix' or 'inet')
# logopt list of openlog() options: 'ndelay', 'cons' or 'nowait'
#
sub make {
my $self = bless {}, shift;
my (%args) = @_;
my $prefix;
my %set = (
-prefix => \$prefix, # Handled by parent via _init
);
while (my ($arg, $val) = each %args) {
my $vset = $set{lc($arg)};
next unless ref $vset;
$$vset = $val;
}
$self->{channel} = Log::Agent::Channel::Syslog->make(@_);
$self->_init($prefix, 0); # 0 is the skip Carp penalty
return $self;
}
sub channel { $_[0]->{channel} }
#
# ->prefix_msg -- defined
#
# NOP -- syslog will handle this
#
sub prefix_msg {
my $self = shift;
return $_[0];
}
#
# ->channel_eq -- defined
#
# Always true.
#
sub channel_eq {
return 1;
}
my %syslog_pri = (
'em' => 'emerg',
'al' => 'alert',
'cr' => 'crit',
'er' => 'err',
'wa' => 'warning',
'no' => 'notice',
'in' => 'info',
'de' => 'debug'
);
#
# ->map_pri -- redefined
#
# Levels ignored, only priorities matter.
#
sub map_pri {
my $self = shift;
my ($priority, $level) = @_;
return $syslog_pri{lc(substr($priority, 0, 2))} || 'debug';
}
#
# ->write -- defined
#
# $channel is ignored
#
sub write {
my $self = shift;
my ($channel, $priority, $logstring) = @_;
$self->channel->write($priority, $logstring);
}
1; # for require
__END__
=head1 NAME
Log::Agent::Driver::Syslog - syslog logging driver for Log::Agent
=head1 SYNOPSIS
use Log::Agent;
require Log::Agent::Driver::Syslog;
my $driver = Log::Agent::Driver::Syslog->make(
-prefix => prefix,
-facility => "user",
-showpid => 1,
-socktype => { port => 514, proto => "udp" },
-logopt => "ndelay",
);
logconfig(-driver => $driver);
=head1 DESCRIPTION
The syslog logging driver delegates logxxx() operations to syslog() via
the Sys::Syslog(3) interface.
The creation routine make() takes the following switches:
=over 4
=item C<-facility> => I<facility>
Tell syslog() which facility to use (e.g. "user", "auth", "daemon").
Unlike the Sys::Syslog(3) interface, the facility is set once and for all:
every logging message will use the same facility.
If you wish to log something to "auth" for instance, then do so via
Sys::Syslog directly: there is no guarantee that the application will configure
its Log::Agent to use syslog anyway!
=item C<-logopt> => I<syslog options>
Specifies logging options, under the form of a string containing zero or
more of the words I<ndelay>, I<cons> or I<nowait>.
=item C<-prefix> => I<prefix>
The I<prefix> here is syslog's identification string.
=item C<-showpid> => I<flag>
Set to true to have the PID of the process logged. It is false by default.
=item C<-socktype> => I<options>
Specifies the logging socket to use (protocol, destination, etc.).
The value given is not interpreted and passed as-is to the C<setlogsock()>
routine in Sys::Syslog(3).
Please refer to Log::Agent::Channel::Syslog(3) for more information.
=back
=head1 CHANNELS
All the channels go to syslog(), of course.
=head1 AUTHOR
Raphael Manfredi F<E<lt>Raphael_Manfredi@pobox.comE<gt>>
=head1 SEE ALSO
Log::Agent::Driver(3), Log::Agent::Channel::Syslog(3), Sys::Syslog(3).
=cut
|
