From Robert.Taylor@HendrickAuto.com Wed Jun 24 08:14:13 2026 From: Robert.Taylor@HendrickAuto.com To: xymon@xymon.com Subject: RESOLVED - Slightly OT: External Perl Script Date: Wed, 01 Mar 2006 14:00:04 -0500 Message-ID: <58244622A4F3A04DBBF911ECBAF673A704218C09@hagsv0040.hendrickauto.local> MIME-Version: 1.0 Content-Type: multipart/mixed; boundary="===============8460469057102170796==" --===============8460469057102170796== Content-Type: text/plain; charset="utf-8" Content-Transfer-Encoding: 7bit All, WOW, thanks for the responses. In the end several of the solutions worked and it was indeed an issue with the double quotes. I just gained about 30% CPU usage by getting rid of the shell scripts with this Perl version. I couldn't have done it without your help. Robert Taylor -----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 = < < snip other 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: sh: line 5: width:: command not found sh: line 13: > then there are also a lot of the following messages: sh: line 14: >

Thanks in advance for any help. Robert Taylor To unsubscribe from the hobbit list, send an e-mail to hobbit-unsubscribe at hswn.dk --===============8460469057102170796==--

Hostname: