diff options
Diffstat (limited to 'web/api/public/dhcp-summary')
-rwxr-xr-x | web/api/public/dhcp-summary | 16 |
1 files changed, 0 insertions, 16 deletions
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(); |