#!/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;
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>) {