scottk/wlan-lanforge-scripts
1
0
Fork 0
mirror of https://github.com/Telecominfraproject/wlan-lanforge-scripts.git synced 2025-11-01 03:07:56 +00:00
Code Issues Packages Projects Releases Wiki Activity

Utils: a version of cx_for_group

Browse Source
This commit is contained in:
Jed Reynolds
2020-03-05 19:57:52 -08:00
parent b67ff1b631
commit d85fd85b59
1 changed files with 10 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
LANforge/Utils.pm
View File

@@ -430,7 +430,7 @@ sub get_eid_map {
my ($self, $resource) = @_;
my $rh_eid_map = {};
my @ports_lines = split("\n", $self->doAsyncCmd("nc_show_ports 1 $resource ALL"));
sleep 1;
sleep_ms(100);
chomp(@ports_lines);
my ($eid, $card, $port, $type, $mac, $dev, $parent, $ip);
@@ -526,6 +526,15 @@ sub ports_on_radio {
return $ra_ifs;
}
sub cx_for_group {
my ($self, $testg_name) = @_;
die("cx_for_group needs test group name, bye.")
if (!(defined $testg_name) || ("" eq $testg_name));
my $ra = [split(/\r?\n/, $::utils->doCmd("show_group all"))];
print Dumper($ra);
die("testing");
}
1; # So the require or use succeeds (perl stuff)
__END__