mirror of
https://github.com/Telecominfraproject/wlan-lanforge-scripts.git
synced 2025-10-30 18:27:53 +00:00
51 lines
2.0 KiB
Perl
51 lines
2.0 KiB
Perl
#!/usr/bin/perl -w
|
|
|
|
use strict;
|
|
use warnings;
|
|
use diagnostics;
|
|
#use JSON;
|
|
use Data::Dumper;
|
|
use LANforge::GuiJson;
|
|
#GuiResponseToHash GetHeaderMap GetRecordsMatching GetFields
|
|
package main;
|
|
|
|
|
|
my $gjson = new LANforge::GuiJson();
|
|
$gjson->Request("http://localhost:8080/PortTab");
|
|
|
|
my @port_names = ("eth0", "wlan0");
|
|
my $ra_matches = $gjson->GetRecordsMatching('Alias', \@port_names);
|
|
#print "Records matching Alias (eth0, wlan0):\n";
|
|
#print Dumper($ra_matches);
|
|
|
|
$ra_matches = $gjson->GetRecordsMatching('Device', \@port_names);
|
|
#print "Records matching Port:\n";
|
|
#print Dumper($ra_matches);
|
|
|
|
my @field_names = ("Device", "bps TX", "bps RX");
|
|
my $ra_fields = $gjson->GetFields('Device', \@port_names, \@field_names);
|
|
print "Fields (".join(", ", @field_names).") from records matching Device (".join(", ", @port_names)."):\n";
|
|
print Dumper($ra_fields);
|
|
|
|
@field_names = ("Alias", "RX-.*", "No CX.*");
|
|
$ra_fields = $gjson->GetFields('Device', \@port_names, \@field_names);
|
|
print "Fields (".join(", ", @field_names).") from records matching Device (".join(", ", @port_names)."):\n";
|
|
print Dumper($ra_fields);
|
|
|
|
|
|
=pod
|
|
10:57 < greearb> lets just do regex since we may have funny spaces or other characters in column headers
|
|
10:59 < greearb> GetFields wants arg1: json data structure
|
|
10:59 < greearb> Fields (bps TX, bps RX, TX-Rate, RX-Rate, AP, Channel, CX Time.*) from records matching Device (sta010, sta011, sta012, sta013, sta014,
|
|
eth5):
|
|
10:59 < greearb> $VAR1 = {};
|
|
10:59 < greearb> my $port_tab = `curl -sq http://localhost:8080/PortTab`;
|
|
10:59 < greearb> my $ports_data = decode_json($port_tab);
|
|
10:59 < greearb> #print Dumper($ports_data);
|
|
10:59 < greearb> my @field_names = ("bps TX", "bps RX", "TX-Rate", "RX-Rate", "AP", "Channel", "CX Time.*");
|
|
10:59 < greearb> my @port_names = (@stations, $upstream);
|
|
10:59 < greearb> my $ra_fields = GetFields($ports_data, 'Device', \@port_names, \@field_names);
|
|
10:59 < greearb> print "Fields (".join(", ", @field_names).") from records matching Device (".join(", ", @port_names)."):\n";
|
|
10:59 < greearb> print Dumper($ra_fields);
|
|
=cut
|