doc/DnsPluggableTransport/Survey: ozymandns.patch

File ozymandns.patch, 1.6 KB (added by dcf, 21 months ago)

Patch I needed to get OzymanDNS 0.1 to work.

  • droute.pl

    diff -Nru ozymandns.orig/droute.pl ozymandns/droute.pl
    old new  
    55use Fcntl;
    66use Net::DNS;
    77use MIME::Base64;
    8 use MIME::Base32 qw ( RFC );
     8use MIME::Base32;
    99use Time::HiRes qw (usleep gettimeofday );
    1010use Getopt::Long;
    1111use threads;
     
    9595   @uplist   = (@uplist,   reverse (@dnsservs));
    9696}
    9797$res_down->nameserver(join(" ", @downlist));
     98$res_down->port(5353);
    9899$res_up->nameserver(join(" ", @uplist));
     100$res_up->port(5353);
    99101
    100102if($verbose) {print STDERR "Resolving through:  \n  UP: ", join(", ", $res_up->nameserver), "\n  DN: ", join(", ", $res_down->nameserver), "\n";}
    101103
  • nomde.pl

    diff -Nru ozymandns.orig/nomde.pl ozymandns/nomde.pl
    old new  
    99use LWP::UserAgent;
    1010use Time::HiRes qw ( usleep gettimeofday );
    1111use MIME::Base64;
    12 use MIME::Base32 qw ( RFC );
     12use MIME::Base32;
    1313use IO::Socket;
    1414use Class::Struct;
    1515use threads;
     
    2929        "ip=s"   =>  \$opts{ip},
    3030        "filename=s"  =>  \$opts{file},
    3131    "ptrname"     =>  \$opts{ptrname},
    32     "Localforward"=>  \$opts{forward}
     32    "Localforward=s"=>  \$opts{forward}
    3333);
    3434if($ARGV[0]) {
    3535   $opts{localname} = $ARGV[0];
     
    350350%sockdata;
    351351
    352352my $ns = Net::DNS::Nameserver->new(
    353     LocalPort    => 53,
     353    LocalAddr    => "127.0.0.1",
     354    LocalPort    => 5353,
    354355    ReplyHandler => \&reply_handler,
    355356    Verbose      => 2,
    356357) || die "couldn't create nameserver object\n";