xcat-core/xCAT-server-2.0/share/xcat/cons/blade

#!/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";
my $xcatcfg;
open($xcatcfg,"<","/etc/sysconfig/xcat");
while (<$xcatcfg>) {
   if (/^\s*XCATCFG/) {
      (my $jnk,$ENV{XCATCFG})=split /=/,$_,2;
      chomp($ENV{XCATCFG});
      $ENV{XCATCFG} =~ s/^'//;
      $ENV{XCATCFG} =~ s/'$//;
      last;
   }
}
close($xcatcfg);

use xCAT::Table;
use File::Basename;
my $scriptname = $0;

$mptab = xCAT::Table->new('mp');
unless ($mptab) {
  sleep 5; #Try not to overwhelm logfiles...
  die "mp table must be configured";
}
$mpatab = xCAT::Table->new('mpa');
$passtab = xCAT::Table->new('passwd');

my $username = "USERID";
my $passsword = "PASSW0RD";
my $mm;
my $slot;
my $dba;
if ($passtab) {
  ($dba) = $passtab->getAttribs({key=>blade},qw(username password));
  if ($dba->{username}) {
    $username = $dba->{username};
  }
  if ($dba->{password}) {
    $password = $dba->{password};
  }
}

$dba = $mptab->getNodeAttribs($ARGV[0],[qw(mpa id)]);
$mm = $dba->{mpa};
$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}; }
  }
}
sleep 5;
exec "ssh -t $username"."@"."$mm console -o -T blade[$slot]";
#my $pathtochild= dirname($scriptname). "/";
#exec $pathtochild."blade.expect $mm $slot $username $password";