Lines Matching refs:lease
16 # 2013-04-22 - added option to choose lease file, made manufacture information
22 # Provided for the various conventional lease file locations. (cbp)
89 @all_leases = split(/lease/, $content);
91 foreach my $lease (@all_leases) {
92 if ($lease =~ /^\s+([\.\d]+)\s+{.*starts \d+ ([\/\d\ \:]+);.*ends \d+ ([\/\d\ \:]+);.*ethernet ([a-f0-9:]+);/s) {
106 foreach my $lease (@all_leases) {
108 next if not ($lease =~ /^\s+([\.\d]+)\s+{.*starts \d+ ([\/\d\ \:]+);.*ends \d+ ([\/\d\ \:]+);.*ethernet ([a-f0-9:]+);(.*client-hostname \"(\S+)\";)*/s);
193 " --lease uses the next argument as the name of the lease file\n".
205 } elsif ($arg eq '--lease') {
Indexes created Sat Mar 28 00:23:22 UTC 2026