--- contrib/leasestate +++ contrib/leasestate 2010/09/29 10:07:09 @@ -16,7 +16,7 @@ my %Update; my $level = 1; my $IP = ''; my ($ip, $bs, $nbs, $join); -open(FILE, "/var/lib/dhcp/dhcpd.leases"); +open(FILE, "/var/lib/dhcp/db/dhcpd.leases"); while(my $line = ) { next if ($line =~ /^\#/); if ($level == 1) { --- contrib/listlease +++ contrib/listlease 2010/09/29 10:08:10 @@ -14,7 +14,7 @@ use strict; my $LastLease = ''; my $savelease = 0; my $prlease = 0; -my $LFILE = "/var/lib/dhcp/dhcpd.leases"; +my $LFILE = "/var/lib/dhcp/db/dhcpd.leases"; $LFILE = $ARGV[1] if ($ARGV[1] ne ''); open(FILE, $LFILE);