X-Git-Url: http://git.freeside.biz/gitweb/?p=freeside.git;a=blobdiff_plain;f=bin%2Fbind.import;h=57eca2b6311359cded5d395d67b8637acbd24172;hp=5c4149501ddad4bf463321b153a951835efd17f0;hb=d9eabfe79d568b4b6e346f2e935df6ebcd232278;hpb=4920ad2671d712afe23d731e25bc5b53955397b7

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;