dns: handle dns aliases like paste.factorcode.org

[factor.git] / extra / tools / dns / dns.factor

diff --git a/extra/tools/dns/dns.factor b/extra/tools/dns/dns.factor
index 56127b3d5a4b25a2590725a83523ff5e0286d2ce..1ed9707698670a0a221d9bf1ee924435037b93ca 100644 (file)
--- a/extra/tools/dns/dns.factor
+++ b/extra/tools/dns/dns.factor
@@ -22,8 +22,13 @@ IN: tools.dns
     [ a-message. ] [ (aaaa-message.) ] bi ;
 
 : mx-line. ( host pair -- )
-    [ write " mail is handled by " write ]
-    [ first2 [ number>string write bl ] [ print ] bi* ] bi* ;
+    dup length 1 = [
+        [ write " is an alias for " write ]
+        [ first print ] bi*
+    ] [
+        [ write " mail is handled by " write ]
+        [ first2 [ number>string write bl ] [ print ] bi* ] bi*
+    ] if ;
 
 : mx-message. ( message -- )
     [ message>query-name ] [ message>mxs ] bi