[Xymon] Querying xymond with perl socket

[Buchan Milne]

On Tuesday, 15 November 2011 17:56:40 Buchan Milne wrote:
> 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.

For me, the next step would be to look at writing a Catalyst::Model::Xymon 
using Xymon::Client.

But, then I would actually like to write Catalyst app that can be re-used 
(along with other ones that we have at various levels of completion), but 
CatalystX::Features doesn't seem to be doing what I want.

Regards,
Buchan