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 $master_dir="/etc/bind/master"; # verzeichnis fuer bind |
6 my $key_counter_end="2"; # ablauf des schluessels |
6 my $key_counter_end="10"; # ablauf des schluessels |
7 my @zones = `ls $master_dir`; # alle verwalteten zonen |
7 my @zones = `ls $master_dir`; # alle verwalteten zonen |
8 my @change; # liste abgelaufener zonen |
8 my @change; # liste abgelaufener zonen |
9 my @manu; # liste manuell eingegebener zonen aus ARGV |
9 my @manu; # liste manuell eingegebener zonen aus ARGV |
10 my @index; |
10 my @index; |
11 my $zone; |
11 my $zone; |