arif/xcat-core
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

-Reduce conserver load at startup, staggered start and delayed allocation to keep window of large overhead down

Browse Source 
git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@1364 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
This commit is contained in:
jbjohnso 2008-05-13 14:03:46 +00:00
parent 6bd337bfba
commit 9f4ef6af05
2 changed files with 17 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
xCAT-server-2.0/share/xcat/cons/blade
View File

@ -2,18 +2,23 @@
# IBM(c) 2007 EPL license http://www.eclipse.org/legal/epl-v10.html
BEGIN
{
use Time::HiRes qw(sleep);
$::XCATROOT = $ENV{'XCATROOT'} ? $ENV{'XCATROOT'} : '/opt/xcat';
my $sleepint=int(rand(10));
print "Opening console in ".(2+(0.5*$sleepint))." seconds...\n";
sleep $sleepint;
}
use lib "$::XCATROOT/lib/perl";
use xCAT::Table;
use xCAT::Utils;
use File::Basename;
require xCAT::Table;
require xCAT::Utils;
require File::Basename;
import File::Basename;
my $scriptname = $0;
$mptab = xCAT::Table->new('mp');
unless ($mptab) {
sleep 5; #Try not to overwhelm logfiles...
#sleep 5; #Try not to overwhelm logfiles...
die "mp table must be configured";
}
$mpatab = xCAT::Table->new('mpa');
@ -45,7 +50,7 @@ if ($mpatab) {
}
}
xCAT::Utils::close_all_dbhs;
sleep 5; #Slow start, I know, but with exec, can't return
#sleep 5; #Slow start, I know, but with exec, can't return
exec "ssh -t $username"."@"."$mm console -o -T blade[$slot]";
#my $pathtochild= dirname($scriptname). "/";
#exec $pathtochild."blade.expect $mm $slot $username $password";

11
xCAT-server-2.0/share/xcat/cons/ipmi
View File

@ -2,16 +2,19 @@
# IBM(c) 2007 EPL license http://www.eclipse.org/legal/epl-v10.html
BEGIN
{
use Time::HiRes qw(sleep);
$::XCATROOT = $ENV{'XCATROOT'} ? $ENV{'XCATROOT'} : '/opt/xcat';
my $sleepint=int(rand(10));
print "Opening console in ".(2+(0.5*$sleepint))." seconds...\n";
sleep $sleepint;
}
$::XCATROOT = $ENV{'XCATROOT'} ? $ENV{'XCATROOT'} : '/opt/xcat';
use lib "$::XCATROOT/lib/perl";
use xCAT::Table;
use xCAT::Utils;
use Time::HiRes qw(sleep);
require xCAT::Table;
require xCAT::Utils;
my $dba;
my $ipmitab = xCAT::Table->new('ipmi');
unless ($ipmitab) { sleep 5; die "Unable to open IPMI table"; }
unless ($ipmitab) { die "Unable to open IPMI table"; }
my $passtab = xCAT::Table->new('passwd');
my $username = 'USERID';
my $password = 'PASSW0RD';