fixed blade console support: relocateable perl lib, typos
git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@187 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
This commit is contained in:
parent
7cac7b5f06
commit
2e77eb6c5f
@ -1,5 +1,11 @@
|
||||
#!/usr/bin/env perl
|
||||
# IBM(c) 2007 EPL license http://www.eclipse.org/legal/epl-v10.html
|
||||
BEGIN
|
||||
{
|
||||
$::XCATROOT = $ENV{'XCATROOT'} ? $ENV{'XCATROOT'} : '/opt/xcat';
|
||||
}
|
||||
use lib "$::XCATROOT/lib/perl";
|
||||
|
||||
use xCAT::Table;
|
||||
use File::Basename;
|
||||
my $scriptname = $0;
|
||||
@ -33,8 +39,8 @@ $slot = $dba->{id};
|
||||
if ($mpatab) {
|
||||
($dba) = $mpatab->getAttribs({mpa=>$mm},qw(username password));
|
||||
if ($dba) {
|
||||
if ($dba->{username}) { $username = $dba->username; }
|
||||
if ($dba->{password}) { $password = $dba->password; }
|
||||
if ($dba->{username}) { $username = $dba->{username}; }
|
||||
if ($dba->{password}) { $password = $dba->{password}; }
|
||||
}
|
||||
}
|
||||
sleep 5;
|
||||
|
Loading…
Reference in New Issue
Block a user