arif/xcat-core
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

start fixing wcons

Browse Source 
git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/branches/2.8@15949 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
This commit is contained in:
jbjohnso 2013-04-11 14:17:09 +00:00
parent f4b76731c4
commit 0fc0fbfcff
1 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
xCAT-client/bin/wcons
View File

@ -2,6 +2,9 @@
#A placeholder wcons, a fuller port from 1.3 is needed
use Getopt::Long qw(:config getopt_compat pass_through);
use File::Basename;
BEGIN { $::XCATROOT = $ENV{'XCATROOT'} ? $ENV{'XCATROOT'} : -d '/opt/xcat' ? '/opt/xcat' : '/usr'; }
use lib "$::XCATROOT/lib/perl";
use xCAT::Client;
#use Data::Dumper;
use strict;
unless ($ENV{DISPLAY}) {
@ -18,6 +21,11 @@ GetOptions(
'tile|t:i' => \$tilefact,
#'font|f=s' => \$font
);
my $noderange = $ARGV[$#ARGV];
my %noderangeref = (command => 'noderange', noderange => $noderange);
my %conserverref = (command => 'nodels', noderange => $noderange, arg => ['nodehm.conserver']);
unless ($ARGV[$#ARGV]) {
print "Usage: wcons <options> <noderange>\n";
exit 1;