diff options
author | ivan <ivan> | 2002-07-15 01:44:23 +0000 |
---|---|---|
committer | ivan <ivan> | 2002-07-15 01:44:23 +0000 |
commit | d9eabfe79d568b4b6e346f2e935df6ebcd232278 (patch) | |
tree | 18ba9fbf9467ce813cbb0abd9bb1aadd632367b9 | |
parent | 6fb47adef49450c1fb237251aae911b0825e6869 (diff) |
finally a working DNS::ZoneParse
-rwxr-xr-x | bin/bind.import | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/bin/bind.import b/bin/bind.import index 688e3222c..57eca2b63 100755 --- a/bin/bind.import +++ b/bin/bind.import @@ -1,6 +1,6 @@ #!/usr/bin/perl -w # -# $Id: bind.import,v 1.2 2002-06-21 09:13:16 ivan Exp $ +# $Id: bind.import,v 1.3 2002-07-15 01:44:23 ivan Exp $ #need to manually put header in /usr/local/etc/freeside/export.<datasrc./bind/<machine>/named.conf.HEADER @@ -8,7 +8,7 @@ use strict; use vars qw( %d_part_svc ); use Term::Query qw(query); #use BIND::Conf_Parser; -#use DNS::ZoneParse; +#use DNS::ZoneParse 0.81; #use Net::SCP qw(iscp); use Net::SCP qw(scp); @@ -140,7 +140,7 @@ BEGIN { scp("root\@$main::named_machine:$sourcefile", "$main::prefix/$basefile.import"); - use DNS::ZoneParse; + use DNS::ZoneParse 0.81; my $zone = DNS::ZoneParse->new("$main::prefix/$basefile.import"); my $dump = $zone->Dump; |