1 #! /usr/bin/perl

     2 

     3 use strict;

     4 use warnings;

     5 use File::Basename;

     6 use FindBin;

     7 

     8 # liest die Konfiguration ein

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

    10 my %config;

    11 

    12 for (grep { -f } @configs) {

    13     open(CONFIG, $_) or die "Can't open $_: $!\n";

    14 }

    15 

    16 unless (seek(CONFIG, 0, 0)) {

    17     die "Can't open config (searched: @configs)\n";

    18 }

    19 

    20 while (<CONFIG>) {

    21     chomp;

    22     s/#.*//;

    23     s/\t//g;

    24     s/\s//g;

    25     next unless length;

    26     my ($cname, $ccont) = split(/\s*=\s*/, $_, 2);

    27     $config{$cname} = $ccont;

    28 }

    29 close(CONFIG);

    30 

    31 my $master_dir = $config{master_dir};

    32 my $zone;

    33 my ($info_zsk, $info_ksk, $info_kc, $info_end, $info_status);

    34 

    35 unless (-d $master_dir and -r $master_dir) {

    36     die "$master_dir: $!\n";

    37 }

    38 

    39 printf "%-35s %-8s %1s/%1s %3s %7s\n", "Domain", "Status", "ZSK", "KSK",

    40   "Used", "Sig-end";

    41 

    42 for my $dir (glob "$master_dir/*") {

    43 

    44     $zone = basename($dir);

    45 

    46     # prueft mit dig nach der zone

    47     $info_status = "OK";

    48     for (`dig \@localhost $zone`) {

    49         if (/root-servers/) {

    50             $info_status = "FAILED";

    51             last;

    52         }

    53     }

    54 

    55     if (not -f "$dir/.index.zsk") {

    56         $info_zsk = $info_ksk = $info_kc = 0;

    57         $info_end = "-";

    58         next;

    59     }

    60 

    61     # prueft wie viele zsks genutzt werden

    62     close(FILE);

    63     open(FILE, $_ = "<$dir/.index.zsk") or die "Can't open $_: $!\n";

    64     () = <FILE>;

    65     $info_zsk = $.;

    66 

    67     # prueft wie viele ksks genutzt werden

    68     close(FILE);

    69     open(FILE, $_ = "<$dir/.index.ksk") or die "Can't open $_: $!\n";

    70     () = <FILE>;

    71     $info_ksk = $.;

    72 

    73     # prueft wie oft die schluessel zum signieren genutzt wurden

    74     open(FILE, $_ = "<$dir/.keycounter") or die "Can't open $_: $!\n";

    75     chomp($info_kc = <FILE>);

    76 

    77     # prueft das ablaufdatum

    78     if (!-f "$dir/$zone.signed") {

    79         $info_end = "-";

    80         next;

    81     }

    82 

    83     open(FILE, $_ = "<$dir/$zone.signed") or die "Can't open $_: $!\n";

    84     while (<FILE>) {

    85         $info_end = "$+{day}.$+{mon}.$+{year} $+{hour}:$+{min}"

    86           if /RSIG.*SOA.*\s

    87 			(?<year>\d\d\d\d)

    88 			(?<mon>\d\d)

    89 			(?<day>\d\d)

    90 			(?<hour>\d\d)

    91 			(?<min>\d\d)\d+\s\(/ix;

    92     }

    93 

    94 }

    95 continue {

    96     printf "%-35s %-8s %1d/%1d %5d %19s\n", $zone, $info_status, $info_zsk,

    97       $info_ksk, $info_kc,

    98       $info_end;

    99 }

   100