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

Adds --help|-h options; shows usage message and exits 0 if no arguments

Browse Source
This commit is contained in:
Jed Reynolds
2017-10-16 19:00:55 -07:00
parent c1a982d072
commit 41fe0661e5
5 changed files with 96 additions and 52 deletions
Download Patch File Download Diff File Expand all files Collapse all files

72
lf_firemod.pl
View File

@@ -150,42 +150,54 @@ Example:
my $i = 0;
my $cmd;
die($::usage) if (@ARGV < 2);
my $log_cli = "unset"; # use ENV{LOG_CLI} elsewhere
my $show_help = 0;
if (@ARGV < 2) {
print $usage;
exit 0;
}
GetOptions
(
'endp_name|e=s' => \$::endp_name,
'endp_cmd=s' => \$::endp_cmd,
'endp_vals|o=s' => \$::endp_vals,
'action|a=s' => \$::action,
'cmd|c=s' => \$::do_cmd,
'mgr|m=s' => \$::lfmgr_host,
'mgr_port|p=i' => \$::lfmgr_port,
'resource|r=i' => \$::resource,
'port_name=s' => \$::port_name,
'speed|s=i' => \$::speed,
'max_speed=s' => \$::speed,
'quiet|q=s' => \$::quiet,
'endp_type=s' => \$::endp_type,
'mcast_addr=s' => \$::mcast_addr,
'mcast_port=s' => \$::mcast_port,
'min_pkt_sz=s' => \$::min_pkt_sz,
'max_pkt_sz=s' => \$::max_pkt_sz,
'rcv_mcast=s' => \$::rcv_mcast,
'use_csums=s' => \$::use_csums,
'ttl=i' => \$::ttl,
'report_timer=i' => \$::report_timer,
'cx_name=s' => \$::cx_name,
'cx_endps=s' => \$::cx_endps,
'test_mgr=s' => \$::test_mgr,
'tos=s' => \$::tos,
'arm_pps=i' => \$::arm_pps,
'ip_port=i' => \$::ip_port,
'multicon=i' => \$::multicon,
'log_cli=s{0,1}'=> \$log_cli,
'help|h' => \$show_help,
'endp_name|e=s' => \$::endp_name,
'endp_cmd=s' => \$::endp_cmd,
'endp_vals|o=s' => \$::endp_vals,
'action|a=s' => \$::action,
'cmd|c=s' => \$::do_cmd,
'mgr|m=s' => \$::lfmgr_host,
'mgr_port|p=i' => \$::lfmgr_port,
'resource|r=i' => \$::resource,
'port_name=s' => \$::port_name,
'speed|s=i' => \$::speed,
'max_speed=s' => \$::speed,
'quiet|q=s' => \$::quiet,
'endp_type=s' => \$::endp_type,
'mcast_addr=s' => \$::mcast_addr,
'mcast_port=s' => \$::mcast_port,
'min_pkt_sz=s' => \$::min_pkt_sz,
'max_pkt_sz=s' => \$::max_pkt_sz,
'rcv_mcast=s' => \$::rcv_mcast,
'use_csums=s' => \$::use_csums,
'ttl=i' => \$::ttl,
'report_timer=i' => \$::report_timer,
'cx_name=s' => \$::cx_name,
'cx_endps=s' => \$::cx_endps,
'test_mgr=s' => \$::test_mgr,
'tos=s' => \$::tos,
'arm_pps=i' => \$::arm_pps,
'ip_port=i' => \$::ip_port,
'multicon=i' => \$::multicon,
'log_cli=s{0,1}'=> \$log_cli,
) || die("$::usage");
if ($show_help) {
print $usage;
exit 0;
}
if ($::quiet eq "0") {
$::quiet = "no";
}