From 260820e5e80c327075f504960a9ba1be15fa02c9 Mon Sep 17 00:00:00 2001
From: jbjohnso <jbjohnso@8638fb3e-16cb-4fca-ae20-7b5d299a9bcd>
Date: Thu, 31 Jul 2008 21:06:33 +0000
Subject: [PATCH] -Fix Xen console method for conserver wrapping

git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@1972 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
---
 xCAT-server/share/xcat/cons/xen | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

diff --git a/xCAT-server/share/xcat/cons/xen b/xCAT-server/share/xcat/cons/xen
index 28b8eb043..630b37c51 100755
--- a/xCAT-server/share/xcat/cons/xen
+++ b/xCAT-server/share/xcat/cons/xen
@@ -6,9 +6,10 @@ BEGIN
     $::XCATROOT = $ENV{'XCATROOT'} ? $ENV{'XCATROOT'} : '/opt/xcat';
     my $sleepint=int(rand(10));
     print "Opening console in ".(2+(0.5*$sleepint))." seconds...\n";
-    #sleep $sleepint;
+    sleep $sleepint;
 }
 use lib "$::XCATROOT/lib/perl";
+$ENV{HOME}='/root/';
 require xCAT::Client;
 
 require File::Basename;
@@ -31,13 +32,11 @@ sub getans {
         $dsthost=~s/.*@//;
         $dstty = $rsp->{node}->[0]->{data}->[0]->{contents}->[0];
         $speed=$dstty;
-        print $speed;
         $dstty =~ s/@.*$//;
         $speed =~ s/^.*@//;
     }
 }
 xCAT::Client::submit_request($cmdref,\&getans);
-print "$dsthost $speed $dstty\n";
 exec "ssh -t $dsthost cu -s $speed -l $dstty";
 
 #my $pathtochild= dirname($scriptname). "/";