[backend] write hint about suppressed lastevent lines

openSUSE · Feb 15, 2016 · 8cd3fbe · 8cd3fbe
1 parent d3ea4cf
commit 8cd3fbe
Showing 1 changed file with 8 additions and 1 deletion.
diff --git a/src/backend/bs_serverstatus b/src/backend/bs_serverstatus
@@ -59,11 +59,15 @@ if (-S $ARGV[0]) {
       delete $slots{$_} unless $jobs{$_};
     }
     # create slots
+    my $lasteventscount = 0;
     my @slots;
     for my $job (@{($ajaxstatus->{'joblist'} || {})->{'job'} || []}) {
       my $id = $job->{'ev'};
       next if $id == $ajaxstatus->{'ev'};
-      next if $nolastevents && $job->{'request'} && $job->{'request'} =~ /^GET \/lastevents\?/;
+      if ($nolastevents && $job->{'request'} && $job->{'request'} =~ /^GET \/lastevents\?/) {
+        $lasteventscount++;
+        next;
+      }
       my $slot = $slots{$id};
       if (!defined $slot) {
 	$slot = 0;
@@ -78,6 +82,9 @@ if (-S $ARGV[0]) {
       my $str = sprintf("%5d %5d %3d %s", $d, $id, $job->{'fd'}, substr($req, 0, 80));
       $slots[$slot] = $str;
     }
+    if ($nolastevents) {
+      unshift @slots, "suppressed lastevents: $lasteventscount";
+    }
     if ($ajaxstatus->{'watcher'}) {
       push @slots, undef;
       for my $fw (@{$ajaxstatus->{'watcher'}}) {