blob: d5ac58ea4c1ced3d67c905bfb42097cd5a208e4b (
plain)
- #!/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;
|