diff options
| author | ivan <ivan> | 2001-11-05 12:07:10 +0000 |
|---|---|---|
| committer | ivan <ivan> | 2001-11-05 12:07:10 +0000 |
| commit | 2893c82b194c167229b07bebe27a5979bff43018 (patch) | |
| tree | 998651aeb0f7c37552f7070c62cbeba24a89088c /bin | |
| parent | 170cab94330f9a6c5daaee7072010b589f3ab64d (diff) | |
this is unfinished and untested anyway, but this corrects a silly typo
Diffstat (limited to 'bin')
| -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>) { |