diff options
| -rw-r--r-- | bin/svc_domain.import | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/bin/svc_domain.import b/bin/svc_domain.import index 3d3be9da5..10fe5b584 100644 --- a/bin/svc_domain.import +++ b/bin/svc_domain.import @@ -1,6 +1,6 @@ #!/usr/bin/perl -w # -# $Id: svc_domain.import,v 1.2 2001-04-22 01:56:15 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 ); @@ -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>) { |