Tcl Library Source Code

Artifact [422856ffc2]
Login

Artifact 422856ffc21b618d2fe020948212852d9ce2186a3cdd4501a8218f7f721c8fe3:

Ticket change [422856ffc2] - New ticket [8168daf796e4cc2a|8168daf796] <i>make reverse lookup of IPv6 addresses work</i>. by buzzdeee 2019-06-13 10:53:11.
D 2019-06-13T10:53:11.956
J assignee nobody
J closer nobody
J cmimetype text/html
J comment using\s<pre>[dns::resolve\sAN_IPv6_ADDRESS]</pre>\scurrently\sleads\sto\san\serror.<br>\r\n\r\nthis\spatch\sagainst\smodules/dns/dns.tcl\sbelow\smakes\sit\swork\sfor\sme:\r\n\r\n<pre>\r\n---\sdns.tcl.orig\tThu\sJun\s13\s12:34:10\s2019\r\n+++\sdns.tcl\tThu\sJun\s13\s12:38:02\s2019\r\n@@\s-286,10\s+286,17\s@@\r\n\s\s\s\s\s\s\s\s\s}\r\n\s\s\s\s\s}\r\n\s\r\n-\s\s\s\s#\sCheck\sfor\sreverse\slookups\r\n+\s\s\s\s#\sCheck\sfor\sreverse\slookups,\sIPv4\sfirst,\sthen\sIPv6\r\n\s\s\s\s\sif\s{[regexp\s{^(?:\\d{0,3}\\.){3}\\d{0,3}$}\s$state(query)]}\s{\r\n\s\s\s\s\s\s\s\s\sset\saddr\s[lreverse\s[split\s$state(query)\s.]]\r\n\s\s\s\s\s\s\s\s\slappend\saddr\sin-addr\sarpa\r\n+\s\s\s\s\s\s\s\sset\sstate(query)\s[join\s$addr\s.]\r\n+\s\s\s\s\s\s\s\sset\sstate(-type)\sPTR\r\n+\s\s\s\s}\selseif\s{[string\smatch\s{*:*}\s$state(query)]}\s{\r\n+\s\s\s\s\s\s\s\sset\saddr\s[ip::normalize\s$state(query)]\r\n+\s\s\s\s\s\s\s\sset\saddr\s[split\s[string\sreverse\s$addr]\s:]\r\n+\s\s\s\s\s\s\s\sset\saddr\s[join\s[split\s[join\s$addr\s""]\s{}]\s.]\r\n+\s\s\s\s\s\s\s\slappend\saddr\sip6\sarpa\r\n\s\s\s\s\s\s\s\s\sset\sstate(query)\s[join\s$addr\s.]\r\n\s\s\s\s\s\s\s\s\sset\sstate(-type)\sPTR\r\n\s\s\s\s\s}\r\n\r\n</pre>\r\n\r\nsimilarily\sto\schecking\sif\swe\sgot\san\sIPv4\saddress,\scheck\sif\sthe\squery\scontains\sa\scolon.\sChecking\sif\sit\scontains\sa\scolon\sshould\sbe\ssufficient,\ssince\sIPv4\saddresses\sdon't\scontain\scolons,\sas\swell\sas\sthey\sare\snot\sallowed\sin\shostnames.\r\n\r\nOnce\san\sIPv6\saddress\sis\sidentified,\snormalize\sit,\sand\sformat\sthe\squery\sappropriately.
J foundin 1.19
J is_private 0
J login buzzdeee
J priority 5\sMedium
J resolution None
J severity Minor
J status Open
J submitter buzzdeee
J subsystem dns
J title make\sreverse\slookup\sof\sIPv6\saddresses\swork
J type RFE
K 8168daf796e4cc2a843f4d1a4f2f38e348197945
U buzzdeee
Z ea70e7c069851260134097d9d7aac656