-----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.
*******************************************************************
*