diff -r e127de596921 -r b3cd686b8cf6 local.pm.ex-2 --- a/local.pm.ex-2 Thu Jul 14 10:03:39 2016 +0200 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,52 +0,0 @@ -# Example - -# remove the next line if you know, what you're doing -#die "Sure? You should adapt this file to your needs!"; - -package local; - -# in: zone name -# src ip -# out: 0 failure ($@ contains message) -# !0 ok ($@ may contain message) -sub addZone($$) { - my ($zone, $src) = @_; - my $hdns = '84.19.194.5'; - - # Filename ist für das File selbst und auch für die Konfig - (my $file = $zone) =~ s/[\/&|]/_/g; - - # 84.19.194.5 ist die ip unseres hidden master - my $transferees = $src eq $hdns ? 'localhost; key hh.schlittermann.de' : 'none'; - - my $txt = <<__; -{ - type slave; - file "/etc/cache/bind/slave/$file"; - masters { $src; }; - allow-query { any; }; - allow-transfer { $transferees; }; -}; - -__ - - # set - # allow-new-zones yes; - # in /etc/bind/named.conf.options - system rndc => ( - addzone => $zone, - $txt - ); - - if ($?) { - warn "rndc addzone $zone failed\n"; - return 0; - } - - $@ = "zone $zone added via rndc addzone\n"; - return 1; - -} - -1; -# vim:sts=4 sw=4 aw ai sm: