File Coverage

blib/lib/Net/DNS/Check/Config.pm

Criterion	Covered	Total	%
statement	12	70	17.1
branch	0	12	0.0
condition			n/a
subroutine	4	10	40.0
pod	3	3	100.0
total	19	95	20.0

package Net::DNS::Check::Config;

use vars qw($VERSION $AUTOLOAD);

use strict;
use Carp;

sub new {
	my ($pkg, %param) = @_;

	my $self = {};

	bless $self, $pkg;

	# Definizione rootnameservers
	$self->{rootservers} = [ qw(
		198.41.0.4
		128.9.0.107
		192.33.4.12
		128.8.10.90
		192.203.230.10
		192.5.5.241
		192.112.36.4
		128.63.2.53
		192.36.148.17
		192.58.128.30
		193.0.14.129
		198.32.64.12
		202.12.27.33 )
	];


	$self->{debug_default} 		= 0;


	# Intervallo di tempo per la  ritrasmissione delle query
	$self->{query_retrans} 		= 5;

	# Numero di tentativi nelle fare le query
	$self->{query_retry}		= 2;

	# Time out delle connessioni di tipo TCP (default a 120)
	$self->{query_tcp_timeout}	= 30;

	# Time out delle connessioni di tipo UDP (default undef)
	$self->{query_udp_timeout}	= undef;

	# Abilita disabilita le query per i RR::AAAA
	$self->{query_AAAA}			= undef;

	# $self->{predefined_hosts}->{'dns.nic.it'} 	= ['193.205.245.5'];
	# $self->{predefined_hosts}->{'dns2.nic.it'} 	= ['193.205.245.8'];
	# $self->{predefined_hosts}->{'dns3.nic.it'} 	= ['193.205.245.66'];

	# list of all available Check (test)
	# if you add a new Check you should add it to this list
	$self->{test_list} = [ qw(
		mx_compare
		mx_present
		ns_compare
		ns_vs_delegated
		ns_count
		soa_expire_compare
		soa_expire_range
		soa_refresh_compare
		soa_refresh_range
		soa_retry_compare
		soa_retry_range
		soa_serial_compare
		soa_serial_syntax
		soa_master_compare
		soa_master_in_ns
		host_syntax
		host_not_cname
		host_ip_vs_ip_orig
		host_ip_private
	) ];



	$self->{test_level}->{OK} = 'OK';
	$self->{test_level}->{E} = 'Error';
	$self->{test_level}->{W} = 'Warning';
	$self->{test_level}->{I} = 'Ignore';
	$self->{test_level}->{F} = 'Fatal';

	$self->{ok_status} = 'OK';
	$self->{error_status} = [qw{E F}];
	$self->{default_status} = 'E';

	# List of all configured test. This is an hash ref containg
	# all test used. Default use all available tests.
	# Default level E (Error)
	$self->{test_configured} = { map { $_ => 'E' } @{ $self->{test_list} } };

	# $self->{test_configured}->{soa_serial_syntax} = 'W';
	# $self->{test_configured}->{soa_serial_compare} = 'W';
	# $self->{test_configured}->{soa_refresh_range} = 'W';
	# $self->{test_configured}->{soa_refresh_compare} = 'W';
	# $self->{test_configured}->{soa_retry_range} = 'W';
	# $self->{test_configured}->{soa_retry_compare} = 'W';


	# If value is '0'
	$self->{ns_min_count} 		= 2;
	$self->{ns_max_count} 		= 0; 	# no max limit

	$self->{soa_min_retry} 		= 1800;
	$self->{soa_max_retry} 		= 28800;

	$self->{soa_min_refresh} 	= 1800;
	$self->{soa_max_refresh} 	= 86400;

	$self->{soa_min_expire} 	= 86400;
	$self->{soa_max_expire} 	= 0; 	# no max limit

	$self->{ip_private} = [ qw(
    	10
    	127
    	172.16
    	172.17
    	172.18
    	172.19
    	172.20
    	172.21
    	172.22
    	172.23
    	172.24
    	172.25
    	172.26
    	172.27
    	172.28
    	172.29
    	172.30
    	172.31
    	192.168 )
	];

	return $self;
}

sub test_level {
	my ($self) = shift;
	my ($level) = shift;;

	if ( $level ) {
		return $self->{test_level}->{$level};
	} else {
		return $self->{test_level};
	}
}


sub test_conf {
	my ($self) = shift;
	my (%param) = @_;

	return unless $param{test};

	# We should verify if test exists and if level is one of that supported
	if ($param{level}) {
		$self->{test_configured}->{$param{test}} = uc $param{level};
	}

	if (defined $self->{test_configured}->{$param{test}} ) {
		return $self->{test_configured}->{$param{test}};
	}
}


sub AUTOLOAD {
	my ($self) = @_;

	my ($name) = $AUTOLOAD =~ m/^.*::(.*)$/;

	unless (exists $self->{$name}) {
		Carp::carp(<<"AMEN");

***
***  WARNING!!! Param Doesn't exist
***  $AUTOLOAD
***

AMEN
		return;
	}

	no strict q/refs/;

	# Build a method in the class.
	*{$AUTOLOAD} = sub {
		my ($self, $new_val) = @_;

		if (defined $new_val) {
			$self->{$name} = $new_val;
		}

		return $self->{$name};
	};

	# And jump over to it.
	goto &{$AUTOLOAD};
}


sub DESTROY {};
1;

__END__