1*00b67f09SDavid van Moolenbroek#!/usr/bin/perl 2*00b67f09SDavid van Moolenbroek# 3*00b67f09SDavid van Moolenbroek# Copyright (C) 2011, 2012 Internet Systems Consortium, Inc. ("ISC") 4*00b67f09SDavid van Moolenbroek# 5*00b67f09SDavid van Moolenbroek# Permission to use, copy, modify, and/or distribute this software for any 6*00b67f09SDavid van Moolenbroek# purpose with or without fee is hereby granted, provided that the above 7*00b67f09SDavid van Moolenbroek# copyright notice and this permission notice appear in all copies. 8*00b67f09SDavid van Moolenbroek# 9*00b67f09SDavid van Moolenbroek# THE SOFTWARE IS PROVIDED "AS IS" AND ISC DISCLAIMS ALL WARRANTIES WITH 10*00b67f09SDavid van Moolenbroek# REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY 11*00b67f09SDavid van Moolenbroek# AND FITNESS. IN NO EVENT SHALL ISC BE LIABLE FOR ANY SPECIAL, DIRECT, 12*00b67f09SDavid van Moolenbroek# INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM 13*00b67f09SDavid van Moolenbroek# LOSS OF USE, DATA OR PROFITS, WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE 14*00b67f09SDavid van Moolenbroek# OR OTHER TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR 15*00b67f09SDavid van Moolenbroek# PERFORMANCE OF THIS SOFTWARE. 16*00b67f09SDavid van Moolenbroek 17*00b67f09SDavid van Moolenbroek# Id: mkzonefile.pl,v 1.2 2011/09/02 21:15:35 each Exp 18*00b67f09SDavid van Moolenbroekuse strict; 19*00b67f09SDavid van Moolenbroek 20*00b67f09SDavid van Moolenbroekdie "Usage: makenames.pl zonename num_records" if (@ARGV != 2); 21*00b67f09SDavid van Moolenbroekmy $zname = @ARGV[0]; 22*00b67f09SDavid van Moolenbroekmy $nrecords = @ARGV[1]; 23*00b67f09SDavid van Moolenbroek 24*00b67f09SDavid van Moolenbroekmy @chars = split("", "abcdefghijklmnopqrstuvwxyz"); 25*00b67f09SDavid van Moolenbroek 26*00b67f09SDavid van Moolenbroekprint"\$TTL 300 ; 5 minutes 27*00b67f09SDavid van Moolenbroek\$ORIGIN $zname. 28*00b67f09SDavid van Moolenbroek@ IN SOA mname1. . ( 29*00b67f09SDavid van Moolenbroek 2011080201 ; serial 30*00b67f09SDavid van Moolenbroek 20 ; refresh (20 seconds) 31*00b67f09SDavid van Moolenbroek 20 ; retry (20 seconds) 32*00b67f09SDavid van Moolenbroek 1814400 ; expire (3 weeks) 33*00b67f09SDavid van Moolenbroek 600 ; minimum (1 hour) 34*00b67f09SDavid van Moolenbroek ) 35*00b67f09SDavid van Moolenbroek NS ns 36*00b67f09SDavid van Moolenbroekns A 10.53.0.3\n"; 37*00b67f09SDavid van Moolenbroek 38*00b67f09SDavid van Moolenbroeksrand; 39*00b67f09SDavid van Moolenbroekfor (my $i = 0; $i < $nrecords; $i++) { 40*00b67f09SDavid van Moolenbroek my $name = ""; 41*00b67f09SDavid van Moolenbroek for (my $j = 0; $j < 8; $j++) { 42*00b67f09SDavid van Moolenbroek my $r = rand 25; 43*00b67f09SDavid van Moolenbroek $name .= $chars[$r]; 44*00b67f09SDavid van Moolenbroek } 45*00b67f09SDavid van Moolenbroek print "$name" . "\tIN\tA\t"; 46*00b67f09SDavid van Moolenbroek my $x = int rand 254; 47*00b67f09SDavid van Moolenbroek my $y = int rand 254; 48*00b67f09SDavid van Moolenbroek my $z = int rand 254; 49*00b67f09SDavid van Moolenbroek print "10.$x.$y.$z\n"; 50*00b67f09SDavid van Moolenbroek} 51*00b67f09SDavid van Moolenbroek 52