It's 118 lines, it does open a TCP socket, strictly for message sending, but it also does a little error handling and combo msging to make life easier on your bb server:
http://nerdvana.org/eric/files/bbmsg.pm
You could probably also send other commands (drop, rename, etc) through it, but I havent tried, so caveat emptor :)
-Eric
-----Original Message----- From: Charles Jones [mailto:jonescr at cisco.com] Sent: Wednesday, March 01, 2006 2:45 PM To: hobbit at hswn.dk Subject: Re: [hobbit] Slightly OT: External Perl Script
If it's short please post it, or a link to it. Isn't all that is needed is to make a TCP connection, or are you completely emulating all of the functions of the bb binary?
-Charles
Schwimmer, Eric E *HS wrote:
I've got a perl module that emulates the bb binary, if anybody is interested.
-Eric
-----Original Message----- From: FARRIOR, Andy[mailto:Andy.Farrior at victoriacollege.edu] Sent: Wednesday, March 01, 2006 11:23 AM To: hobbit at hswn.dk Subject: RE: [hobbit] Slightly OT: External Perl Script ARGH! replied to the wrong person.... must drink more coffee.... that'd do it to. I know his $msg had a bunch of quotes in it and was killing the shell. again, sorry about that. andy ________________________________ From: Sherman, Larry, GCM [mailto:Larry.Sherman at rbsgc.com] Sent: Wednesday, March 01, 2006 8:41 AM To: hobbit at hswn.dk Subject: RE: [hobbit] Slightly OT: External Perl Script How about $LINE = "status $hostname.ups $color $now - some Text if you want it $msg"; system("/path/to/bb $bbhost \"$LINE\" &") That's what I do -----Original Message----- From: Taylor, Robert [mailto:Robert.Taylor at HendrickAuto.com] Sent: Wednesday, March 01, 2006 9:24 AM To: hobbit at hswn.dk Subject: [hobbit] Slightly OT: External Perl Script All, This may be slightly off topic, but I figured that there is someone here that can help. Over the past weekend I wrote my first Perl script to replace a number of aging shell scripts that I had. What I have done is written Perl scripts to query Liebert UPS systems, Netbotz environment monitors and Juniper SSL VPN appliances.
Needless to say I am now a believer in how much faster Perl is than shell. My scripts dropped from about almost two minutes to run to 8 seconds. I can see all of the output when I print to screen so I know that it is polling everything okay. The problem that I am having is getting Perl to send this data to Hobbit. It is just a formatting issue as I can have it send plain text fine, but I am trying to send HTML to create nice looking status pages. I have looked at previous scripts, but they all use the BigBrother.pm module and I would like to get this working without that. I am by no means a programmer but this problem is going to bother me until I can get it working. Perhaps someone could provide just a bit of Perl guidance?
The portion of the code that I think it is getting hung up on is the colons in the HTML, but I am not sure. sub sendupdates { $msg = <<EOM; <html><body><center> <!-- Created with Version 3 of the Liebert Test Script--> <table border=\"0\" align=\"center\" id=\"table1\" style=\"height: 197px; width: 649px;\"> <tbody> <tr> <th align=\"center\"> <hr width=\"100%\"></th> </tr> < snip other HTML > </center> </body> </html> EOM my $now = localtime($^T) . "\n"; if ($debug eq "yes"){ print "------------------- Time Stamp --------------------\n"; print "Time Stamp: $now\n"; print "------------------- HTML Output -------------------\n"; print $msg; } system("$bb $bbhost \"status ${bbhostname}.ups $color $now ${msg}\""); } The error messages that our output to the screen give the following: bb: incorrect number of arguments Format: <IP-ADDR> <DATA> sh: line 5: width:: command not found sh: line 13: > then there are also a lot of the following messages: sh: line 14: > </div> <table id=table2 style=width:: No such file or directory sh: line 14: height:: command not found sh: line 17: > <tbody> <tr> <th width=267style=font-weight:: command not found sh: line 17: text-align:: command not found sh: line 18: >Hostname:</th> Thanks in advance for any help. Robert Taylor To unsubscribe from the hobbit list, send an e-mail to hobbit-unsubscribe at hswn.dk ________________________________
* This e-mail is intended only for the addresseenamed above. As this e-mail may contain confidential or privileged information, if you are not the named addressee, you are not authorized to retain, read, copy or disseminate this message or any part of it.
*To unsubscribe from the hobbit list, send an e-mail to hobbit-unsubscribe at hswn.dk