Can you sepcify what your problem is, exactly.
At a first glance your code looks fine...
cr
On Wed, 09 May 2001 17:49:16 +1000, Clayton Winter said:
> Hi very new to perl... am getting some books asap.
>
> I am writing a script to create named.conf records from a single field
> text file
>
> eg, domain.fle
> domain1.com
> domain2.net
> domain3.org
>
> and then create a named.conf entry from;
>
> $namedconf="/etc/namedb/named.conf" ;
> $namednow="/etc/namedb/named.conf.$now" ;
> $namedtmp="/etc/namedb/named.conf.tmp" ;
>
> unless (-e $namedconf) { die "$namedconf does not exist!" }
>
> open (NAMEDNOW, "> $namednow") || die "Cannot open $namedtmp for
> writing\n\n" ;
> open (NAMED, $namedconf) || die "Cannot open $namedconf for reading\n\n" ;
> Lock::wlock(NAMED);
>
> while (<NAMED>) {
> if ((/nextprimary/) && ($domaintype eq "primary")) {
> print NAMEDNOW <<ENUF;
>
> zone "$domainname" {
> type master;
> allow-query { any; } ;
> file "zones/$domainname";
> };
>
> ENUF
>
> Newbie please be gentle...
>
>
