olaf/RPNS
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Run as daemon

Browse Source
This commit is contained in:
Olaf M. Kolkman 2021-02-09 14:44:18 +01:00
parent 767af557b1
commit 20222430c4
1 changed files with 46 additions and 21 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

65
ns.pl
View File

@ -1,22 +1,27 @@
#!/usr/bin/perl -Tw
# $Id: ns.pl,v 1.6 2005/10/11 11:44:28 olaf Exp $
#!/usr/local/bin/perl -Tw
use Proc::Daemon;
use Net::DNS;
use Net::DNS::Nameserver;
use Net::DNS::SEC;
use File::Slurp;
use strict;
use Math::RPN;
my $versionstring='"BSRPDNSC version 0.2.4"';
my $versionstring='"BSRPDNSC version 0.2.5"';
my $rpdomain=lc "rp.secret-wg.org.";
my $rp_ns_name=lc "ns.rp.secret-wg.org";
my $rp_ns_address="213.154.224.43";
my $rp_ns_bind_address="213.154.224.43";
my $rp_ns_address="185.49.141.200";
my $rp_ns_bind_address="185.49.141.200";
my $rp_ns_port="53";
my $reply_ttl=10;
my $sig_val=60;
my $keypath="/home/olaf/RPNS/Krp.secret-wg.org.+001+27900.private";
my $keypath="/home/olaf/RPNS/Krp.secret-wg.org.+005+27900.private";
my $pubpath="/home/olaf/RPNS/Krp.secret-wg.org.+005+27900.key";
my $www_address="193.0.4.49";
my $timeout=$sig_val*60-3*$reply_ttl; # resigns itself after so often
@ -24,6 +29,21 @@ my $timeout=$sig_val*60-3*$reply_ttl; # resigns itself after so often
print "Using Net::DNS version ".$Net::DNS::VERSION."\n";
print "Using Net::DNS::SEC version ".$Net::DNS::SEC::VERSION."\n";
my $dnskeystring= read_file($pubpath);
# File should contain one key per line (not tested)
my $keyRR = Net::DNS::RR->new( $dnskeystring);
my $ds = Net::DNS::RR::DS->create(
$keyRR,
digtype => 'SHA256',
ttl => 3600
);
print "DS record for parent: \n " .$ds->string() ."\n";
my %sigargs;
$sigargs{"ttl"} = $reply_ttl;
$sigargs{"sigval"}= $sig_val;
@ -37,6 +57,9 @@ use Tie::Syslog;
my $x=tie *STDOUT, 'Tie::Syslog', 'daemon.info','RPNS','pid','unix';
my $daemon = Proc::Daemon->new();
my $childPID= $daemon->Init;
print "Restarting the server";
resign();
alarm $timeout;
@ -58,18 +81,18 @@ $SIG{ALRM} = sub { print "alarm after $timeout seconds (to regenerate SIGs)\n";
sub resign {
@keyRR= (
Net::DNS::RR->new( "rp.secret-wg.org. 10 IN DNSKEY 256 3 1 AQPkQwQiwlTBYvK8xOx18oOqSpLjuTDmDlfcVUd2Oy5ZWyG2PxN+jDW3 0PQo9Tme337mJfG4s/1m72FjK7xHbPyX")
)
$keyRR
)
;
$keySIGRR= create Net::DNS::RR::RRSIG(\@keyRR,
$keySIGRR= create Net::DNS::RR::RRSIG(\@keyRR,
$private,
%sigargs,
);
@versionRR=(
Net::DNS::RR->new('version.bind 0 CH TXT '.$versionstring),
Net::DNS::RR->new('version.bind 0 CH TXT "http://bert.secret-wg.org/Tools tool 3"')
@ -421,15 +444,17 @@ sub reply_handler {
return ($rcode, \@ans, \@auth, \@add);
}
unless ( $childPID ) {
if ($ns) {
$ns->main_loop;
}
else {
die "couldn't create nameserver object\n";
}
if ($ns) {
$ns->main_loop;
}
else {
die "couldn't create nameserver object\n";
}
}