3.0b1-lease-convert revision 1.1.1.1.2.2
1 1.1.1.1.2.2 pgoyette #!/usr/bin/perl 2 1.1.1.1.2.2 pgoyette # 3 1.1.1.1.2.2 pgoyette # Start Date: Mon, 26 Mar 2001 14:24:09 +0200 4 1.1.1.1.2.2 pgoyette # Time-stamp: <Monday, 26 March 2001 16:09:44 by brister> 5 1.1.1.1.2.2 pgoyette # File: leaseconvertor.pl 6 1.1.1.1.2.2 pgoyette # RCSId: Id: 3.0b1-lease-convert,v 1.1 2001/04/18 19:17:34 mellon Exp 7 1.1.1.1.2.2 pgoyette # 8 1.1.1.1.2.2 pgoyette # Description: Convert 3.0b1 to 3.0b2/final lease file format 9 1.1.1.1.2.2 pgoyette # 10 1.1.1.1.2.2 pgoyette 11 1.1.1.1.2.2 pgoyette require 5.004; 12 1.1.1.1.2.2 pgoyette 13 1.1.1.1.2.2 pgoyette my $rcsID =<<'EOM'; 14 1.1.1.1.2.2 pgoyette Id: 3.0b1-lease-convert,v 1.1 2001/04/18 19:17:34 mellon Exp 15 1.1.1.1.2.2 pgoyette EOM 16 1.1.1.1.2.2 pgoyette 17 1.1.1.1.2.2 pgoyette use strict; 18 1.1.1.1.2.2 pgoyette 19 1.1.1.1.2.2 pgoyette my $revstatement =<<'EOS'; 20 1.1.1.1.2.2 pgoyette switch (ns-update (delete (1, 12, ddns-rev-name, null))) { 21 1.1.1.1.2.2 pgoyette case 0: 22 1.1.1.1.2.2 pgoyette unset ddns-rev-name; 23 1.1.1.1.2.2 pgoyette break; 24 1.1.1.1.2.2 pgoyette } 25 1.1.1.1.2.2 pgoyette EOS 26 1.1.1.1.2.2 pgoyette 27 1.1.1.1.2.2 pgoyette my $fwdstatement =<<'EOS'; 28 1.1.1.1.2.2 pgoyette switch (ns-update (delete (1, 1, ddns-fwd-name, leased-address))) { 29 1.1.1.1.2.2 pgoyette case 0: 30 1.1.1.1.2.2 pgoyette unset ddns-fwd-name; 31 1.1.1.1.2.2 pgoyette break; 32 1.1.1.1.2.2 pgoyette } 33 1.1.1.1.2.2 pgoyette EOS 34 1.1.1.1.2.2 pgoyette 35 1.1.1.1.2.2 pgoyette 36 1.1.1.1.2.2 pgoyette if (@ARGV && $ARGV[0] =~ m!^-!) { 37 1.1.1.1.2.2 pgoyette usage(); 38 1.1.1.1.2.2 pgoyette } 39 1.1.1.1.2.2 pgoyette 40 1.1.1.1.2.2 pgoyette 41 1.1.1.1.2.2 pgoyette 42 1.1.1.1.2.2 pgoyette # read stdin and write stdout. 43 1.1.1.1.2.2 pgoyette while (<>) { 44 1.1.1.1.2.2 pgoyette if (! /^lease\s/) { 45 1.1.1.1.2.2 pgoyette print; 46 1.1.1.1.2.2 pgoyette } else { 47 1.1.1.1.2.2 pgoyette my $lease = $_; 48 1.1.1.1.2.2 pgoyette while (<>) { 49 1.1.1.1.2.2 pgoyette $lease .= $_; 50 1.1.1.1.2.2 pgoyette # in a b1 file we should only see a left curly brace on a lease 51 1.1.1.1.2.2 pgoyette # lines. Seening it anywhere else means the user is probably 52 1.1.1.1.2.2 pgoyette # running a b2 or later file through this. 53 1.1.1.1.2.2 pgoyette # Ditto for a 'set' statement. 54 1.1.1.1.2.2 pgoyette if (m!\{! || m!^\s*set\s!) { 55 1.1.1.1.2.2 pgoyette warn "this doesn't look like a 3.0b1 file. Ignoring rest.\n"; 56 1.1.1.1.2.2 pgoyette print $lease; 57 1.1.1.1.2.2 pgoyette dumpRestAndExit(); 58 1.1.1.1.2.2 pgoyette } 59 1.1.1.1.2.2 pgoyette 60 1.1.1.1.2.2 pgoyette last if m!^\}\s*$!; 61 1.1.1.1.2.2 pgoyette } 62 1.1.1.1.2.2 pgoyette 63 1.1.1.1.2.2 pgoyette # $lease contains all the lines for the lease entry. 64 1.1.1.1.2.2 pgoyette $lease = makeNewLease($lease); 65 1.1.1.1.2.2 pgoyette print $lease; 66 1.1.1.1.2.2 pgoyette } 67 1.1.1.1.2.2 pgoyette } 68 1.1.1.1.2.2 pgoyette 69 1.1.1.1.2.2 pgoyette 70 1.1.1.1.2.2 pgoyette 71 1.1.1.1.2.2 pgoyette sub usage { 72 1.1.1.1.2.2 pgoyette my $prog = $0; 73 1.1.1.1.2.2 pgoyette $prog =~ s!.*/!!; 74 1.1.1.1.2.2 pgoyette 75 1.1.1.1.2.2 pgoyette print STDERR <<EOM; 76 1.1.1.1.2.2 pgoyette usage: $prog [ file ] 77 1.1.1.1.2.2 pgoyette 78 1.1.1.1.2.2 pgoyette Reads from the lease file listed on the command line (or stdin if not filename 79 1.1.1.1.2.2 pgoyette given) and writes to stdout. Converts a 3.0b1-style leases file to a 3.0b2 80 1.1.1.1.2.2 pgoyette style (for ad-hoc ddns updates). 81 1.1.1.1.2.2 pgoyette EOM 82 1.1.1.1.2.2 pgoyette 83 1.1.1.1.2.2 pgoyette exit (0); 84 1.1.1.1.2.2 pgoyette } 85 1.1.1.1.2.2 pgoyette 86 1.1.1.1.2.2 pgoyette 87 1.1.1.1.2.2 pgoyette 88 1.1.1.1.2.2 pgoyette # takes a string that's the lines of a lease entry and converts it, if 89 1.1.1.1.2.2 pgoyette # necessary to a b2 style lease entry. Returns the new lease in printable form. 90 1.1.1.1.2.2 pgoyette sub makeNewLease { 91 1.1.1.1.2.2 pgoyette my ($lease) = @_; 92 1.1.1.1.2.2 pgoyette 93 1.1.1.1.2.2 pgoyette my $convertedfwd; 94 1.1.1.1.2.2 pgoyette my $convertedrev; 95 1.1.1.1.2.2 pgoyette my $newlease = ""; 96 1.1.1.1.2.2 pgoyette foreach (split "\n", $lease) { 97 1.1.1.1.2.2 pgoyette if (m!^(\s+)(ddns-fwd-name|ddns-rev-name)\s+(\"[^\"]+\"\s*;)!) { 98 1.1.1.1.2.2 pgoyette $newlease .= $1 . "set " . $2 . " = " . $3 . "\n"; 99 1.1.1.1.2.2 pgoyette 100 1.1.1.1.2.2 pgoyette # If there's one of them, then it will always be the -fwd-. There 101 1.1.1.1.2.2 pgoyette # may not always be a -rev-. 102 1.1.1.1.2.2 pgoyette $convertedfwd++; 103 1.1.1.1.2.2 pgoyette $convertedrev++ if ($2 eq "ddns-rev-name"); 104 1.1.1.1.2.2 pgoyette } elsif (m!^\s*\}!) { 105 1.1.1.1.2.2 pgoyette if ($convertedfwd) { 106 1.1.1.1.2.2 pgoyette $newlease .= "\ton expiry or release {\n"; 107 1.1.1.1.2.2 pgoyette $newlease .= $revstatement if $convertedrev; 108 1.1.1.1.2.2 pgoyette $newlease .= $fwdstatement; 109 1.1.1.1.2.2 pgoyette $newlease .= "\t on expiry or release;\n\t}\n"; 110 1.1.1.1.2.2 pgoyette } 111 1.1.1.1.2.2 pgoyette $newlease .= "}\n"; 112 1.1.1.1.2.2 pgoyette } else { 113 1.1.1.1.2.2 pgoyette $newlease .= $_ . "\n"; 114 1.1.1.1.2.2 pgoyette } 115 1.1.1.1.2.2 pgoyette } 116 1.1.1.1.2.2 pgoyette 117 1.1.1.1.2.2 pgoyette return $newlease; 118 1.1.1.1.2.2 pgoyette } 119 1.1.1.1.2.2 pgoyette 120 1.1.1.1.2.2 pgoyette 121 1.1.1.1.2.2 pgoyette sub dumpRestAndExit { 122 1.1.1.1.2.2 pgoyette while (<>) { 123 1.1.1.1.2.2 pgoyette print; 124 1.1.1.1.2.2 pgoyette } 125 1.1.1.1.2.2 pgoyette exit (0); 126 1.1.1.1.2.2 pgoyette } 127
Indexes created Fri Aug 14 00:25:39 UTC 2026