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

Use an OO framework for the GuiJson library module.

Browse Source 
Jed's changes, with a tweak to the lf_wifi_reset_example.pl to use
the new OO methods.
This commit is contained in:
Ben Greear
2017-10-06 15:44:06 -07:00
parent a2df72bdcc
commit 1138dffc10
3 changed files with 188 additions and 93 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
lf_wifi_rest_example.pl
View File

@@ -500,15 +500,13 @@ sleep(2);
#
# Get a JSON dump of all rows and columns on the LANforge GUI Ports Tab.
my $port_tab = `curl -sq http://localhost:8080/PortTab`;
my $ports_data = GuiResponseToHash($port_tab);
#my $ports_data = decode_json($port_tab);
#print Dumper($ports_data);
my $gjson = new LANforge::GuiJson();
$gjson->Request("http://localhost:8080/PortTab");
# Grab data for these fields for all of our ports in use in this test.
my @field_names = ("bps TX", "bps RX", "TX-Rate", "RX-Rate", "AP", "Channel", "CX Time.*");
my @port_names = (@stations, $upstream);
my $ra_fields = GetFields($ports_data, 'Device', \@port_names, \@field_names);
my $ra_fields = $gjson->GetFields('Device', \@port_names, \@field_names);
# And print out the JSON data on the console. This is just an example, you may
# instead wish to grab different data and graph it and/or poke it into some long-term