AllKnowingDNS

 view release on metacpan or  search on metacpan

Makefile.PL  view on Meta::CPAN

#!/usr/bin/env perl
# vim:ts=4:sw=4:noexpandtab
use strict;
use warnings;
use inc::Module::Install;

name     'AllKnowingDNS';
all_from 'script/all-knowing-dns';

requires 'Net::DNS';
requires 'Privileges::Drop';
requires 'Mouse';

lib/App/AllKnowingDNS/Config.pm  view on Meta::CPAN

# vim:ts=4:sw=4:expandtab
package App::AllKnowingDNS::Config;

use Mouse;
use App::AllKnowingDNS::Zone;
use App::AllKnowingDNS::Util;
use Data::Dumper;

=head1 NAME

App::AllKnowingDNS::Config - configuration object

lib/App/AllKnowingDNS/Handler.pm  view on Meta::CPAN

# vim:ts=4:sw=4:expandtab
package App::AllKnowingDNS::Handler;

use strict;
use warnings;
use base 'Exporter';
use Net::DNS;
use NetAddr::IP::Util qw(ipv6_aton);
use App::AllKnowingDNS::Config;
use App::AllKnowingDNS::Zone;
use POSIX qw(strftime);

lib/App/AllKnowingDNS/Util.pm  view on Meta::CPAN

# vim:ts=4:sw=4:expandtab
package App::AllKnowingDNS::Util;

use strict;
use warnings;
use Exporter 'import';
use App::AllKnowingDNS::Config;
use App::AllKnowingDNS::Zone;
use NetAddr::IP::Util qw(ipv6_aton);
use v5.10;

lib/App/AllKnowingDNS/Zone.pm  view on Meta::CPAN

# vim:ts=4:sw=4:expandtab
package App::AllKnowingDNS::Zone;

use Mouse;

has 'network' => (is => 'rw', isa => 'Str');
has 'resolves_to' => (is => 'rw', isa => 'Str');
has 'upstream_dns' => (is => 'rw', isa => 'Str');

# These are set when adding the zone to the ::Config object.
has 'ptrzone' => (is => 'rw', isa => 'Str');

script/all-knowing-dns  view on Meta::CPAN

#!/usr/bin/env perl
# vim:ts=4:sw=4:expandtab

use strict;
use warnings;
# These modules are in core:
use FindBin;
use lib "$FindBin::Bin/../lib";
use Getopt::Long;
use Sys::Syslog;
# All these modules are not in core:
use App::AllKnowingDNS::Util;

t/001-parse-config.t  view on Meta::CPAN

#!perl
# vim:ts=4:sw=4:expandtab
#
# Verify that the parser correctly turns plain text fragments into
# App::AllKnowingDNS::Zone objects with correct properties.

use Test::More;
use Data::Dumper;
use strict;
use warnings;
use lib qw(lib);

t/002-util.t  view on Meta::CPAN

#!perl
# vim:ts=4:sw=4:expandtab
#
# Verify that the App::AllKnowingDNS::Util functions work.

use Test::More;
use Data::Dumper;
use strict;
use warnings;
use lib qw(lib);

use_ok('App::AllKnowingDNS::Util');

t/003-config.t  view on Meta::CPAN

#!perl
# vim:ts=4:sw=4:expandtab
#
# Verify that the App::AllKnowingDNS::Config object works.

use Test::More;
use Data::Dumper;
use strict;
use warnings;
use lib qw(lib);

use_ok('App::AllKnowingDNS::Config');

t/004-handler.t  view on Meta::CPAN

#!perl
# vim:ts=4:sw=4:expandtab
#
# Verify that the App::AllKnowingDNS::Handler works.

use Test::More;
use Data::Dumper;
use strict;
use warnings;
use lib qw(lib);

use_ok('App::AllKnowingDNS::Config');

t/005-same-domain.t  view on Meta::CPAN

#!perl
# vim:ts=4:sw=4:expandtab
#
# Verify that the App::AllKnowingDNS::Handler works when having multiple zones
# configured that only differ in the first part of the domain (e.g.
# foo-%DIGITS%.example.net and bar-%DIGITS%.example.net).

use Test::More;
use Data::Dumper;
use strict;
use warnings;
use lib qw(lib);