339 |
default: \"$defpayload\" |
default: \"$defpayload\" |
340 |
-v|--verbose be more verbose, more -v means more verbosity |
-v|--verbose be more verbose, more -v means more verbosity |
341 |
-V|--version print version |
-V|--version print version |
342 |
-h|--help show this helptext |
--help show this helptext |
343 |
|
-h show short usage information |
344 |
EOHELP |
EOHELP |
345 |
exit 0; |
exit 0; |
346 |
} |
} |
383 |
"v|verbose+" => \$verbose, |
"v|verbose+" => \$verbose, |
384 |
"help+" => \$help, |
"help+" => \$help, |
385 |
"h+" => \$shorthelp, |
"h+" => \$shorthelp, |
386 |
"V|version+" => \$version) or &usage and exit(1); |
"V|version+" => \$version, |
387 |
|
"H|host", |
388 |
|
"p|port" |
389 |
|
) or &usage and exit(1); |
390 |
|
|
391 |
$help and &usage and exit(0); |
$help and &usage and exit(0); |
392 |
$shorthelp and &shortusage and exit(0); |
$shorthelp and &shortusage and exit(0); |