From 4ea3a099b05fa910498bfbf1b2d7387118355472 Mon Sep 17 00:00:00 2001 From: "Ole Mathias Aa. Heggem" Date: Sun, 13 Apr 2025 07:18:45 +0200 Subject: Upgrade bootstrap and rewrite API (#230) --- web/api/public/dhcp-summary | 16 ---------------- 1 file changed, 16 deletions(-) delete mode 100755 web/api/public/dhcp-summary (limited to 'web/api/public/dhcp-summary') diff --git a/web/api/public/dhcp-summary b/web/api/public/dhcp-summary deleted file mode 100755 index beed463..0000000 --- a/web/api/public/dhcp-summary +++ /dev/null @@ -1,16 +0,0 @@ -#! /usr/bin/perl -use lib '/opt/gondul/include'; -use strict; -use warnings; -use nms::web; - -nms::web::setwhen('2h'); - -my $q2 = $nms::web::dbh->prepare("select count(DISTINCT data ->> 'clientip') as clients, family(inet (data ->> 'clientip')) as family from metrics where $nms::web::when GROUP by family;"); -$q2->execute(); -while (my $ref = $q2->fetchrow_hashref()) { - $nms::web::json{'dhcp'}{$ref->{'family'}} = $ref->{'clients'}; -} -$nms::web::cc{'max-age'} = "10"; -$nms::web::cc{'stale-while-revalidate'} = "15"; -finalize_output(); -- cgit v1.2.3