On Tuesday, 15 November 2011 14:09:30 Olivier AUDRY wrote:
hello
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);
Rather than everyone implement their own Hobbit/Xymon communication, wouldn't it be better to ship standard modules (whether with the Xymon distribution, or elsewhere).
I attach the module I worked on a while back, which one of my tests uses:
http://staff.telkomsa.net/~bgmilne/xymon/
Here is a simple script that demonstrates its use: http://staff.telkomsa.net/~bgmilne/xymon/bb.pl
It would be nice if various people working on perl modules could agree to a naming convention and feature set, and implement one set of interoperating modules ...
Regards, Buchan