xcat-core/xCAT-server/sbin/rshell_api

#!/usr/bin/env perl
# IBM(c) 2012 EPL license http://www.eclipse.org/legal/epl-v10.html

BEGIN
{
    $::XCATROOT = $ENV{'XCATROOT'} ? $ENV{'XCATROOT'} : '/opt/xcat';
}

use lib "$::XCATROOT/lib/perl";
use Getopt::Long;
use xCAT::RShellAPI;

Getopt::Long::Configure("require_order");
Getopt::Long::Configure("no_pass_through");

my $username;
my $passwd;
my $help;
my $verbose;

if (!GetOptions(
  'l|loginname=s' => \$username,
  'p|password=s' => \$passwd,
  'h|help' => \$help,
  'v|verbose'=> \$verbose,
  ) || $help || scalar(@ARGV)<2 ) {
  print "Usage: rshell_api [-v] [-l <user>] [-p <passwrd>] <node> <command>\n";
  exit;
}

my $node = $ARGV[0];

my $output =xCAT::RShellAPI::run_remote_shell_api($node, $username, $passwd, $verbose, @ARGV[1 .. $#ARGV]); 
my $rc=0;
my $data;
if ($output && (@$output > 1)) {
    $rc=$output->[0];
    $data=$output->[1];
}

print "$data";
exit $rc;