Lines Matching refs:lease
6 # RCSId: Id: 3.0b1-lease-convert,v 1.1 2001/04/18 19:17:34 mellon Exp
8 # Description: Convert 3.0b1 to 3.0b2/final lease file format
14 Id: 3.0b1-lease-convert,v 1.1 2001/04/18 19:17:34 mellon Exp
44 if (! /^lease\s/) {
47 my $lease = $_;
49 $lease .= $_;
50 # in a b1 file we should only see a left curly brace on a lease
56 print $lease;
63 # $lease contains all the lines for the lease entry.
64 $lease = makeNewLease($lease);
65 print $lease;
78 Reads from the lease file listed on the command line (or stdin if not filename
88 # takes a string that's the lines of a lease entry and converts it, if
89 # necessary to a b2 style lease entry. Returns the new lease in printable form.
91 my ($lease) = @_;
96 foreach (split "\n", $lease) {
Indexes created Sat Aug 15 00:25:12 UTC 2026