6 print "glue",$6,$3,$4,"answer",$6" A "$7
10 print "glue",$6,$3,$4,"answer",$6" NS "$7
15 ' |
sort -t: +0 -2 +4 +3 -4 +2 -3 |
uniq |
awk -F: '
20 ip = sprintf("%-16s",$4)
22 if (q != lastq) { print ""; lastq = q }
25 result = "A\bAL\bLE\bER\bRT\bT:\b: " $6
27 else if ($5 == "answer") {
28 if (index($6,q" ") == 1)
29 $6 = substr($6,length(q) + 2)
32 else if ($5 == "see") {
35 else if ($5 == "CNAME") {
42 q = substr(q,1,length(q) - length(c))
43 for (i = 1;i <= length(c);++i) {
49 print type,q,ip,result