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

port_test updated for recent pre and post exec commands

Browse Source
This commit is contained in:
Jed Reynolds
2018-09-14 18:29:14 -07:00
parent 9d5d78498d
commit bfc0ca0ed6
1 changed files with 28 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

32
json/port_test.pl
View File

@@ -87,8 +87,12 @@ for my $rh_target (@destroy_me) {
my $rh_data = { my $rh_data = {
'shelf'=>1, 'shelf'=>1,
'resource'=>$hunks[3], 'resource'=>$hunks[3],
# 'port'=>'z'.$alias, # use this to force pre_exec check
'port'=>$alias, 'port'=>$alias,
'suppress_postexec'=>'true' 'suppress_preexec_cli'=>'false',
'suppress_preexec_method'=>'false',
#'suppress_postexec_cli'=>'true',
#'suppress_postexec_method'=>'true'
}; };
logg(" $alias"); logg(" $alias");
my $rh_response = json_post("/cli-json/rm_vlan", $rh_data); my $rh_response = json_post("/cli-json/rm_vlan", $rh_data);
@@ -110,7 +114,7 @@ my $rh_radio;
my $radio_name; my $radio_name;
my $resource; my $resource;
my $range; my $range;
my $num_sta = 129; my $num_sta = 160;
my $radio_num; my $radio_num;
my $radio_counter = 0; my $radio_counter = 0;
@@ -128,6 +132,7 @@ for $rh_radio (@radios) {
my $rh_data = { my $rh_data = {
'shelf'=>1, 'shelf'=>1,
'resource'=>$resource, 'resource'=>$resource,
#'radio'=>'x'.$radio_name, # use to prompt radio not found error
'radio'=>$radio_name, 'radio'=>$radio_name,
'sta_name'=>'sta'.$radio_counter, 'sta_name'=>'sta'.$radio_counter,
#'alias'=>'vsta'.$i, # deprecated, use set_port_alias #'alias'=>'vsta'.$i, # deprecated, use set_port_alias
@@ -137,8 +142,11 @@ for $rh_radio (@radios) {
'key'=>'idtest-1200-wpa2', 'key'=>'idtest-1200-wpa2',
'mac'=>'xx:xx:xx:xx:*:xx', 'mac'=>'xx:xx:xx:xx:*:xx',
'mode'=>0, 'mode'=>0,
'rate'=>'DEFAULT' 'rate'=>'DEFAULT',
#'suppress_postexec'=>'true' # suppress_postexec now defaults to true 'suppress_preexec_cli'=>'false',
'suppress_preexec_method'=>'false',
'suppress_postexec_cli'=>'true',
'suppress_postexec_method'=>'true'
}; };
#print Dumper($rh_data); #print Dumper($rh_data);
logg("1/$resource/$radio_name -> sta$radio_counter"); logg("1/$resource/$radio_name -> sta$radio_counter");
@@ -164,6 +172,10 @@ for $rh_radio (@radios) {
for (my $i = $range; $i < ($range+$num_sta); $i++) { for (my $i = $range; $i < ($range+$num_sta); $i++) {
print "sta$radio_counter = vsta$i [ $range .. ".($range+$num_sta)."] 1/$resource/$radio_num $radio_name \n"; print "sta$radio_counter = vsta$i [ $range .. ".($range+$num_sta)."] 1/$resource/$radio_num $radio_name \n";
my $rh_data = { my $rh_data = {
'suppress_preexec_cli'=>'false',
'suppress_preexec_method'=>'false',
'suppress_postexec_cli'=>'true',
'suppress_postexec_method'=>'true',
'shelf'=>1, 'shelf'=>1,
'resource'=>$resource, 'resource'=>$resource,
'port'=>'sta'.$radio_counter, 'port'=>'sta'.$radio_counter,
@@ -174,6 +186,10 @@ for $rh_radio (@radios) {
# set port up + dhcp # set port up + dhcp
$rh_data = { $rh_data = {
'suppress_preexec_cli'=>'false',
'suppress_preexec_method'=>'false',
'suppress_postexec_cli'=>'true',
'suppress_postexec_method'=>'true',
'shelf'=>1, 'shelf'=>1,
'resource'=>$resource, 'resource'=>$resource,
'port'=>'sta'.$radio_counter, 'port'=>'sta'.$radio_counter,
@@ -212,6 +228,10 @@ for my $port_uri (@links2) {
my @hunks = split(/\./, $port); my @hunks = split(/\./, $port);
my $resource = $hunks[1]; my $resource = $hunks[1];
my %post = ( my %post = (
'suppress_preexec_cli'=>'false',
'suppress_preexec_method'=>'false',
#'suppress_postexec_cli'=>'false',
#'suppress_postexec_method'=>'false',
"shelf" => 1, "shelf" => 1,
"resource" => 0+$resource, "resource" => 0+$resource,
"port" => $device, "port" => $device,
@@ -236,6 +256,10 @@ for my $port_uri (@links2) {
my $resource = $hunks[1]; my $resource = $hunks[1];
# 'shelf=1&resource=2&port=vap2000&cmd_flags=0&current_flags=0&interest=8388610' # 'shelf=1&resource=2&port=vap2000&cmd_flags=0&current_flags=0&interest=8388610'
my %post = ( my %post = (
'suppress_preexec_cli'=>'false',
'suppress_preexec_method'=>'false',
'suppress_postexec_cli'=>'false',
'suppress_postexec_method'=>'false',
"shelf" => 1, "shelf" => 1,
"resource" => 0+$resource, "resource" => 0+$resource,
"port" => $device, "port" => $device,