From cb57bc7dfc257b505a856abdb968f71a4ebf42bb Mon Sep 17 00:00:00 2001
From: "Leigh B. Stoller" <stoller@flux.utah.edu>
Date: Tue, 31 Dec 2002 19:24:34 +0000
Subject: [PATCH] Minor fix for qualified name of virtual nodes.

---
 tbsetup/tbreport.in | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/tbsetup/tbreport.in b/tbsetup/tbreport.in
index c0b473e95..5475bad05 100644
--- a/tbsetup/tbreport.in
+++ b/tbsetup/tbreport.in
@@ -170,13 +170,13 @@ if ($shownodes) {
 
     while (($vname,$ips,$osname,$cmd_line,$rpms,$deltas,$startupcmd,
 	    $tarfiles,$type,$fixed) = $virtnodes_result->fetchrow_array()) {
+	my $qualname = "$vname.$eid.$pid.$DOMAIN";
 
 	if ($fixed) {
 	    $vname = "$vname ($fixed)";
 	}
 
-	printf "%-15s %-12s %-15s %s\n", $vname, $type, $osname,
-	       "$vname.$eid.$pid.$DOMAIN";
+	printf "%-15s %-12s %-15s %s\n", $vname, $type, $osname, $qualname;
 	if ($cmd_line ne "") {
 	    printf "   %-17s %s\n", "Command Line:", $cmd_line;
 	}
-- 
GitLab