aboutsummaryrefslogtreecommitdiffstats
path: root/dhcp/conf.d/e47-4.conf
blob: 5fe0ac3c6f09731787b50bcc58ad804b07203628 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
zone e47-4.tg13.gathering.org {
    primary 127.0.0.1;
    key DHCP_UPDATER;
}

subnet 151.216.18.64 netmask 255.255.255.192 {
    authoritative;
    option routers 151.216.18.65;
    option domain-name "e47-4.tg13.gathering.org";
    ddns-domainname "e47-4.tg13.gathering.org";
    range 151.216.18.69 151.216.18.126;
    ignore client-updates;
}
s="ch">#! /usr/bin/perl use CGI; use DBI; use JSON::XS; use lib '../../include'; use nms; my $cgi = CGI->new; my $dbh = nms::db_connect(); my %json = (); my $q = $dbh->prepare("SELECT DISTINCT ON (switch) switch, latency_ms FROM ping WHERE updated >= NOW() - INTERVAL '15 secs' ORDER BY switch, updated DESC;"); $q->execute(); while (my $ref = $q->fetchrow_hashref()) { $json{'switches'}{$ref->{'switch'}}{'latency'} = $ref->{'latency_ms'}; } my $qs = $dbh->prepare("SELECT DISTINCT ON (switch) switch, latency_ms FROM ping_secondary_ip WHERE updated >= NOW() - INTERVAL '15 secs' ORDER BY switch, updated DESC;"); $qs->execute(); while (my $ref = $qs->fetchrow_hashref()) { $json{'switches'}{$ref->{'switch'}}{'latency_secondary'} = $ref->{'latency_ms'}; } my $lq = $dbh->prepare("SELECT DISTINCT ON (linknet) linknet, latency1_ms, latency2_ms FROM linknet_ping WHERE updated >= NOW() - INTERVAL '15 secs' ORDER BY linknet, updated DESC;"); $lq->execute(); while (my $ref = $lq->fetchrow_hashref()) { $json{'linknets'}{$ref->{'linknet'}} = [ $ref->{'latency1_ms'}, $ref->{'latency2_ms'} ]; } $q->execute(); print $cgi->header(-type=>'text/json; charset=utf-8'); print JSON::XS::encode_json(\%json);