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

extracts desired port name pattern to variable; sets DNS bind flag

Browse Source
This commit is contained in:
Jed Reynolds
2018-10-10 18:57:15 -07:00
parent dc827b0168
commit 5fb5f93765
1 changed files with 24 additions and 18 deletions
Download Patch File Download Diff File Expand all files Collapse all files

42
json/l4_test.pl
View File

@@ -36,8 +36,9 @@ my $usage = qq("$0 --host {ip or hostname} # connect to this
--port {port number} # defaults to 8080 --port {port number} # defaults to 8080
); );
my $des_resource = 2; my $des_resource = 3;
#my $pat_port_type = '^eth\d[#]\d+';
my $pat_port_type = '^sta\d+';
## ##
## M A I N ## M A I N
## ##
@@ -138,7 +139,7 @@ if (@endp_names > 0) {
push(@cx_names, "CX_".$endp_name); push(@cx_names, "CX_".$endp_name);
} }
} }
my $rh_req = { my $rh_req = {
"test_mgr" => "default_tm", "test_mgr" => "default_tm",
"suppress_preexec_method" => 1, "suppress_preexec_method" => 1,
"suppress_preexec_cli" => 1, "suppress_preexec_cli" => 1,
@@ -188,14 +189,15 @@ my $rh_endp_A = { # actual endpoint
#'alias' => "untitled", #'alias' => "untitled",
'shelf' => 1, 'shelf' => 1,
'resource' => $des_resource, 'resource' => $des_resource,
# port
'type' => 'l4_generic', 'type' => 'l4_generic',
'timeout' => '2000', 'timeout' => '2000',
'url_rate' => '600', 'url_rate' => '600',
'url' => 'dl http://10.36.0.1/ /dev/null', 'url' => 'dl http://idtest.candelatech.com/ /dev/null',
'max_speed' => '1000000', 'max_speed' => '1000000',
'http_auth_type' => 0,
'proxy_auth_type' => 512,
}; };
my $rh_endp_B = { # dummy endpoints, my $rh_endp_B = { # dummy endpoints, # we don't actually need
#'alias' => "D_untitled", #'alias' => "D_untitled",
'shelf' => 1, 'shelf' => 1,
'resource' => $des_resource, 'resource' => $des_resource,
@@ -232,8 +234,8 @@ my $create_b_side = 0;
if ($create_b_side) { if ($create_b_side) {
for my $rh_p (values %{$rh_ports->{'flat_list'}}) { for my $rh_p (values %{$rh_ports->{'flat_list'}}) {
last if ($num_cx >= ($num_ports-1)); last if ($num_cx >= ($num_ports-1));
next if ($rh_p->{'alias'} !~ /^eth\d[#]\d+/); next if ($rh_p->{'alias'} !~ /$pat_port_type/);
# create dummy port and set it unmanaged # create dummy port and set it unmanaged
my $end_b_alias = "D_l4json${disp_num}"; my $end_b_alias = "D_l4json${disp_num}";
$rh_endp_B->{'port'} = $rh_p->{'alias'}; $rh_endp_B->{'port'} = $rh_p->{'alias'};
@@ -249,7 +251,7 @@ if ($create_b_side) {
print "\nSetting Endpoint flags: "; print "\nSetting Endpoint flags: ";
for my $rh_p (values %{$rh_ports->{'flat_list'}}) { for my $rh_p (values %{$rh_ports->{'flat_list'}}) {
last if ($num_cx >= ($num_ports-1)); last if ($num_cx >= ($num_ports-1));
next if ($rh_p->{'alias'} !~ /^eth\d[#]\d+/); next if ($rh_p->{'alias'} !~ /$pat_port_type/);
my $end_b_alias = "D_l4json${disp_num}"; my $end_b_alias = "D_l4json${disp_num}";
$rh_set_flags_b->{'name'} = $end_b_alias; $rh_set_flags_b->{'name'} = $end_b_alias;
$num_cx++; $num_cx++;
@@ -264,7 +266,7 @@ $disp_num = $des_resource * 1000;
print "\nAdding Endpoint A: "; print "\nAdding Endpoint A: ";
for my $rh_p (values %{$rh_ports->{'flat_list'}}) { for my $rh_p (values %{$rh_ports->{'flat_list'}}) {
last if ($num_cx >= ($num_ports-1)); last if ($num_cx >= ($num_ports-1));
next if ($rh_p->{'alias'} !~ /^eth\d[#]\d+/); next if ($rh_p->{'alias'} !~ /$pat_port_type/);
my $end_a_alias = "l4json${disp_num}"; my $end_a_alias = "l4json${disp_num}";
$rh_endp_A->{'port'} = $rh_p->{'alias'}; $rh_endp_A->{'port'} = $rh_p->{'alias'};
$rh_endp_A->{'alias'} = $end_a_alias; $rh_endp_A->{'alias'} = $end_a_alias;
@@ -278,13 +280,13 @@ $disp_num = $des_resource * 1000;
print "\nSet_endp_flag: "; print "\nSet_endp_flag: ";
for my $rh_p (values %{$rh_ports->{'flat_list'}}) { for my $rh_p (values %{$rh_ports->{'flat_list'}}) {
last if ($num_cx >= ($num_ports-1)); last if ($num_cx >= ($num_ports-1));
next if ($rh_p->{'alias'} !~ /^eth\d[#]\d+/); next if ($rh_p->{'alias'} !~ /$pat_port_type/);
my $end_a_alias = "l4json${disp_num}"; my $end_a_alias = "l4json${disp_num}";
$rh_set_flags_a->{'name'} = $end_a_alias; $rh_set_flags_a->{'name'} = $end_a_alias;
$num_cx++; $num_cx++;
$disp_num++; $disp_num++;
print " ~$end_a_alias "; print " ~$end_a_alias ";
json_post("/cli-json/set_endp_flag${uri_args}", $rh_set_flags_a); json_post("/cli-json/set_endp_flag${uri_args}", $rh_set_flags_a);
} }
print "\nRefreshing..."; print "\nRefreshing...";
$h = {"endpoint"=>"all"}; $h = {"endpoint"=>"all"};
@@ -295,7 +297,7 @@ $num_cx = 0;
$disp_num = $des_resource * 1000; $disp_num = $des_resource * 1000;
for my $rh_p (values %{$rh_ports->{'flat_list'}}) { for my $rh_p (values %{$rh_ports->{'flat_list'}}) {
last if ($num_cx >= ($num_ports-1)); last if ($num_cx >= ($num_ports-1));
next if ($rh_p->{'alias'} !~ /^eth\d[#]\d+/); next if ($rh_p->{'alias'} !~ /$pat_port_type/);
my $end_a_alias = "l4json${disp_num}"; my $end_a_alias = "l4json${disp_num}";
my $end_b_alias = ($create_b_side) ? "D_l4json${disp_num}" : "NA"; my $end_b_alias = ($create_b_side) ? "D_l4json${disp_num}" : "NA";
my $cx_alias = "CX_l4json${disp_num}"; my $cx_alias = "CX_l4json${disp_num}";
@@ -305,7 +307,7 @@ for my $rh_p (values %{$rh_ports->{'flat_list'}}) {
$num_cx++; $num_cx++;
$disp_num++; $disp_num++;
print " $cx_alias "; print " $cx_alias ";
json_post("/cli-json/add_cx${uri_args}", $rh_add_cx); json_post("/cli-json/add_cx${uri_args}", $rh_add_cx);
} }
$h = {"endpoint"=>"all"}; $h = {"endpoint"=>"all"};
json_request("/cli-json/nc_show_endpoints", $h); json_request("/cli-json/nc_show_endpoints", $h);
@@ -339,11 +341,11 @@ while ($num_unfinished > 0) {
print " Unfinished: $num_unfinished\n"; print " Unfinished: $num_unfinished\n";
sleep 1 if ($num_unfinished); sleep 1 if ($num_unfinished);
} }
@endp_names = []; @endp_names = ();
my $rh_endp = json_request("/layer4/list"); my $rh_endp = json_request("/layer4/list");
flatten_list($rh_endp, "endpoint"); flatten_list($rh_endp, "endpoint");
@endp_names = sort keys %{$rh_endp->{'flat_list'}}; @endp_names = sort keys %{$rh_endp->{'flat_list'}};
@cx_names = []; @cx_names = ();
for my $endp_name (@endp_names) { for my $endp_name (@endp_names) {
next if ($endp_name =~ m/^D_/); next if ($endp_name =~ m/^D_/);
if ($endp_name =~ m/^1\./) { if ($endp_name =~ m/^1\./) {
@@ -360,6 +362,10 @@ my $rh_cx_t = {
}; };
print "\nSetting timers: "; print "\nSetting timers: ";
for my $cx_alias (sort @cx_names) { for my $cx_alias (sort @cx_names) {
if ($cx_alias =~ /^\s*$/ || ref $cx_alias eq "ARRAY") {
print "BLANK CX_NAME: ".Dumper(\@cx_names);
next;
}
$rh_cx_t->{'cx_name'} = $cx_alias; $rh_cx_t->{'cx_name'} = $cx_alias;
print " ~$cx_alias "; print " ~$cx_alias ";
json_post("/cli-json/set_cx_report_timer", $rh_cx_t); json_post("/cli-json/set_cx_report_timer", $rh_cx_t);
@@ -380,7 +386,7 @@ $rh_cx_t = {
}; };
print "\nStarting cx..."; print "\nStarting cx...";
for my $cx_alias (sort @cx_names) { for my $cx_alias (sort @cx_names) {
$rh_cx_t->{'cx_name'} = $cx_alias; $rh_cx_t->{'cx_name'} = $cx_alias;
print " +$cx_alias "; print " +$cx_alias ";
json_post("/cli-json/set_cx_state", $rh_cx_t); json_post("/cli-json/set_cx_state", $rh_cx_t);
} }
@@ -398,4 +404,4 @@ for my $cx_alias (sort @cx_names) {
json_post("/cli-json/set_cx_state", $rh_cx_t); json_post("/cli-json/set_cx_state", $rh_cx_t);
} }
# #