munin,bird: Fix error in capture group

1 files changed, 9 insertions, 2 deletions

diff --git a/other_scripts/munin_bird b/other_scripts/munin_bird
index 294104e..ad6b9ca 100755
--- a/other_scripts/munin_bird
+++ b/other_scripts/munin_bird
@@ -95,13 +95,20 @@ sub get_stats {
                 next unless $protocol ~~ $protocols;
                 $stats->{$name}->{title} = $1;
             }
-#            when (/^\s+Routes:\s+(\d+)\s+imported,\s+(\d+)\s+exported,\s+(\d+)\s+preferred$/){
-            when (/^\s+Routes:\s+(\d+)\s+imported,(?:\s+(\d+)\s+filtered,)?\s+(\d+)\s+exported,\s+(\d+)\s+preferred$/){
+            # no filtered present
+            when (/^\s+Routes:\s+(\d+)\s+imported,\s+(\d+)\s+exported,\s+(\d+)\s+preferred$/){
                 next unless $protocol ~~ $protocols;
                 $stats->{$name}->{imported} = $1;
                 $stats->{$name}->{exported} = $2;
                 $stats->{$name}->{preferred} = $3;
             }
+            # filtered present
+            when (/^\s+Routes:\s+(\d+)\s+imported,\s+(\d+)\s+filtered,\s+(\d+)\s+exported,\s+(\d+)\s+preferred$/){
+                next unless $protocol ~~ $protocols;
+                $stats->{$name}->{imported} = $1;
+                $stats->{$name}->{exported} = $3;
+                $stats->{$name}->{preferred} = $4;
+            }
             # received   rejected   filtered    ignored   accepted
             when (/^\s+(Import|Export)\s(updates|withdraws):\s+(\d+|-+)\s+(\d+|-+)\s+(\d+|-+)\s+(\d+|-+)\s+(\d+|-+)$/){
                 next unless $protocol ~~ $protocols;