[Xymon] Querying xymond with perl socket

[Buchan Milne]

On Tuesday, 15 November 2011 16:59:54 Olivier AUDRY wrote:
> hello
> 
> as I understand your script send information from the client to the server.
> It's not what I'm doing. I trying to get information from the server to
> create a customer portal "sexy web 2.0 in da cloud".

It pulls data out too:

[bgmilne at tiger lib]$ PERL5LIB=`pwd` perl bb.pl localhost 'hobbitdboard 
test=conn'
$VAR1 = [
          'bgmilne-pc|conn|red|ordAstLe|1321339551|1321372239|1321374039|0|0|
127.0.0.1|801550|red <!-- [flags:ordAstLe] --> Tue Nov 15 17:50:21 2011 conn 
NOT ok ',
          'localhost|conn|green|OrdAstLe|1321339551|1321372239|1321374039|0|0|
127.0.0.1|-1|green <!-- [flags:OrdAstLe] --> Tue Nov 15 17:50:21 2011 conn ok 
',
          'printer|conn|red|ordAstLe|1321339551|1321372239|1321374039|0|0|
127.0.0.1|348830|red <!-- [flags:ordAstLe] --> Tue Nov 15 17:50:21 2011 conn 
NOT ok ',
          'tiger.ranger.dnsalias.com|conn|green|OrdAstLe|1321339551|
1321372239|1321374039|0|0|127.0.0.1|-1|green <!-- [flags:OrdAstLe] --> Tue Nov 
15 17:50:21 2011 conn ok '
        ];

But, you don't have to just dump the data with Data::Dumper, the example bb.pl 
just does that to show how the data is returned by the Xymon::Client object.

Yes, I also want to biuld a sexy customer web 2.0 portal. Why should everyone 
have to build their own ones, when we could at least cooperate on the 
components, even if we don't cooperate on the actual portal.

Regards,
Buchan