Various trust anchors

[dotfiles.git] / anchors / dns / @.do

diff --git a/anchors/dns/@.do b/anchors/dns/@.do
new file mode 100644 (file)
index 0000000..248c5f5
--- /dev/null
+++ b/anchors/dns/@.do
@@ -0,0 +1,6 @@
+redo-ifchange root-servers.net.zone
+perl -lane 'print $F[$#F] if $F[3] =~ /^AA?/' < root-servers.net.zone |
+while read addr ; do
+    [ "${addr#*:}" = "$addr" ] && echo $addr ||
+        sipcalc $addr | perl -lane 'print $F[$#F] if /^Compressed address/'
+done