23 lines
628 B
Diff
23 lines
628 B
Diff
|
--- 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 = <FILE>) {
|
||
|
|
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);
|