Xymon Mailing List Archive search

Querying xymond with perl socket

list Buchan Milne
Tue, 15 Nov 2011 18:00:01 +0200
Message-Id: <user-5dec36d2d0d1@xymon.invalid>

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