diff options
| author | Kim Hagen <kim.sidney@gmail.com> | 2016-02-09 04:17:49 -0500 |
|---|---|---|
| committer | Kim Hagen <kim.sidney@gmail.com> | 2016-02-09 04:17:49 -0500 |
| commit | 918b53841364a016eec0e2996640c471f738e93b (patch) | |
| tree | db9c7b906958bebff3a480c46dc54775c3c3782d /scripts/dhcpv6-client-show-leases.pl | |
| parent | 59240c87059fd207b3ec38238851f6fe6982e48c (diff) | |
| download | vyatta-op-918b53841364a016eec0e2996640c471f738e93b.tar.gz vyatta-op-918b53841364a016eec0e2996640c471f738e93b.zip | |
Use dhcp instead of dhcp3.
Diffstat (limited to 'scripts/dhcpv6-client-show-leases.pl')
| -rw-r--r-- | scripts/dhcpv6-client-show-leases.pl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/scripts/dhcpv6-client-show-leases.pl b/scripts/dhcpv6-client-show-leases.pl index 44be689..761a3e6 100644 --- a/scripts/dhcpv6-client-show-leases.pl +++ b/scripts/dhcpv6-client-show-leases.pl @@ -55,7 +55,7 @@ sub log_msg { # Main section. # -opendir (my $dir, "/var/lib/dhcp3"); +opendir (my $dir, "/var/lib/dhcp"); my @lease_files; while (my $f = readdir $dir) { if ($f =~ /^dhclient_v6_(\w+).leases$/) { @@ -74,7 +74,7 @@ my %ghash = (); foreach my $lease_filename (@lease_files) { my @lines=(); - open(my $f, '<', "/var/lib/dhcp3/$lease_filename") + open(my $f, '<', "/var/lib/dhcp/$lease_filename") or die "Can't open lease file for reading: $lease_filename\n"; @lines = <$f>; |