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

analyse two more xml tokens

Browse Source
This commit is contained in:
Peter Bieringer
2025-12-17 08:30:12 +01:00
parent cbece4f276
commit af9ead9188
1 changed files with 7 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
contrib/logwatch/radicale
View File

@@ -91,9 +91,15 @@ sub ConvertTokens($) {
if (defined $tokens_h{"sync-token"}) {
push @result_a, "ST";
}
if (defined $tokens_h{"sync-collection"}) {
push @result_a, "SC";
}
if (defined $tokens_h{"getctag"}) {
push @result_a, "GCT";
}
if (defined $tokens_h{"getetag"}) {
push @result_a, "GET";
}
# TODO: add potential others which causing long duration
$result = "";
if (scalar(@result_a) > 0) {
@@ -251,7 +257,7 @@ if (keys %Logins) {
if (keys %ResponseTimes) {
$length = MaxLength(\%ResponseTimes);
print "\n**Response timings (counts, seconds) (D=<depth> R=<result> F=<flags>)**\n";
print "* Flags: ST:sync-token GCT:getctag\n";
print "* Flags: ST:sync-token SC:sync-collection GCT:getctag GET:getetag\n";
printf "%-" . $length . "s | %7s | %7s | %7s | %7s |\n", "Response", "cnt", "min", "max", "avg";
print "-" x($length + 42) . "\n";
foreach my $req (sort keys %ResponseTimes) {