Hack up tbreport a little bit to report the qualified name that is

now in the DNS map. Hopefully people will see this and understand
what it means.

tbsetup/tbreport.in

@@ -42,11 +42,11 @@ if ($@) {
     exit(1);
 }
 print "Node Mapping:\n";
-printf "%-20s %-20s\n", "Virtual", "Physical";
-print "-------------------- --------------------\n";
+printf "%-15s %-15s %s\n", "Virtual", "Physical", "Qualified Name";
+print "--------------- --------------- --------------------\n";
 foreach (split("\n",$raw)) {
     ($v,$p) = split;
-    printf "%-20s %-20s\n", $v, $p;
+    printf "%-15s %-15s %s\n", $v, $p, "$v.$eid.$pid.emulab.net";
 }
 
 # Display IP addresses
@@ -77,8 +77,8 @@ if ($@) {
 }
 print "\n";
 print "IP Addresses:\n";
-printf "%-20s %-5s %-20s %-20s\n", "Node", "IFC", "Destination", "IP";
-print "-------------------- -------------------- --------------------\n";
+printf "%-15s %-5s %-20s %-20s\n", "Node", "IFC", "Destination", "IP";
+print "--------------- -------------------- --------------------\n";
 foreach (split("\n",$raw)) {
     ($src,$dst,$ip) = split;
     if (defined($ipmac{$ip})) {
@@ -91,7 +91,7 @@ foreach (split("\n",$raw)) {
     } else {
 	$ifc = "?";
     }
-    printf "%-20s eth%-2s %-20s %-20s\n", $src, $ifc, $dst, $ip;
+    printf "%-15s eth%-2s %-20s %-20s\n", $src, $ifc, $dst, $ip;
 }
 
 0;