Perl script problem [Solved]

[Le_Julo]

Hi there,

i'm having some weird problem with this little (and quite simple) script :

Code: Select all

#!/bin/perl

$host=$ARGV[0];
use Net::Ping;
$p = Net::Ping->new();
$p->port_number(80);
if ($p->ping($host))
{
print 1;
}
else
{
print 0;
}
$p->close();

I guess i don't have to explain this it's just a ping on the http port that give me a "1" when port's open and a "0" when it's not.

im testing it on a server that DOES have the http port open, but Cacti refuses to graph the "1" value.
here my tests/templates/graphs

[Le_Julo]

The strange thing is that it works well for my ssh test (same script "port 22" and same templates)


can't see where is comes from.

if anyone as an idea, i'm ready to learn !

(i'm sure you've already noticed it's my first post so please be nice with my bad english and stuff )

thank's

[streaker69]

Give me a few minutes to replicate your configuration and I'll get back to you.

[Le_Julo]

Well, first : thank's for answering me.

I think i found the source of the probleme but can't fix that :

[Le_Julo]

Found !

Should i now add some [Solved] tag to the title ?