[hobbit] Slightly OT: External Perl Script

Wed Mar 1 20:44:31 CET 2006

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 addressee named 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
>  
>

-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.xymon.com/pipermail/xymon/attachments/20060301/26fcfda9/attachment.html>