Commit fc5eb2b7 authored by Leigh B. Stoller's avatar Leigh B. Stoller
Browse files

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.
parent 17b80181
......@@ -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;
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment