#!/usr/bin/perl -w
#
-# $Id: bind.import,v 1.1 2002-05-23 13:00:08 ivan Exp $
+# $Id: bind.import,v 1.4 2004-02-12 10:44:11 ivan Exp $
#need to manually put header in /usr/local/etc/freeside/export.<datasrc./bind/<machine>/named.conf.HEADER
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);
my $user = shift or die &usage;
adminsuidsetup $user;
+$FS::svc_Common::noexport_hack = 1;
$FS::domain_record::noserial_hack = 1;
use vars qw($spooldir);
##
sub usage {
- die "Usage:\n\n svc_domain.import user\n";
+ die "Usage:\n\n bind.import user\n";
}
########
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;