OBS-URL: https://build.opensuse.org/package/show/openSUSE:Factory/dhcp?expand=0&rev=1

listlease

@@ -0,0 +1,36 @@
+#! /usr/bin/perl
+
+#
+# Author: Kevin C. Miller <kevinm@andrew.cmu.edu>
+# http://www.andrew.cmu.edu/~kevinm/dhcp/failover.html
+#
+# The copyright is with the author. We (SuSE) include this script
+# with his permission.
+#
+
+
+use strict;
+
+my $LastLease = '';
+my $savelease = 0;
+my $prlease = 0;
+my $LFILE = "/var/lib/dhcp/dhcpd.leases";
+$LFILE = $ARGV[1] if ($ARGV[1] ne '');
+
+open(FILE, $LFILE);
+while(my $a = <FILE>) {
+  if ($a =~ /^lease /) {
+    print $LastLease if ($prlease);
+    $savelease = 1;
+    $prlease = 0;
+    $LastLease = $a;
+  }else{
+    $LastLease .= $a if ($savelease); 
+  } 
+  if ($a =~ /^\}/) {
+    $savelease = 0;
+  } 
+  $prlease = 1 if ($a =~ /$ARGV[0]/);
+}
+close(FILE);
+print $LastLease if ($prlease);