[Xymon] Querying xymond with perl socket

Le 15/11/2011 13:09, Olivier AUDRY a écrit :

hello Hi, I need to do a xymondboard directly with tcp. nc is working :

echo "hobbitdboard host=xxxxx test=ping" | nc xxx.xxx.xxx.xxx 1984

is working. But my perl code is not working :

#!/usr/bin/perl -w use strict; use IO::Socket;

$| = 1;

my $sock = new IO::Socket::INET ( PeerAddr => 'xxx.xxx.xxx.xxx', PeerPort => '1984', Proto => 'tcp', ) or warn "Cannot connect to xymon : $!\n";

print $sock "hobbitdboard host=xxxx test=ping\n";

my $answer =<$sock>; print "$answer\n";

close ($sock);

Someone can help me ? looks like you have to read the sock before you can print it; please find below an example in french with sockets http://www.dil.univ-mrs.fr/~chris/Perl/Sockets.htm thx

oau

bon courage