equal
deleted
inserted
replaced
1 #!/usr/bin/perl -w |
1 #!/usr/bin/perl -w |
2 |
2 |
3 use strict; |
3 use strict; |
4 |
4 |
5 my $master_dir="/etc/bind/master"; # verzeichnis fuer bind |
5 my %config; |
6 my $key_counter_end="10"; # ablauf des schluessels |
6 open (CONFIG, "dnstools.conf"); |
7 my @change; # liste abgelaufener zonen |
7 while (<CONFIG>) { |
8 my @manu; # liste manuell eingegebener zonen aus ARGV |
8 chomp; |
|
9 s/#.*//; |
|
10 s/\t//g; |
|
11 s/\s//g; |
|
12 |
|
13 next unless length; |
|
14 my ($cname, $ccont) = split (/\s*=\s*/, $_,2); |
|
15 $config{$cname} = $ccont; |
|
16 } |
|
17 close (CONFIG); |
|
18 |
|
19 |
|
20 my $master_dir= $config{master_dir}; |
|
21 my $key_counter_end=$config{key_counter_end}; |
|
22 my @change; |
|
23 my @manu; |
9 my @index; |
24 my @index; |
10 my $zone; |
25 my $zone; |
11 my $keyname; |
26 my $keyname; |
12 |
27 |
13 # prueft ob eingaben in ARGV domains sind und gibt sie in die liste @manu |
28 # prueft ob eingaben in ARGV domains sind und gibt sie in die liste @manu |
14 for (@ARGV) { |
29 for (@ARGV) { |
15 chomp ($zone = `idn --quiet "$_"`); |
30 chomp (my $zone = `idn --quiet "$_"`); |
16 |
31 |
17 if (-e "$master_dir/$zone") { |
32 if (-e "$master_dir/$zone") { |
18 push (@manu, $zone); |
33 push (@manu, $zone); |
19 } else { |
34 } else { |
20 print " $zone ist keine verwaltete zone \n "; |
35 print " $zone ist keine verwaltete zone \n "; |