X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=bin%2Fbind.import;h=3287b0183fc99bd22c8c69a6fd475330a804d361;hb=72a65ceaa28155e8c1c3c1328dd76587b35e089a;hp=688e3222c3994e4b28ddad4e9d28e4949013722d;hpb=4bcab14cb3f0dbbe755bcaba4a979ec8e68db268;p=freeside.git

diff --git a/bin/bind.import b/bin/bind.import
index 688e3222c..3287b0183 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.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
 
@@ -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);
@@ -79,7 +79,7 @@ print "\nBIND import completed.\n";
 ##
 
 sub usage {
-  die "Usage:\n\n  svc_domain.import user\n";
+  die "Usage:\n\n  bind.import user\n";
 }
 
 ########
@@ -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;