Acme::DNS::Correct - Fix the DNS System

Acme-DNS-Correct documentation Contained in the Acme-DNS-Correct distribution.

Index

Code Index:

NAME

Top

Acme::DNS::Correct - Fix the DNS System

DESCRIPTION

Top

Acme::DNS::Correct is a subclass of Net::DNS::Resolver, adding functionality that returns sanity to the DNS system. Consult the Net::DNS manpages for comprehensive documentation on using this module.

SYNOPSIS

Top

 my $res = Acme::DNS::Correct->new;

 # use $res just like a Net::DNS::Resolver object, but the answers it 
 # returns will make sense, and be correct.

 # Give Net::DNS::Resolver objects sanity:
 use Acme::DNS::Correct 'sneaky';

 # $res now gives sane answers
 my $res = Net::DNS::Resolver->new;

CONFIGURATION

Top

This module strips out answers of 64.94.110.11, a place of evil that you should keep far far away from your poor defenseless computer.

If you would rather avoid another root of evil, set the ROOT_OF_EVIL envirement variable, or the $Acme::DNS::Correct::ROOT_OF_EVIL variable.

TODO

Top

Check that the root of evil is really an IP address.

Allow for more than one root of evil.

Zone transfers are not safe from evil.

AUTHOR

Top

Chris Reinhardt <ctriv@dyndns.org>

COPYRIGHT

Top

Copyright (c) 2003 Chris Reinhardt <ctriv@dyndns.org>. All rights reserved. This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.

SEE ALSO

Top

Net::DNS

Acme-DNS-Correct documentation Contained in the Acme-DNS-Correct distribution. 
package Acme::DNS::Correct;
#
# $Id: Correct.pm,v 1.6 2003/09/28 04:05:42 ctriv Exp $
#
use strict;
use vars qw($VERSION @ISA $ROOT_OF_EVIL $BE_SNEAKY);
use Net::DNS;

$VERSION = 0.4;
@ISA     = qw(Net::DNS::Resolver);

$ROOT_OF_EVIL ||= $ENV{'ROOT_OF_EVIL'} || '64.94.110.11';

sub import {
	my ($class, @args) = @_;
	
	for (@args) {
		if ($_ eq 'sneaky') {
			$BE_SNEAKY++;
		}
	}
}

sub send {
	my $self = shift;
	my $ans  = $self->SUPER::send(@_) || return;
	
 	_remove_evil($ans);
	
	return $ans
} 


sub _remove_evil {
	my ($packet) = @_;
	
	my @ans = $packet->answer;
	
	if (@ans == 1) {
		my $rr = $ans[0];
		
		if ($rr->type eq 'A' and $rr->address eq $ROOT_OF_EVIL) {
			$packet->pop('answer')     while $packet->answer;
			$packet->pop('authority')  while $packet->authority;
			$packet->pop('additional') while $packet->additional;
			
			$packet->header->rcode('NXDOMAIN');
		}
	}
}
	

package Net::DNS::Resolver;

sub send {
	my $self = shift;
	my $ans  = $self->SUPER::send(@_) || return;
	
 	Acme::DNS::Correct::_remove_evil($ans) if $Acme::DNS::Correct::BE_SNEAKY;
	
	return $ans
} 
	
		
			


	
	
1;
__END__