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

lf_generic_ping: handles missing parameters better

Browse Source
This commit is contained in:
Jed Reynolds
2018-10-25 15:45:01 -07:00
parent bffdf1fae6
commit 9b7f29c327
1 changed files with 18 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

20
lf_generic_ping.pl
View File

@@ -285,9 +285,25 @@ sub create_generic {
my $ping_cmd = "lfping -I $port_name $::dest_ip";
if ((defined $::ref_cmd) && ($::ref_cmd ne "")) {
$ping_cmd = $::ref_cmd;
my $d_ip = '';
$d_ip = $::dest_ip if (defined $::dest_ip && $::dest_ip ne "");
$ping_cmd =~ s/%d/$::dest_ip/g if ($ping_cmd =~ /%d/);
$ping_cmd =~ s/%p/$port_name/g if ($ping_cmd =~ /%p/);
$ping_cmd =~ s/%i/$port_ip/g if ($ping_cmd =~ /%i/);
if (defined $port_name && $port_name ne "") {
$ping_cmd =~ s/%p/$port_name/g if ($ping_cmd =~ /%p/);
}
else {
print "no name for port $port_name\n";
return;
}
if (defined $port_ip && $port_ip ne "") {
$ping_cmd =~ s/%i/$port_ip/g if ($ping_cmd =~ /%i/);
}
else {
print "no ip for port $port_name\n";
return;
}
}
$::command_map{$eid} = $ping_cmd;
print "CMD: $ping_cmd\n";