Jan van Zeggelaar

Works well after small fix

The perl script needed some small modifications because nagios runs perl with -w. As a result, nagios showed status UNKNOWN and the first of these warnings. The issues were: 1 - Sub print_help used before definition Solution: move definition to just before where it was called. 2 - Warning in parameter parser The code loops through the parameter list until there are no more paramters in a way that genereates a waring. Solution: add 'defined' to while condition, so: while(defined $ARGV[0] and $ARGV[0] =~/^-/) For the rest, works nicely. Not only for 3524, but also for 5324. Jan

Reviewed 15 years ago