[Xymon] Querying xymond with perl socket

[pkc mls]

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