dnsnagios/check_dnssec
changeset 156 030f377af8d5
parent 112 5a51a3757f5e
child 157 548c7695897d
equal deleted inserted replaced
155:24ba8266112e 156:030f377af8d5
   101     my ( $r, @a );
   101     my ( $r, @a );
   102     unless ( defined( $r = $res->query( $z, 'rrsig' ) )
   102     unless ( defined( $r = $res->query( $z, 'rrsig' ) )
   103         && ( @a = $r->answer ) )
   103         && ( @a = $r->answer ) )
   104     {
   104     {
   105 
   105 
   106         print "No RRSIGs found for zone '$z'";
   106         print "No RRSIGs found for zone '$z'\n";
   107         exit $rv->{UNKNOWN};
   107         exit $rv->{UNKNOWN};
   108 
   108 
   109     }
   109     }
   110 
   110 
   111     for my $rrsig (@a) {
   111     for my $rrsig (@a) {