my %options = (debug => 0,
help => 0,
man => 0,
- compprefix => '',
);
GetOptions(\%options,
- 'hostname=s',
- 'compprefix=s',
'debug|d+','help|h|?','man|m');
pod2usage() if $options{help};
$DEBUG = $options{debug};
my @USAGE_ERRORS;
-if (not defined $options{hostname}) {
- push @USAGE_ERRORS,"You must provide a hostname";
-}
if (not @ARGV >= 4) {
push @USAGE_ERRORS,