diff --git a/xCAT-client/bin/lsslp b/xCAT-client/bin/lsslp new file mode 100644 index 000000000..51b6240c4 --- /dev/null +++ b/xCAT-client/bin/lsslp @@ -0,0 +1,53 @@ +#!/usr/bin/env perl +# IBM(c) 2007 EPL license http://www.eclipse.org/legal/epl-v10.html + +# Used as a standard client cmd that can be used for xcat cmds that do not have +# noderange as an argument. See xcatclient for additional documentation. + +# To use this, sym link your cmd name to this script. + +BEGIN { $::XCATROOT = $ENV{'XCATROOT'} ? $ENV{'XCATROOT'} : -d '/opt/xcat' ? '/opt/xcat' : '/usr'; } +use lib "$::XCATROOT/lib/perl"; +use Cwd; +use File::Basename; +use xCAT::Client; + +my $bname = basename($0); +my $cmdref; +if ($bname =~ /xcatclientnnr/) { $cmdref->{command}->[0]=shift @ARGV; } # xcatclientnnr was invoked directly and the 1st arg is cmd name that is used to locate the plugin +else { $cmdref->{command}->[0] = $bname; } # the cmd was sym linked to xcatclientnnr +$cmdref->{cwd}->[0] = cwd(); + +if (-p STDIN) { + my $data; + while ( ) { $data.=$_; } + $cmdref->{stdin}->[0]=$data; +} + + +my @tmpargv = @ARGV; +foreach (@tmpargv) +{ + if (($_ =~ /^(\d+)/ ) || ($_ =~ /^(\w+)/ )) + { + $cmdref->{noderange}->[0]=$_; + } +} + + + + + + + + +push (@{$cmdref->{arg}}, @ARGV); +foreach (keys %ENV) { + if (/^XCAT_/) { + $cmdref->{environment}->{$_} = $ENV{$_}; + } +} + +xCAT::Client::submit_request($cmdref,\&xCAT::Client::handle_response); +exit $xCAT::Client::EXITCODE; +