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

firemod: fix here-doc

Browse Source
This commit is contained in:
Jed Reynolds
2020-02-17 16:28:59 -08:00
parent d338d46bef
commit 0296fc43c6
1 changed files with 7 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
lf_firemod.pl
View File

@@ -78,7 +78,10 @@ our @known_tos = qw(DONT-SET LOWCOST LOWDELAY RELIABILITY THROUGHPUT);
# Nothing to configure below here, most likely. # Nothing to configure below here, most likely.
######################################################################## ########################################################################
our $usage = <<'__EndOfUsage__'; my $endp_type_str = join(' | ', @::known_endp_types);
my $tos_str = join(' | ', @::known_tos);
our $usage = <<"__EndOfUsage__";
$0 [ --action { $0 [ --action {
create_cx | create_endp | create_arm | create_cx | create_endp | create_arm |
delete_cx | delete_cxe | delete_endp | do_cmd | delete_cx | delete_cxe | delete_endp | do_cmd |
@@ -92,7 +95,7 @@ $0 [ --action {
[--cx_endps {endp1},{endp2}] [--cx_endps {endp1},{endp2}]
[--endp_cmd {generic-endp-command}] [--endp_cmd {generic-endp-command}]
[--endp_name {name}] [--endp_name {name}]
[--endp_type { ".join(' | ', @{::known_endp_types})." }] [--endp_type { $endp_type_str }]
[--endp_vals {key,key,key,key}] [--endp_vals {key,key,key,key}]
# show_endp output can be narrowed with key-value arguments # show_endp output can be narrowed with key-value arguments
# Examples: # Examples:
@@ -119,7 +122,7 @@ $0 [ --action {
[--stats_from_file {file-name}] [--stats_from_file {file-name}]
# Read 'show-endp' ouput from a file instead of direct query from LANforge. # Read 'show-endp' ouput from a file instead of direct query from LANforge.
# This can save a lot of time if we already have the output available. # This can save a lot of time if we already have the output available.
[--tos { ".join(' | ', @{::known_tos})." },{priority}] [--tos { $tos_str },{priority}]
[--use_csums {yes | no, should we checksum the payload}] [--use_csums {yes | no, should we checksum the payload}]
[--log_cli {1|filename}] [--log_cli {1|filename}]
[--test_mgr {default_tm|all|other-tm-name}] [--test_mgr {default_tm|all|other-tm-name}]
@@ -204,7 +207,7 @@ GetOptions
'stats_from_file=s' => \$::stats_from_file, 'stats_from_file=s' => \$::stats_from_file,
'ttl=i' => \$::ttl, 'ttl=i' => \$::ttl,
'use_csums=s' => \$::use_csums, 'use_csums=s' => \$::use_csums,
'use_ports=s' => \@::use_ports 'use_ports=s' => \@::use_ports,
'test_mgr=s' => \$::test_mgr, 'test_mgr=s' => \$::test_mgr,
'tos=s' => \$::tos, 'tos=s' => \$::tos,