diff options
Diffstat (limited to 'bin/bind.import')
| -rwxr-xr-x | bin/bind.import | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/bin/bind.import b/bin/bind.import index 5c4149501..57eca2b63 100755 --- a/bin/bind.import +++ b/bin/bind.import @@ -1,6 +1,6 @@ #!/usr/bin/perl -w # -# $Id: bind.import,v 1.1 2002-05-23 13:00:08 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); @@ -23,6 +23,7 @@ use FS::domain_record; my $user = shift or die &usage; adminsuidsetup $user; +$FS::svc_Common::noexport_hack = 1; $FS::domain_record::noserial_hack = 1; use vars qw($spooldir); @@ -139,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; |