diff options
author | ian <ian> | 2003-06-15 17:34:23 +0000 |
---|---|---|
committer | ian <ian> | 2003-06-15 17:34:23 +0000 |
commit | e9a65ac4627a848d571966187aa39369dfa5b207 (patch) | |
tree | 3932562593d161cd8d51dc98568999f16c68c361 /dyndns | |
parent | 3988a733004005983b60aba74306368c122180f2 (diff) | |
download | userv-utils-e9a65ac4627a848d571966187aa39369dfa5b207.tar.gz |
IPv6 support - minor change courtesy of Ben Harris
Diffstat (limited to 'dyndns')
-rwxr-xr-x | dyndns/service | 5 |
1 files changed, 5 insertions, 0 deletions
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') { |