diff -Nru ozymandns.orig/droute.pl ozymandns/droute.pl --- ozymandns.orig/droute.pl 2004-07-28 14:37:26.000000000 -0700 +++ ozymandns/droute.pl 2018-05-14 18:57:59.109257333 -0700 @@ -5,7 +5,7 @@ use Fcntl; use Net::DNS; use MIME::Base64; -use MIME::Base32 qw ( RFC ); +use MIME::Base32; use Time::HiRes qw (usleep gettimeofday ); use Getopt::Long; use threads; @@ -95,7 +95,9 @@ @uplist = (@uplist, reverse (@dnsservs)); } $res_down->nameserver(join(" ", @downlist)); +$res_down->port(5353); $res_up->nameserver(join(" ", @uplist)); +$res_up->port(5353); if($verbose) {print STDERR "Resolving through: \n UP: ", join(", ", $res_up->nameserver), "\n DN: ", join(", ", $res_down->nameserver), "\n";} diff -Nru ozymandns.orig/nomde.pl ozymandns/nomde.pl --- ozymandns.orig/nomde.pl 2004-07-29 09:09:19.000000000 -0700 +++ ozymandns/nomde.pl 2018-05-15 00:17:04.210451811 -0700 @@ -9,7 +9,7 @@ use LWP::UserAgent; use Time::HiRes qw ( usleep gettimeofday ); use MIME::Base64; -use MIME::Base32 qw ( RFC ); +use MIME::Base32; use IO::Socket; use Class::Struct; use threads; @@ -29,7 +29,7 @@ "ip=s" => \$opts{ip}, "filename=s" => \$opts{file}, "ptrname" => \$opts{ptrname}, - "Localforward"=> \$opts{forward} + "Localforward=s"=> \$opts{forward} ); if($ARGV[0]) { $opts{localname} = $ARGV[0]; @@ -350,7 +350,8 @@ %sockdata; my $ns = Net::DNS::Nameserver->new( - LocalPort => 53, + LocalAddr => "127.0.0.1", + LocalPort => 5353, ReplyHandler => \&reply_handler, Verbose => 2, ) || die "couldn't create nameserver object\n";