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

Json: test for BUG 2643

Browse Source
This commit is contained in:
Jed Reynolds
2018-09-06 18:31:03 -07:00
parent bb412aa560
commit d36fcb5fa3
3 changed files with 99 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
LANforge/JsonUtils.pm
View File

@@ -77,6 +77,7 @@ sub json_post {
$req->header('Accept' => 'application/json');
$req->header('Content-Type' => 'application/json; charset=UTF-8');
$req->content(encode_json($rh_data));
#print "json_post: ".Dumper($rh_data);
#print Dumper($req);
my $response = $::Web->request($req);
#print Dumper($response);

92
json/cx_test_allsta_para.pl Executable file
View File

@@ -0,0 +1,92 @@
#!/usr/bin/perl -w
use strict;
use warnings;
use diagnostics;
use Carp;
$SIG{ __DIE__ } = sub { Carp::confess( @_ ) };
$SIG{ __WARN__ } = sub { Carp::confess( @_ ) };
# Un-buffer output
$| = 1;
use Getopt::Long;
use JSON::XS;
use HTTP::Request;
use LWP;
use LWP::UserAgent;
use Data::Dumper;
use JSON;
use Time::HiRes qw(usleep nanosleep);
# using this is going to want high inotify instances, like mentioned here:
# sysctl fs.inotify.max_user_instances=256
# https://forum.proxmox.com/threads/unable-to-create-new-inotify-object-too-many-open-files-at-usr-share-perl5.23700/
use Proc::Background;
use lib '/home/lanforge/scripts';
use LANforge::JsonUtils qw(logg err json_request get_links_from get_thru json_post get_port_names);
package main;
# Default values for ye ole cmd-line args.
our $Resource = 1;
our $quiet = "yes";
our $Host = "localhost";
our $Port = 8080;
our $HostUri = "http://$Host:$Port";
our $Web = LWP::UserAgent->new;
our $Decoder = JSON->new->utf8;
our $ssid;
our $security;
our $passphrase;
my $usage = qq("$0 --host {ip or hostname} # connect to this
--port {port number} # defaults to 8080
);
##
## M A I N
##
GetOptions
(
'host=s' => \$::Host,
'port=i' => \$::Port
) || (print($usage) && exit(1));
$::HostUri = "http://$Host:$Port";
my $uri = "/shelf/1";
my $rh = json_request($uri);
my $ra_links = get_links_from($rh, 'resources');
my @links2= ();
my $ra_alias_links = [];
my $rh_existing_cx = json_request("/cx/list");
my $rh_existing_cxnames = {};
for my $eid (keys %$rh_existing_cx) {
next if ($eid !~ /^\d+\.\d+$/);
print "EID[$eid]:";
print "=================================================================================\n";
print Dumper($rh_existing_cx->{$eid});
print "=================================================================================\n";
my $rh_cx = $rh_existing_cx->{$eid};
print Dumper($rh_cx);
print "-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-==\n";
my $cx_n = $rh_cx->{'name'};
print " $cx_n ";
$rh_existing_cxnames->{$cx_n} = $rh_cx;
}
# $SIG{'CHLD'} = "wait_for_child_to_die"; # do we need this?
my @pids=();
for my $cx_name (keys %$rh_existing_cxnames) {
next if ($cx_name !~ /^udp_/);
my $proc = Proc::Background->new("./cx_test_helper.pl --cxname $cx_name");
push(@pids, $proc->pid());
print " cx_name $cx_name ".$proc->pid();
usleep(1500);
}
print "...done\n";
#

6
json/cx_test_helper.pl
View File

@@ -53,6 +53,12 @@ GetOptions
$::HostUri = "http://$Host:$Port";
# using this is going to want high inotify instances, like mentioned here:
# sysctl fs.inotify.max_user_instances=256
# https://forum.proxmox.com/threads/unable-to-create-new-inotify-object-too-many-open-files-at-usr-share-perl5.23700/
# wait until /tmp/startcx appears
our $toggle="startcx";