sykesm

#!/usr/bin/perl

use NetAddr::IP;
use POSIX qw(strftime);

my $dnsmasq_leases_path = '/var/run/dnsmasq-dhcp.leases';
my $dhcpd_leases_path = '/var/run/dhcpd.leases';
my $network_names_path = '/opt/vyatta/config/active/service/dhcp-server/shared-network-name';

my %networks_by_subnet;