localshowdhcpleasesfree



#!/usr/bin/perl
#
# /usr/local/sbin/localshowdhcpleasesfree
# Copyright 2015 Jonas Smedegaard <dr@jones.dk>
#
# List free DHCP leases
#
# Depends: isc-dhcp-server libtext-dhcpleases-perl

use strict;
use warnings;

use IO::Handle;
use Text::DHCPLeases;

# silence parsing failures
open NULL, ">", "/dev/null" or die $!;
STDERR->fdopen( \*NULL, 'w' ) or die $!;

my $leases = Text::DHCPLeases->new ( file => "/var/lib/dhcp/dhcpd.leases" );
my $objects = $leases->get_objects( binding_state => 'free' );
my $count;
while ( $objects->next ) {
    $count++;
}

print "$count\n";

1;