X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=bin%2Fsvc_domain.import;h=10fe5b5844935da40d6e414e6f00aa98ba86f3ec;hb=79f83ad93cc6f77a155528661a4681946fdd17a6;hp=329465ca1e069c8e2f9f70c431d9b6915e649653;hpb=5bd5f206a77cf975515d955119d4dff7764a2d8c;p=freeside.git

diff --git a/bin/svc_domain.import b/bin/svc_domain.import
index 329465ca1..10fe5b584 100644
--- a/bin/svc_domain.import
+++ b/bin/svc_domain.import
@@ -1,11 +1,11 @@
 #!/usr/bin/perl -w
 #
-# $Id: svc_domain.import,v 1.1 2000-02-03 05:17:39 ivan Exp $
+# $Id: svc_domain.import,v 1.3 2001-11-05 12:07:10 ivan Exp $
 
 use strict;
 use vars qw( %d_part_svc );
 use Term::Query qw(query);
-use FS::SSH qw(iscp);
+use Net::SCP qw(iscp);
 use FS::UID qw(adminsuidsetup datasrc);
 #use FS::Record qw(qsearch qsearchs);
 #use FS::svc_acct_sm;
@@ -56,7 +56,7 @@ while (<NAMED_CONF>) {
   last if /^\s*directory\s+\"([\/\w+]+)\";/;
 } 
 $directory = $1 or die "can't locate directory in named.conf!";
-whlie (<NAMED_CONF>) {
+while (<NAMED_CONF>) {
   next unless /^\s*zone\s+\"([\w\.\-]+)\"\s+\{/;
   my $zone = $1;
   while (<NAMED_CONF>) {