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

Utils: getting test group items

Browse Source
This commit is contained in:
Jed Reynolds
2020-03-09 14:42:35 -07:00
parent 688cc9325f
commit 7a65069b30
1 changed files with 12 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

22
LANforge/Utils.pm
View File

@@ -547,12 +547,20 @@ sub list_groups {
print Dumper($ra);
die("testing");
}
1; # So the require or use succeeds (perl stuff)
sub group_items {
my ($self, $tg_name) = @_;
die("Utils::group_items wants a test group name, bye.")
if (!(defined $tg_name) || ("" eq $tg_name));
my @lines = split(/\r?\n/, $self->doAsyncCmd( $self->fmt_cmd("show_group", $tg_name)));
$self->sleep_ms(100);
print Dumper(\@lines);
die("testing");
}
####
1;
__END__
# Plain Old Documentation (POD)
=head1 NAME
Port - class to implement various LANforge utility and helper functions.
@@ -583,19 +591,13 @@ __END__
$ob->doAsyncCmd("$Some Asynchronous CLI command\n");
=head1 DESCRIPTION
The Utils class gives you some powerful and packaged access to various
LANforge CLI objects.
=head1 AUTHOR
Ben Greear (greearb@candelatech.com)
Copyright (c) 2001 Candela Technologies. All rights reserved.
Copyright (c) 2020 Candela Technologies. All rights reserved.
This program is free software; you can redistribute it and/or
modify it under the same terms as Perl itself.
=head1 VERSION
Version 0.0.1 May 26, 2001
=end