From f6bfd21981a22f1ad649fcdb9c99554858bfa869 Mon Sep 17 00:00:00 2001 From: yinle Date: Mon, 21 Mar 2011 03:24:35 +0000 Subject: [PATCH] git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@9110 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd --- xCAT-client/bin/lsslp | 67 ------------------------------------------- 1 file changed, 67 deletions(-) delete mode 100644 xCAT-client/bin/lsslp diff --git a/xCAT-client/bin/lsslp b/xCAT-client/bin/lsslp deleted file mode 100644 index 1c8a216e7..000000000 --- a/xCAT-client/bin/lsslp +++ /dev/null @@ -1,67 +0,0 @@ -#!/usr/bin/perl -# IBM(c) 2007 EPL license http://www.eclipse.org/legal/epl-v10.html -BEGIN { $::XCATROOT = $ENV{'XCATROOT'} ? $ENV{'XCATROOT'} : -d '/opt/xcat' ? '/opt/xcat' : '/usr'; } -use lib "$::XCATROOT/lib/perl"; - -use Cwd; -use File::Basename; -use xCAT::MsgUtils; -use xCAT::Client; - -use Getopt::Std; - -my $bname = basename($0); -######################################### -# Main -# -# lsslp -# -# Build hash and submit request -# -# Handles: lsslp -# -# Note: The subroutines that implement these commands are in: -# /opt/xcat/lib/perl/xCAT_plugin/lsslp.pm -# -######################################### -my $cmdref; -# set the command name to pass to the plugin -if ($bname =~ /lsslp/) -{ - $cmdref->{command}->[0] = $bname; -} -else -{ - printf("Bad usage\n"); - exit 1; -} - - -$cmdref->{cwd}->[0] = cwd(); -# get info from files piped in as stdin -if (-p STDIN) { - my $data; - while ( ) { $data.=$_; } - $cmdref->{stdin}->[0]=$data; -} - -# add all the cmd line args to the hash - to pass to the plugin subroutine -foreach my $a (@ARGV) -{ - if ($a =~ /^\w+\-\w+$/) - { - push @{$cmdref->{noderange}}, $a; - } else - { - push @{$cmdref->{arg}}, $a; - } -} - -foreach (keys %ENV) { - if (/^XCAT_/) { - $cmdref->{environment}->{$_} = $ENV{$_}; - } -} - -xCAT::Client::submit_request($cmdref,\&xCAT::Client::handle_response); -exit $xCAT::Client::EXITCODE;