1 files changed, 26 insertions, 0 deletions
diff --git a/examples/historical/munin/clients_connected.pl b/examples/historical/munin/clients_connected.pl
new file mode 100755
index 0000000..5301c63
--- /dev/null
+++ b/examples/historical/munin/clients_connected.pl
@@ -0,0 +1,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