1 #!/usr/bin/perl 

     1 #!/usr/bin/perl 

     2 

     2 

     3 use strict;

     3 use strict;

     4 use warnings;

     4 use warnings;

     5 use FindBin;

     5 use FindBin;

     6 

    12 

     7 # liest die Konfiguration ein

    13 # liest die Konfiguration ein

     8 my @configs = ( "$FindBin::Bin/dnstools.conf", "/etc/dnstools.conf" );

    14 my @configs = ( "$FindBin::Bin/dnstools.conf", "/etc/dnstools.conf" );

     9 my %config;

    15 my %config;

    10 

    16 

    93     }

    99     }

    94 }

   100 }

    95 

   101 

    96 # signiert alle zonen in @auto und @manu und erhoeht den wert in

   102 # signiert alle zonen in @auto und @manu und erhoeht den wert in

    97 # der keycounter-datei

   103 # der keycounter-datei

    99     $zone = $_;

   105     $zone = $_;

   100 

   106 

   101     chdir "$master_dir/$zone";

   107     chdir "$master_dir/$zone";

   102 

   108 

   103     if (`dnssec-signzone $zone 2>/dev/null`) {

   109     if (`dnssec-signzone $zone 2>/dev/null`) {