blob: 5301c6382a2e2992b5710b73a4e00683487fa1ca (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
|
#! /usr/bin/perl -I/root/tgmanage/include
use strict;
use warnings;
use lib 'include';
use nms;
use Data::Dumper::Simple;
my $dbh = nms::db_connect();
$dbh->{AutoCommit} = 0;
my $active_clients = $dbh->prepare("select family(address), count(distinct(mac)) from seen_mac where family(address) in (6,4) and seen >= now() - INTERVAL '1 hour' group by family(address);")
or die "Can't prepare query: $!";
$active_clients->execute;
print <<EOF;
graph_title Clients seen the last hour
graph_vlabel count
graph_scale no
EOF
while (my $ref = $active_clients->fetchrow_hashref) {
print "clients_".$ref->{'family'}.".label v".$ref->{'family'}." clients\n";
print "clients_".$ref->{'family'}.".value ".$ref->{'count'}."\n";
}
$active_clients->finish;
$dbh->disconnect();
exit 0
|
