scottk/wlan-lanforge-scripts
1
0
Fork 0
mirror of https://github.com/Telecominfraproject/wlan-lanforge-scripts.git synced 2025-10-29 18:02:35 +00:00
Code Issues Packages Projects Releases Wiki Activity

firemod: fixes missing L4 connections in list_cx

Browse Source
This commit is contained in:
Jed Reynolds
2020-04-07 13:19:22 -07:00
parent 34978d792d
commit a669c00935
1 changed files with 8 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
lf_firemod.pl
View File

@@ -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;