support -i for pping and ppping

git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/branches/2.8@15381 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
This commit is contained in:
immarvin 2013-03-05 05:29:49 +00:00
parent b1b5e12fa4
commit fed0c20efd
2 changed files with 5 additions and 2 deletions

View File

@ -28,12 +28,15 @@ my $USAGE="Usage: pping [-i|--interface interfaces] noderange
pping -v|--version\n";
my $interface;
# Parse the options
require Getopt::Long;
Getopt::Long::Configure ("bundling");
if(!GetOptions(
'f|use_fping' => \$::USE_FPING,
'h|help' => \$::HELP,
'v|version' => \$::VERSION,
'X|noexpand' => \$::NOEXPAND,
'interface=s' => \$interface))
'i|interface=s' => \$interface))
{
print "$USAGE";
exit 1;

View File

@ -45,7 +45,7 @@ if(!GetOptions(
'V|verbose' => \$::VERBOSE,
'H|hierarchical' => \$::HIERARCHY,
'q|quiet' => \$::QUIET,
'interface=s' => \$interface))
'i|interface=s' => \$interface))
{
print "$USAGE";
exit 1;