From: Fabian Keil <fk@fabiankeil.de>
Date: Sat, 30 May 2020 04:15:11 +0000 (+0200)
Subject: privoxy-log-parser.pl: Include status code distribution in the stats
X-Git-Tag: v_3_0_29~346
X-Git-Url: http://www.privoxy.org/gitweb/@default-cgi@/faq/%22https:/static/coding.html?a=commitdiff_plain;h=7b02dc68d5a7ac26f061ce3d84c26362130a1f45;p=privoxy.git

privoxy-log-parser.pl: Include status code distribution in the stats
---

diff --git a/tools/privoxy-log-parser.pl b/tools/privoxy-log-parser.pl
index c24b89b4..470b5d21 100755
--- a/tools/privoxy-log-parser.pl
+++ b/tools/privoxy-log-parser.pl
@@ -2010,6 +2010,7 @@ sub gather_loglevel_clf_stats ($) {
         $stats{'hosts'}{$1}++;
     }
     $stats{'content-size-total'} += $size;
+    $stats{'status-code'}{$status_code}++;
 }
 
 sub gather_loglevel_request_stats ($$) {
@@ -2238,6 +2239,14 @@ sub print_stats () {
     foreach my $http_version (sort {$stats{'http-version'}{$b} <=> $stats{'http-version'}{$a}} keys %{$stats{'http-version'}}) {
         printf "%d : %s\n",  $stats{'http-version'}{$http_version}, $http_version;
     }
+    if (exists $stats{'status-code'}) {
+        print "HTTP status codes:\n";
+        foreach my $status_code (sort {$stats{'status-code'}{$b} <=> $stats{'status-code'}{$a}} keys %{$stats{'status-code'}}) {
+            printf "%8d : %-8d\n",  $stats{'status-code'}{$status_code}, $status_code;
+        }
+    } else {
+        print "Status code distribution unknown. No CLF message parsed yet. Is 'debug 512' enabled?\n";
+    }
 
     if ($cli_options{'url-statistics-threshold'} == 0) {
         print "URL statistics are disabled. Increase --url-statistics-threshold to enable them.\n";