From 39d6a2e0d42dc619af5195b358c4d09a79917b82 Mon Sep 17 00:00:00 2001
From: jbjohnso <jbjohnso@8638fb3e-16cb-4fca-ae20-7b5d299a9bcd>
Date: Thu, 11 Apr 2013 18:01:37 +0000
Subject: [PATCH] start fixing wcons

git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@15954 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
---
 xCAT-client/bin/wcons | 8 ++++++++
 1 file changed, 8 insertions(+)

diff --git a/xCAT-client/bin/wcons b/xCAT-client/bin/wcons
index 7da1146f2..9dfbc50f5 100755
--- a/xCAT-client/bin/wcons
+++ b/xCAT-client/bin/wcons
@@ -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;