#!/usr/bin/perl

# Fetch current user count from FreeRADIUS with MySQL database backend
# Jakub Wartak ( vnull@pcnet.com.pl )

use DBI;
use strict;
use warnings;

my $dblogin = 'dblogin';
my $dbpw = 'dbpw';
my $dbname = 'siec';
my $dbserver = '127.0.0.1';
my $table = 'radacct';

my $nasip = $ARGV[0] or die;

###

my $db = DBI->connect("DBI:mysql:$dbname:$dbserver", $dblogin, $dbpw) 
    or die "DB error: $DBI::errstr\n";

my $q = $db->prepare("SELECT UserName FROM $table WHERE " .
	"AcctStopTime = '0' AND NASIPAddress = '$nasip'");

$q->execute() or die;

print $q->rows();

exit 0;