From: ian <ian>
Date: Sun, 15 Jun 2003 17:34:23 +0000 (+0000)
Subject: IPv6 support - minor change courtesy of Ben Harris
X-Git-Tag: debian_version_0_3~20
X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~mdw/git/userv-utils/commitdiff_plain/e9a65ac4627a848d571966187aa39369dfa5b207

IPv6 support - minor change courtesy of Ben Harris
---

diff --git a/dyndns/service b/dyndns/service
index 37bf623..65b58ef 100755
--- a/dyndns/service
+++ b/dyndns/service
@@ -22,6 +22,7 @@ END {
 use FileHandle;
 use IO::File;
 use Socket;
+use Socket6;
 
 @ARGV==2 or die "need <zone> and <domain> arguments\n";
 ($zone,$subdomain) = @ARGV;
@@ -121,6 +122,10 @@ for (;;) {
 	defined($addr= inet_aton $_) or
 	    die "input:$.:$owner:invalid IP address\n";
 	$data= inet_ntoa($addr);
+    } elsif ($type eq 'AAAA') {
+	defined($addr= inet_pton(AF_INET6, $_)) or
+	    die "input:$.:$owner:invalid IPv6 address\n";
+	$data = inet_ntop(AF_INET6, $addr);
     } elsif ($type eq 'CNAME') {
 	$data= domainsyntax_rel("input:$.:$owner:canonical name",$_).".";
     } elsif ($type eq 'MX') {