Net::DNS::Check::Test::soa_expire_range - Check if the expire time in the SOA RR is within the range set in the configuration object

Net-DNS-Check documentation Contained in the Net-DNS-Check distribution.

Index

Code Index:

NAME

Top

Net::DNS::Check::Test::soa_expire_range - Check if the expire time in the SOA RR is within the range set in the configuration object

SYNOPSIS

Top

use Net::DNS::Check::Test::soa_expire_range;

DESCRIPTION

Top

Check if the expire time in the SOA RR is within the range set in the configuration object.

METHODS

Top

COPYRIGHT

Top

Copyright (c) 2005 Lorenzo Luconi Trombacchi - IIT-CNR

All rights reserved. This program is free software; you may redistribute it and/or modify it under the same terms as Perl itself.

SEE ALSO

Top

perl(1)

Net-DNS-Check documentation Contained in the Net-DNS-Check distribution. 
package Net::DNS::Check::Test::soa_expire_range;

use strict;
use vars qw(@ISA $VERSION);

@ISA     = qw(Net::DNS::Check::Test);


sub new {
   	my ($class) 	= shift; 

	my ($self) = bless {}, $class;

	if ( @_ ) {
		$self->_process_args(@_);
	}

	$self->test();

	return $self;
}


sub test() {
	my ($self) = shift;

	return unless ( $self->{config} );

	my $soa_min_expire = $self->{config}->soa_min_expire();
	my $soa_max_expire = $self->{config}->soa_max_expire();

	my $test_status = 1;
	my $test_detail = {}; 

    foreach my $nsquery ( @{$self->{nsquery}} ) {	
        my $soa_expire = scalar $nsquery->soa_expire();
		my $ns_name	= $nsquery->ns_name();
		
		if ($soa_min_expire > 0 && $soa_expire < $soa_min_expire ) { 
			$test_status = 0;
			$test_detail->{$ns_name}->{status} 	= 0; 
		} elsif ($soa_max_expire > 0 && $soa_expire > $soa_max_expire ) {
			$test_status = 0;
			$test_detail->{$ns_name}->{status} 	= 0; 
		} else {
			$test_detail->{$ns_name}->{status} 	= 1; 
		}
		$test_detail->{$ns_name}->{desc} 	= "$soa_expire"; 
	}

	$self->{test_status} = $test_status;
	$self->{test_detail} = $test_detail;

	return $test_status;
}

1;

__END__