Avii/Radicale
1
0
Fork 0
Code Issues Pull Requests Actions 2 Packages Projects Releases Wiki Activity

profiling: logwatch extension (incl. skip not interesting lines)

Browse Source
This commit is contained in:
Peter Bieringer
2025-12-08 18:42:02 +01:00
parent 5fbd838eab
commit 2ff6f18817
1 changed files with 24 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

24
contrib/logwatch/radicale
View File

@@ -126,11 +126,35 @@ while (defined($ThisLine = <STDIN>)) {
elsif ( $ThisLine =~ / (Failed login attempt) /o ) { elsif ( $ThisLine =~ / (Failed login attempt) /o ) {
$OtherEvents{$1}++; $OtherEvents{$1}++;
} }
elsif ( $ThisLine =~ / (Profiling data per request method \S+) /o ) {
my $info = $1;
if ( $ThisLine =~ /(no request seen so far)/o ) {
$OtherEvents{$info . " - " . $1}++;
} else {
$OtherEvents{$info}++;
};
}
elsif ( $ThisLine =~ / (Profiling data per request \S+) /o ) {
my $info = $1;
if ( $ThisLine =~ /(suppressed because duration below minimum|suppressed because of no data)/o ) {
$OtherEvents{$info . " - " . $1}++;
} else {
$OtherEvents{$info}++;
};
}
elsif ( $ThisLine =~ /\[(DEBUG|INFO)\] /o ) { elsif ( $ThisLine =~ /\[(DEBUG|INFO)\] /o ) {
# skip if DEBUG+INFO # skip if DEBUG+INFO
} }
else { else {
# Report any unmatched entries... # Report any unmatched entries...
if ($ThisLine =~ /^({\'| )/o) {
# skip profiling or raw header data
next;
};
if ($ThisLine =~ /^$/o) {
# skip empty line
next;
};
$ThisLine =~ s/^\[\d+(\/Thread-\d+)?\] //; # remove process/Thread ID $ThisLine =~ s/^\[\d+(\/Thread-\d+)?\] //; # remove process/Thread ID
chomp($ThisLine); chomp($ThisLine);
$OtherList{$ThisLine}++; $OtherList{$ThisLine}++;