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

Port.pm: adds parsing for IPSec line

Browse Source
This commit is contained in:
Jed Reynolds
2019-11-16 11:28:04 -08:00
parent 0b13a52489
commit 5c87395c22
1 changed files with 14 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
LANforge/Port.pm
View File

@@ -386,6 +386,20 @@ sub decode {
$i++; $i++;
$ln = $ta[$i]; $ln = $ta[$i];
} }
# IPSec-Concentartor: 0.0.0.0 IPSec-Password: NONE IPSec-Local-ID: NONE IPSec-Remote-ID: NONE
# careful, Concentrator is mis-spelled and will get corrected
if ($ln =~
/IPSec-Con[a-z]+r:\s+([0-9.]+)\s+IPSec-Password:\s+([^ ]+)\s+IPSec-Local-ID:\s+([^ ])+\s+IPSec-Remote-ID:\s+([^ ]+)/
)
{
$self->{'IPSec-Concentrator'} = $1 if (defined $1);
$self->{'IPSec-Password'} = $1 if (defined $2);
$self->{'IPSec-Local-ID'} = $1 if (defined $3);
$self->{'IPSec-Remote-ID'} = $1 if (defined $4);
$i++;
$ln = $ta[$i];
}
# pps_tx: 0 pps_rx: 0 bps_tx: 0 bps_rx: 0 # pps_tx: 0 pps_rx: 0 bps_tx: 0 bps_rx: 0
if ( $ln =~ if ( $ln =~
/\s+pps_tx:\s+(\d+)\s+pps_rx:\s+(\d+)\s+bps_tx:\s+(\d+)\s+bps_rx:\s+(\d+)/ /\s+pps_tx:\s+(\d+)\s+pps_rx:\s+(\d+)\s+bps_tx:\s+(\d+)\s+bps_rx:\s+(\d+)/