Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

add export support for DNAME records (untested)

  • Loading branch information...
commit ded531724056051a5885498863e8f13919d62147 1 parent 6726c0d
@msimerson authored
View
7 server/lib/NicToolServer/Export/BIND.pm
@@ -306,6 +306,13 @@ sub zr_naptr {
return qq[$r->{name} $r->{ttl} IN NAPTR $order $pref "$flags" "$service" "$regexp" $replace\n];
}
+sub zr_dname {
+ my ($self, $r) = @_;
+
+# name ttl class rr target
+ return "$r->{name} $r->{ttl} IN DNAME $r->{address}\n";
+}
+
sub zr_sshfp {
my ($self, $r) = @_;
my $algo = $r->{weight}; # 1=RSA, 2=DSS, 3=ECDSA
View
14 server/lib/NicToolServer/Export/tinydns.pm
@@ -428,6 +428,20 @@ sub zr_naptr {
return $self->zr_generic( 35, $r, $rdata );
}
+sub zr_dname {
+ my $self = shift;
+ my $r = shift or die;
+
+ # https://tools.ietf.org/html/rfc6672
+ # https://tools.ietf.org/html/rfc2672 (obsolete)
+
+ my $rdata = $self->pack_domain_name(
+ $self->qualify( $r->{address} )
+ );
+
+ return $self->zr_generic( 39, $r, $rdata );
+};
+
sub zr_sshfp {
my $self = shift;
my $r = shift or die;
Please sign in to comment.
Something went wrong with that request. Please try again.