#!/usr/bin/env perl # IBM(c) 2007 EPL license http://www.eclipse.org/legal/epl-v10.htm #------------------------------------------------------------------------------ =head1 SINV =head2 Package Description This program module file supplies a set of utility programs for the sinv command. =cut #------------------------------------------------------------------------------ package xCAT::SINV; use strict; use xCAT::MsgUtils; use xCAT::NodeRange; use xCAT::Utils; use Fcntl qw(:flock); use Getopt::Long; my $tempfile; my $errored = 0; my @dshresult; my $templatepath; my $processflg; my @cmdresult; my @errresult; # # Subroutines # #------------------------------------------------------------------------------ =head3 usage Display usage message =cut #------------------------------------------------------------------------------ sub usage { my $callback = shift; ## usage message my $usagemsg1 = "The sinv command is designed to check the configuration of nodes in a cluster.\nRun man sinv for more information.\n\nInput parameters are as follows:\n"; my $usagemsg1a = "sinv -h \nsinv -v \nsinv \n"; my $usagemsg2 = " [-V verbose] [-v version] [-h usage]\n "; my $usagemsg3 = " [-o output file ] [-p