Dear Sir,
You are the man.
With a patched p1.pl, using the embedded Perl simulator
Enter file name: ap5 1 2 3
embedded perl plugin return code and output was: 0 & '$ARGV[1]: 1
$ARGV[2]: 2 $ARGV[3]: 3 '
Enter file name: ap5 'In the beginning' was the "word"
embedded perl plugin return code and output was: 0 & '$ARGV[1]: In the
beginning $ARGV[2]: was $ARGV[3]: the $ARGV[4]: word '
Here's a patch
pc09011> diff -u p1.pl p1.pl_PROD
--- p1.pl Wed Oct 23 19:57:30 2002
+++ p1.pl_PROD Wed Oct 23 19:56:09 2002
@@ -13,7 +13,6 @@
use strict;
use vars '%Cache';
use Symbol qw(delete_package);
- use Text::ParseWords qw(parse_line) ;
package OutputTrap;
@@ -128,7 +127,7 @@
tie (*STDOUT, 'OutputTrap', $tmpfname);
- my @a = &parse_line('\s+', 0, $ar) ;
+ my @a = split(/ /,$ar);
eval {$res = $package->hndlr(@a);};
I can barely wait to try it out in production.
Thank you very much,
Yours sincerely.
--
------------------------------------------------------------------------
Stanley Hopcroft
------------------------------------------------------------------------
'...No man is an island, entire of itself; every man is a piece of the
continent, a part of the main. If a clod be washed away by the sea,
Europe is the less, as well as if a promontory were, as well as if a
manor of thy friend's or of thine own were. Any man's death diminishes
me, because I am involved in mankind; and therefore never send to know
for whom the bell tolls; it tolls for thee...'
from Meditation 17, J Donne.
This post was automatically imported from historical nagios-devel mailing list archives
Original poster: Stanley.Hopcroft@IPAustralia.Gov.AU