equal
deleted
inserted
replaced
53 } |
53 } |
54 return grep { |
54 return grep { |
55 # FIXME: 172.0 .. 172.31 is missing |
55 # FIXME: 172.0 .. 172.31 is missing |
56 not /\b(?:0|127|10|168\.192|255)\.in-addr\.arpa$/ and |
56 not /\b(?:0|127|10|168\.192|255)\.in-addr\.arpa$/ and |
57 not /^localhost$/; |
57 not /^localhost$/; |
58 } map { /zone\s"?(\S+)"?\s/ } grep { /type (?:master|slave)/ } @conf; |
58 } map { /zone\s"?(\S+?)"?\s/ } grep { /type (?:master|slave)/ } @conf; |
59 } |
59 } |
60 |
60 |
61 sub get_domains { |
61 sub get_domains { |
62 my %arg = @_; |
62 my %arg = @_; |
63 my @sources = @{ $arg{sources} }; |
63 my @sources = @{ $arg{sources} }; |