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

lf_portmod: adds --list_ports option; adds --mgr -m --resource -r option aliases

Browse Source
This commit is contained in:
Jed Reynolds
2018-01-17 08:38:21 -08:00
parent 6168e18047
commit 593416b386
1 changed files with 24 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

30
lf_portmod.pl
View File

@@ -16,21 +16,32 @@
# #
# #
package main;
use strict; use strict;
use warnings; use warnings;
#use Carp; #use Carp;
# Un-buffer output # Un-buffer output
$| = 1; $| = 1;
use Cwd qw(getcwd);
my $cwd = getcwd();
# this is pedantic necessity for the following use statements
if ( $cwd =~ q(.*LANforge-Server\scripts$)) {
use lib '/home/lanforge/scripts'
}
elsif ( -f "LANforge/Endpoint.pm" ) {
use lib "./LANforge";
}
else {
use lib '/home/lanforge/scripts';
}
use LANforge::Endpoint; use LANforge::Endpoint;
use LANforge::Port; use LANforge::Port;
use LANforge::Utils; use LANforge::Utils;
use Net::Telnet (); use Net::Telnet ();
use Getopt::Long; use Getopt::Long;
#use constant;
package main;
#use constant NL => "\n";
my $lfmgr_host = "localhost"; my $lfmgr_host = "localhost";
my $lfmgr_port = 4001; my $lfmgr_port = 4001;
my $shelf_num = 1; my $shelf_num = 1;
@@ -38,7 +49,7 @@ my $shelf_num = 1;
my $card = 1; my $card = 1;
# Default values for ye ole cmd-line args. # Default values for ye ole cmd-line args.
my $list_ports = "";
my $port_name = ""; my $port_name = "";
my $cmd = ""; my $cmd = "";
our $quiet = 0; our $quiet = 0;
@@ -149,10 +160,11 @@ GetOptions
'port_name|e=s' => \$port_name, 'port_name|e=s' => \$port_name,
'cmd|c=s' => \$cmd, 'cmd|c=s' => \$cmd,
'cli_cmd|i=s' => \$cli_cmd, 'cli_cmd|i=s' => \$cli_cmd,
'manager|m=s' => \$lfmgr_host, 'manager|mgr|m=s' => \$lfmgr_host,
'manager_port=i' => \$lfmgr_port,
'load|L=s' => \$load, 'load|L=s' => \$load,
'quiet|q=s' => \$::quiet, 'quiet|q=s' => \$::quiet,
'card|C=i' => \$card, 'card|resource|res|r|C=i' => \$card,
'amt_resets=i' => \$amt_resets, 'amt_resets=i' => \$amt_resets,
'max_port_name=i' => \$max_port_name, 'max_port_name=i' => \$max_port_name,
'min_sleep=i' => \$min_sleep, 'min_sleep=i' => \$min_sleep,
@@ -161,6 +173,7 @@ GetOptions
'set_ifstate|s=s' => \$if_state, 'set_ifstate|s=s' => \$if_state,
'set_speed=s' => \$set_speed, 'set_speed=s' => \$set_speed,
'ssid=s' => \$ssid, 'ssid=s' => \$ssid,
'list_ports' => \$list_ports,
'show_port:s' => \$show_port, 'show_port:s' => \$show_port,
'port_stats=s{1,}' => \@port_stats, 'port_stats=s{1,}' => \@port_stats,
'eap_identity|i=s' => \$eap_identity, 'eap_identity|i=s' => \$eap_identity,
@@ -337,6 +350,11 @@ if ($load ne "") {
exit(0); exit(0);
} }
if ((defined $list_ports) && $list_ports) {
$utils->doCmd("show_ports 1 $card ALL");
exit(0);
}
if (length($port_name) == 0) { if (length($port_name) == 0) {
print "ERROR: Must specify port name.\n"; print "ERROR: Must specify port name.\n";
die("$usage"); die("$usage");