@@ -19,25 +19,25 @@ my (@nodes_rand, @nodes_sorted);
$json = valid_json($api_request->{content});
$json = parse_json($api_request->{content});
$nodes_in_numbers = scalar @$json;
push @nodes_rand, [$json->[$_]{ip}, $json->[$_]{name}, $json->[$_]{country}] for (0..$nodes_in_numbers -1);
@nodes_sorted = nsort_by { int $_->[0] } @nodes_rand;
format HEAD =
************************************************
Country RX TX
.
write HEAD;
for (0..$nodes_in_numbers -1) {
unless ($nodes_sorted[$_][0] == $nodes_sorted[$_ +1][0]) {
$api_request = $api->get('http://' . $nodes_sorted[$_][1] . '.enn.lu/vnstat.xml');
$parser = XML::LibXML->new();
$vnstat_xml = $parser->load_xml(string => $api_request->{content});
$query = '/vnstat/interface/traffic/total';