head 1.3; access; symbols perseant-exfatfs-base-20250801:1.3 perseant-exfatfs-base-20240630:1.3 perseant-exfatfs:1.3.0.16 perseant-exfatfs-base:1.3 cjep_sun2x:1.3.0.14 cjep_sun2x-base:1.3 cjep_staticlib_x-base1:1.3 cjep_staticlib_x:1.3.0.12 cjep_staticlib_x-base:1.3 phil-wifi-20200421:1.3 phil-wifi-20200411:1.3 phil-wifi-20200406:1.3 pgoyette-compat-merge-20190127:1.3 pgoyette-compat-20190127:1.3 pgoyette-compat-20190118:1.3 pgoyette-compat-1226:1.3 pgoyette-compat-1126:1.3 pgoyette-compat-1020:1.3 pgoyette-compat-0930:1.3 pgoyette-compat-0906:1.3 pgoyette-compat-0728:1.3 pgoyette-compat-0625:1.3 pgoyette-compat-0521:1.3 pgoyette-compat-0502:1.3 pgoyette-compat-0422:1.3 pgoyette-compat-0415:1.3 pgoyette-compat-0407:1.3 pgoyette-compat-0330:1.3 pgoyette-compat-0322:1.3 pgoyette-compat-0315:1.3 pgoyette-compat:1.3.0.10 pgoyette-compat-base:1.3 prg-localcount2-base3:1.3 prg-localcount2-base2:1.3 prg-localcount2-base1:1.3 prg-localcount2:1.3.0.8 prg-localcount2-base:1.3 pgoyette-localcount-20170426:1.3 bouyer-socketcan-base1:1.3 pgoyette-localcount-20170320:1.3 bouyer-socketcan:1.3.0.6 bouyer-socketcan-base:1.3 pgoyette-localcount-20170107:1.3 pgoyette-localcount-20161104:1.3 localcount-20160914:1.3 pgoyette-localcount-20160806:1.3 pgoyette-localcount-20160726:1.3 pgoyette-localcount:1.3.0.4 pgoyette-localcount-base:1.3 netbsd-5-2-3-RELEASE:1.2 netbsd-5-1-5-RELEASE:1.2 netbsd-6-0-6-RELEASE:1.2 netbsd-6-1-5-RELEASE:1.2 yamt-pagecache-base9:1.3 yamt-pagecache-tag8:1.2 netbsd-6-1-4-RELEASE:1.2 netbsd-6-0-5-RELEASE:1.2 tls-earlyentropy:1.3.0.2 tls-earlyentropy-base:1.3 riastradh-xf86-video-intel-2-7-1-pre-2-21-15:1.3 riastradh-drm2-base3:1.3 netbsd-6-1-3-RELEASE:1.2 netbsd-6-0-4-RELEASE:1.2 netbsd-5-2-2-RELEASE:1.2 netbsd-5-1-4-RELEASE:1.2 netbsd-6-1-2-RELEASE:1.2 netbsd-6-0-3-RELEASE:1.2 netbsd-5-2-1-RELEASE:1.2 netbsd-5-1-3-RELEASE:1.2 netbsd-6-1-1-RELEASE:1.2 netbsd-6-1:1.2.0.60 netbsd-6-0-2-RELEASE:1.2 netbsd-6-1-RELEASE:1.2 khorben-n900:1.2.0.58 netbsd-6-1-RC4:1.2 netbsd-6-1-RC3:1.2 agc-symver:1.2.0.56 agc-symver-base:1.2 netbsd-6-1-RC2:1.2 netbsd-6-1-RC1:1.2 yamt-pagecache-base8:1.2 netbsd-5-2:1.2.0.52 netbsd-6-0-1-RELEASE:1.2 yamt-pagecache-base7:1.2 netbsd-5-2-RELEASE:1.2 netbsd-5-2-RC1:1.2 matt-nb6-plus-nbase:1.2 yamt-pagecache-base6:1.2 netbsd-6-0:1.2.0.50 netbsd-6-0-RELEASE:1.2 netbsd-6-0-RC2:1.2 tls-maxphys:1.2.0.48 tls-maxphys-base:1.3 matt-nb6-plus:1.2.0.46 matt-nb6-plus-base:1.2 netbsd-6-0-RC1:1.2 yamt-pagecache-base5:1.2 yamt-pagecache-base4:1.2 netbsd-6:1.2.0.44 netbsd-6-base:1.2 netbsd-5-1-2-RELEASE:1.2 netbsd-5-1-1-RELEASE:1.2 yamt-pagecache-base3:1.2 yamt-pagecache-base2:1.2 yamt-pagecache:1.2.0.42 yamt-pagecache-base:1.2 cherry-xenmp:1.2.0.40 cherry-xenmp-base:1.2 bouyer-quota2-nbase:1.2 bouyer-quota2:1.2.0.38 bouyer-quota2-base:1.2 matt-mips64-premerge-20101231:1.2 matt-nb5-mips64-premerge-20101231:1.2 matt-nb5-pq3:1.2.0.36 matt-nb5-pq3-base:1.2 netbsd-5-1:1.2.0.34 netbsd-5-1-RELEASE:1.2 netbsd-5-1-RC4:1.2 matt-nb5-mips64-k15:1.2 netbsd-5-1-RC3:1.2 netbsd-5-1-RC2:1.2 netbsd-5-1-RC1:1.2 netbsd-5-0-2-RELEASE:1.2 matt-nb5-mips64-premerge-20091211:1.2 matt-premerge-20091211:1.2 matt-nb5-mips64-u2-k2-k4-k7-k8-k9:1.2 matt-nb4-mips64-k7-u2a-k9b:1.2 matt-nb5-mips64-u1-k1-k5:1.2 matt-nb5-mips64:1.2.0.32 netbsd-5-0-1-RELEASE:1.2 jym-xensuspend-nbase:1.2 netbsd-5-0:1.2.0.30 netbsd-5-0-RELEASE:1.2 netbsd-5-0-RC4:1.2 netbsd-5-0-RC3:1.2 netbsd-5-0-RC2:1.2 jym-xensuspend:1.2.0.28 jym-xensuspend-base:1.2 netbsd-5-0-RC1:1.2 netbsd-5:1.2.0.26 netbsd-5-base:1.2 matt-mips64-base2:1.2 matt-mips64:1.2.0.24 mjf-devfs2:1.2.0.22 mjf-devfs2-base:1.2 netbsd-4-0-1-RELEASE:1.2 wrstuden-revivesa-base-3:1.2 wrstuden-revivesa-base-2:1.2 wrstuden-fixsa-newbase:1.2 wrstuden-revivesa-base-1:1.2 yamt-pf42-base4:1.2 yamt-pf42-base3:1.2 hpcarm-cleanup-nbase:1.2 yamt-pf42-baseX:1.2 yamt-pf42-base2:1.2 wrstuden-revivesa:1.2.0.20 wrstuden-revivesa-base:1.2 yamt-pf42:1.2.0.18 yamt-pf42-base:1.2 keiichi-mipv6:1.2.0.16 keiichi-mipv6-base:1.2 matt-armv6-nbase:1.2 matt-armv6-prevmlocking:1.2 wrstuden-fixsa-base-1:1.2 netbsd-4-0:1.2.0.14 netbsd-4-0-RELEASE:1.2 cube-autoconf:1.2.0.12 cube-autoconf-base:1.2 netbsd-4-0-RC5:1.2 netbsd-4-0-RC4:1.2 netbsd-4-0-RC3:1.2 netbsd-4-0-RC2:1.2 netbsd-4-0-RC1:1.2 matt-armv6:1.2.0.10 matt-armv6-base:1.2 matt-mips64-base:1.2 hpcarm-cleanup:1.2.0.8 hpcarm-cleanup-base:1.2 netbsd-3-1-1-RELEASE:1.1 netbsd-3-0-3-RELEASE:1.1 wrstuden-fixsa:1.2.0.6 wrstuden-fixsa-base:1.2 abandoned-netbsd-4-base:1.2 abandoned-netbsd-4:1.2.0.2 netbsd-3-1:1.1.1.1.0.16 netbsd-3-1-RELEASE:1.1 netbsd-3-0-2-RELEASE:1.1 netbsd-3-1-RC4:1.1 netbsd-3-1-RC3:1.1 netbsd-3-1-RC2:1.1 netbsd-3-1-RC1:1.1 netbsd-4:1.2.0.4 netbsd-4-base:1.2 netbsd-3-0-1-RELEASE:1.1 netbsd-3-0:1.1.1.1.0.14 netbsd-3-0-RELEASE:1.1 netbsd-3-0-RC6:1.1 netbsd-3-0-RC5:1.1 netbsd-3-0-RC4:1.1 netbsd-3-0-RC3:1.1 netbsd-3-0-RC2:1.1 netbsd-3-0-RC1:1.1 netbsd-2-0-3-RELEASE:1.1 netbsd-2-1:1.1.1.1.0.12 netbsd-2-1-RELEASE:1.1 netbsd-2-1-RC6:1.1 netbsd-2-1-RC5:1.1 netbsd-2-1-RC4:1.1 netbsd-2-1-RC3:1.1 netbsd-2-1-RC2:1.1 netbsd-2-1-RC1:1.1 ISC_V3-0-3_CORRECT:1.1.1.1 ISC_V3-0-3:1.1.1.1 netbsd-2-0-2-RELEASE:1.1 netbsd-3:1.1.1.1.0.10 netbsd-3-base:1.1 netbsd-2-0-1-RELEASE:1.1 netbsd-2:1.1.1.1.0.8 netbsd-2-base:1.1 netbsd-2-0-RELEASE:1.1 netbsd-2-0-RC5:1.1 netbsd-2-0-RC4:1.1 netbsd-2-0-RC3:1.1 netbsd-2-0-RC2:1.1 netbsd-2-0-RC1:1.1 netbsd-2-0:1.1.1.1.0.6 netbsd-2-0-base:1.1 netbsd-1-6-PATCH002-RELEASE:1.1 netbsd-1-6-PATCH002:1.1 netbsd-1-6-PATCH002-RC4:1.1 netbsd-1-6-PATCH002-RC3:1.1 netbsd-1-6-PATCH002-RC2:1.1 netbsd-1-6-PATCH002-RC1:1.1 netbsd-1-6-PATCH001:1.1 netbsd-1-6-PATCH001-RELEASE:1.1 netbsd-1-6-PATCH001-RC3:1.1 ISC_V3-0-1RC11:1.1.1.1 netbsd-1-6-PATCH001-RC2:1.1 netbsd-1-6-PATCH001-RC1:1.1 fvdl_fs64_base:1.1 netbsd-1-6-RELEASE:1.1 netbsd-1-6-RC3:1.1 netbsd-1-6-RC2:1.1 netbsd-1-6-RC1:1.1 ISC_V3-0-1RC9:1.1.1.1 netbsd-1-6:1.1.1.1.0.4 netbsd-1-6-base:1.1 netbsd-1-5-PATCH003:1.1.1.1.2.2 netbsd-1-5-PATCH002:1.1.1.1.2.2 netbsd-1-5:1.1.1.1.0.2 ISC_V3RC10:1.1.1.1 ISC:1.1.1; locks; strict; comment @# @; 1.3 date 2013.06.20.18.39.15; author christos; state dead; branches; next 1.2; commitid pK1JFBYZBf2ESnUw; 1.2 date 2005.08.11.17.13.21; author drochner; state Exp; branches 1.2.42.1 1.2.48.1; next 1.1; 1.1 date 2001.08.03.11.35.34; author drochner; state Exp; branches 1.1.1.1; next ; 1.2.42.1 date 2014.05.22.11.26.59; author yamt; state dead; branches; next ; commitid IOnR4fgXMZvMGwBx; 1.2.48.1 date 2013.06.23.06.26.15; author tls; state dead; branches; next ; commitid OnlO1cBgtQRcIHUw; 1.1.1.1 date 2001.08.03.11.35.34; author drochner; state Exp; branches 1.1.1.1.2.1; next ; 1.1.1.1.2.1 date 2001.08.03.11.35.34; author tv; state dead; branches; next 1.1.1.1.2.2; 1.1.1.1.2.2 date 2001.08.16.18.47.01; author tv; state Exp; branches; next ; desc @@ 1.3 log @buy ancient code @ text @#!/usr/bin/perl # # Start Date: Mon, 26 Mar 2001 14:24:09 +0200 # Time-stamp: # File: leaseconvertor.pl # RCSId: $Id: 3.0b1-lease-convert,v 1.2 2005/08/11 17:13:21 drochner Exp $ # # Description: Convert 3.0b1 to 3.0b2/final lease file format # require 5.004; my $rcsID =<<'EOM'; $Id: 3.0b1-lease-convert,v 1.2 2005/08/11 17:13:21 drochner Exp $ EOM use strict; my $revstatement =<<'EOS'; switch (ns-update (delete (1, 12, ddns-rev-name, null))) { case 0: unset ddns-rev-name; break; } EOS my $fwdstatement =<<'EOS'; switch (ns-update (delete (1, 1, ddns-fwd-name, leased-address))) { case 0: unset ddns-fwd-name; break; } EOS if (@@ARGV && $ARGV[0] =~ m!^-!) { usage(); } # read stdin and write stdout. while (<>) { if (! /^lease\s/) { print; } else { my $lease = $_; while (<>) { $lease .= $_; # in a b1 file we should only see a left curly brace on a lease # lines. Seening it anywhere else means the user is probably # running a b2 or later file through this. # Ditto for a 'set' statement. if (m!\{! || m!^\s*set\s!) { warn "this doesn't look like a 3.0b1 file. Ignoring rest.\n"; print $lease; dumpRestAndExit(); } last if m!^\}\s*$!; } # $lease contains all the lines for the lease entry. $lease = makeNewLease($lease); print $lease; } } sub usage { my $prog = $0; $prog =~ s!.*/!!; print STDERR <) { print; } exit (0); } @ 1.2 log @merge dhcp-3.0.3 @ text @d6 1 a6 1 # RCSId: $Id: 3.0b1-lease-convert,v 1.1 2001/04/18 19:17:34 mellon Exp $ d14 1 a14 1 $Id: 3.0b1-lease-convert,v 1.1 2001/04/18 19:17:34 mellon Exp $ @ 1.2.42.1 log @sync with head. for a reference, the tree before this commit was tagged as yamt-pagecache-tag8. this commit was splitted into small chunks to avoid a limitation of cvs. ("Protocol error: too many arguments") @ text @d6 1 a6 1 # RCSId: $Id: 3.0b1-lease-convert,v 1.2 2005/08/11 17:13:21 drochner Exp $ d14 1 a14 1 $Id: 3.0b1-lease-convert,v 1.2 2005/08/11 17:13:21 drochner Exp $ @ 1.2.48.1 log @resync from head @ text @d6 1 a6 1 # RCSId: $Id: 3.0b1-lease-convert,v 1.2 2005/08/11 17:13:21 drochner Exp $ d14 1 a14 1 $Id: 3.0b1-lease-convert,v 1.2 2005/08/11 17:13:21 drochner Exp $ @ 1.1 log @Initial revision @ text @@ 1.1.1.1 log @import of ISC dhcp-3.0rc10 @ text @@ 1.1.1.1.2.1 log @file 3.0b1-lease-convert was added on branch netbsd-1-5 on 2001-08-16 18:47:01 +0000 @ text @d1 126 @ 1.1.1.1.2.2 log @Pullup [drochner]: dist/dhcp/* sync at 2001-August-16 Update dhcp to Version 3, Release Candidate 10. @ text @a0 126 #!/usr/bin/perl # # Start Date: Mon, 26 Mar 2001 14:24:09 +0200 # Time-stamp: # File: leaseconvertor.pl # RCSId: $Id: 3.0b1-lease-convert,v 1.1.1.1.2.1 2001/08/16 18:47:01 tv Exp $ # # Description: Convert 3.0b1 to 3.0b2/final lease file format # require 5.004; my $rcsID =<<'EOM'; $Id: 3.0b1-lease-convert,v 1.1.1.1.2.1 2001/08/16 18:47:01 tv Exp $ EOM use strict; my $revstatement =<<'EOS'; switch (ns-update (delete (1, 12, ddns-rev-name, null))) { case 0: unset ddns-rev-name; break; } EOS my $fwdstatement =<<'EOS'; switch (ns-update (delete (1, 1, ddns-fwd-name, leased-address))) { case 0: unset ddns-fwd-name; break; } EOS if (@@ARGV && $ARGV[0] =~ m!^-!) { usage(); } # read stdin and write stdout. while (<>) { if (! /^lease\s/) { print; } else { my $lease = $_; while (<>) { $lease .= $_; # in a b1 file we should only see a left curly brace on a lease # lines. Seening it anywhere else means the user is probably # running a b2 or later file through this. # Ditto for a 'set' statement. if (m!\{! || m!^\s*set\s!) { warn "this doesn't look like a 3.0b1 file. Ignoring rest.\n"; print $lease; dumpRestAndExit(); } last if m!^\}\s*$!; } # $lease contains all the lines for the lease entry. $lease = makeNewLease($lease); print $lease; } } sub usage { my $prog = $0; $prog =~ s!.*/!!; print STDERR <) { print; } exit (0); } @