61de599c1b
find . -type f | xargs -n1 perl -pi.bak -0777 -e '$want = "#!perl -Tw"; s/\A#!.*\n/$want\n/; s/\A([^#])/$want\n\1/s'
79 lines
2.0 KiB
Perl
79 lines
2.0 KiB
Perl
#!perl -Tw
|
|
# this is a simple 'warn' plugin like the default builtin logging
|
|
#
|
|
# It demonstrates that a logging plugin can call ->log itself as well
|
|
# as how to ignore log entries from itself
|
|
|
|
sub register {
|
|
my ($self, $qp, $loglevel) = @_;
|
|
|
|
$self->{_level} = LOGWARN;
|
|
if ( defined($loglevel) ) {
|
|
if ($loglevel =~ /^\d+$/) {
|
|
$self->{_level} = $loglevel;
|
|
}
|
|
else {
|
|
$self->{_level} = log_level($loglevel);
|
|
}
|
|
}
|
|
|
|
# If you want to capture this log entry with this plugin, you need to
|
|
# wait until after you register the plugin
|
|
$self->log(LOGINFO,'Initializing logging::warn plugin');
|
|
}
|
|
|
|
sub hook_logging {
|
|
my ($self, $transaction, $trace, $hook, $plugin, @log) = @_;
|
|
|
|
# Don't log your own log entries! If this is the only logging plugin
|
|
# then these lines will not be logged at all. You can safely comment
|
|
# out this line and it will not cause an infinite loop.
|
|
return DECLINED if defined $plugin and $plugin eq $self->plugin_name;
|
|
|
|
warn
|
|
join(" ", $$ .
|
|
(defined $plugin ? " $plugin plugin:" :
|
|
defined $hook ? " running plugin ($hook):" : ""),
|
|
@log), "\n"
|
|
if ($trace <= $self->{_level});
|
|
|
|
return DECLINED;
|
|
}
|
|
|
|
=cut
|
|
|
|
=head1 NAME
|
|
|
|
warn - Default logging plugin for qpsmtpd
|
|
|
|
=head1 DESCRIPTION
|
|
|
|
A qpsmtpd plugin which replicates the built in logging functionality, which
|
|
is to send all logging messages to STDERR below a specific log level.
|
|
|
|
=head1 INSTALL AND CONFIG
|
|
|
|
Place this plugin in the plugin/logging directory beneath the standard
|
|
qpsmtpd installation. Edit the config/logging file and add a line like
|
|
this:
|
|
|
|
logging/warn [loglevel]
|
|
|
|
where the optional parameters C<loglevel> is either the numeric or text
|
|
representation of the maximum log level, as shown in the
|
|
L<config.sample/loglevel> file.
|
|
|
|
=head1 AUTHOR
|
|
|
|
John Peacock <jpeacock@cpan.org>
|
|
|
|
=head1 COPYRIGHT AND LICENSE
|
|
|
|
Copyright (c) 2005 John Peacock
|
|
|
|
This plugin is licensed under the same terms as the qpsmtpd package itself.
|
|
Please see the LICENSE file included with qpsmtpd for details.
|
|
|
|
=cut
|
|
|