Skip to content

Commit 1fbf565

Browse files
mohawk2haarg
authored andcommitted
Fix log filtering
In the "properties" config syntax which we use, we can only give one Filter - "Filters" does parse, but doesn't have an effect. Therefore we use StringMatch's RE functionality to match several things.
1 parent addafd6 commit 1fbf565

File tree

1 file changed

+5
-21
lines changed

1 file changed

+5
-21
lines changed

log4perl_prod.conf

+5-21
Original file line numberDiff line numberDiff line change
@@ -1,33 +1,17 @@
11
log4perl.rootLogger=WARN, OUTPUT, SYSLOG
22

3-
log4perl.filter.GazelleWarnings = Log::Log4perl::Filter::StringMatch
4-
log4perl.filter.GazelleWarnings.StringToMatch = failed to writev: -1 errno:32
5-
log4perl.filter.GazelleWarnings.AcceptOnMatch = false
6-
7-
log4perl.filter.NetworkErrors = Log::Log4perl::Filter::StringMatch
8-
log4perl.filter.NetworkErrors.StringToMatch = Timed out at
9-
log4perl.filter.NetworkErrors.AcceptOnMatch = false
10-
11-
log4perl.filter.UnicodeErrors = Log::Log4perl::Filter::StringMatch
12-
log4perl.filter.UnicodeErrors.StringToMatch = does not map to Unicode
13-
log4perl.filter.UnicodeErrors.AcceptOnMatch = false
14-
15-
log4perl.filter.BadModule = Log::Log4perl::Filter::StringMatch
16-
log4perl.filter.BadModule.StringToMatch = Bad module supplied
17-
log4perl.filter.BadModule.AcceptOnMatch = false
3+
log4perl.filter.WarningsFilter = Log::Log4perl::Filter::StringMatch
4+
log4perl.filter.WarningsFilter.StringToMatch = failed to writev: -1 errno:32|Timed out at|does not map to Unicode|Bad module supplied
5+
log4perl.filter.WarningsFilter.AcceptOnMatch = false
186

197
log4perl.appender.OUTPUT = Log::Log4perl::Appender::Screen
208
log4perl.appender.OUTPUT.stderr = 1
21-
log4perl.appender.OUTPUT.Filters = GazelleWarnings
22-
log4perl.appender.OUTPUT.Filters = NetworkErrors
23-
log4perl.appender.OUTPUT.Filters = UnicodeErrors
24-
log4perl.appender.OUTPUT.Filters = BadModule
9+
log4perl.appender.OUTPUT.Filter = WarningsFilter
2510
log4perl.appender.OUTPUT.layout = PatternLayout
2611
log4perl.appender.OUTPUT.layout.ConversionPattern = [%d] [%p] [%X{url}] %m%n
2712

2813
log4perl.appender.SYSLOG = Log::Dispatch::Syslog
29-
log4perl.appender.SYSLOG.Filters = GazelleWarnings
30-
log4perl.appender.SYSLOG.Filters = NetworkErrors
14+
log4perl.appender.SYSLOG.Filter = WarningsFilter
3115
log4perl.appender.SYSLOG.ident = metacpan_web
3216
log4perl.appender.SYSLOG.facility = local0
3317
log4perl.appender.SYSLOG.layout = Log::Log4perl::Layout::JSON

0 commit comments

Comments
 (0)