From a669c009350ba0ba1b4f200e27aa67e9be5d1b7c Mon Sep 17 00:00:00 2001
From: Jed Reynolds <jed@candelatech.com>
Date: Tue, 7 Apr 2020 13:19:22 -0700
Subject: [PATCH] firemod: fixes missing L4 connections in list_cx

---
 lf_firemod.pl | 10 ++++++++--
 1 file changed, 8 insertions(+), 2 deletions(-)

diff --git a/lf_firemod.pl b/lf_firemod.pl
index ab19f856..3f67a8f1 100755
--- a/lf_firemod.pl
+++ b/lf_firemod.pl
@@ -548,7 +548,7 @@ elsif ($::action eq "list_cx") {
    my $out = '';
    my $num_ep = 0;
    for my $line (@lines) {
-      #print "      |||$line\n";
+      print "      |||$line\n" if ($::debug);
       if ($line =~ /\s*WAN_LINK CX:\s+([^ ]+)\s+id:.*$/ ) {
          $out .= "WL $1";
       }
@@ -556,6 +556,12 @@ elsif ($::action eq "list_cx") {
          $out .= ", wanlink $1";
          $num_ep++;
       }
+      if ($line =~ /^L4Endp\s+\[([^ ]+)\]/) {
+         $num_ep++;
+      }
+      if ($line =~ /^L4_GENERIC\s+CX:\s+([^ ]+)\s+id:/) {
+         $out .= "L4 $1";
+      }
       if ($line =~ /^\s*(WanLink|LANFORGE.*? CX):\s+([^ ]+) .*$/ ) {
          $out .= "CX $2";
       }
@@ -566,7 +572,7 @@ elsif ($::action eq "list_cx") {
          $out .= ", endpoint $2";
          $num_ep++;
       }
-      if (($line =~ /^ *$/) && ($num_ep >1)) {
+      if (($line =~ /^ *$/) && ($num_ep > 0)) {
          print "$out\n";
          $out = '';
          $num_ep = 0;