A.P. Lawrence

Comments
WordsoftheDaylogger :
And of course you can use PERL to log events to your syslog, with Sys::Syslog - which can be done like this:

-----BEGIN script
#!/usr/bin/perl -w
# Script to log HOT to /var/log/messages if the temp
# id higher than the varibale set below in $temp
#
# Requires: Device-Serial per module.
# Requires: Sys::Syslog

use Device::SerialPort 0.05;
use Sys::Syslog qw(:DEFAULT setlogsock);
use strict;

my $Temptrax = "/dev/ttyE4";
my $pass;
my $return;
my $new;
my $HOT;
my $time;
my $bldg;
my $room;


$time = localtime;


################################
# BEGIN Variable Configuration #
################################

# $temp is the max or min temp before we start YELLING!
my $temp = "76";

# $bldg is the building where the Temptrax is located
$bldg = "164 Fredette St.";

# $room is the Room in which the Temptrax is located
$room = "Computer Room";

##############################
# END Variable Configuration #
##############################

# Constructor & Basic Values

my $ob = Device::SerialPort->new ($Temptrax) || die "Can't open $Temptrax:$!";

$ob->baudrate (9600) || die "fail setting baudrate";
$ob->parity ("none") || die "fail setting parity";
$ob->databits (8) || die "fail setting databits";
$ob->stopbits (1) || die "fail setting stopbits";
$ob->handshake ("none") || die "fail setting handshake";
$ob->dtr_active (1) || die "fail setting dtr_active";

$ob->write_settings || die "no settings";

sleep 1;

#send a dummy character to the TempTrax device to "wake it up"
#The temperature will be returned

$pass = $ob->write("a") or die ("Could not write to Temptrax: $!");

sleep 1;

if (($return = $ob->input) ne "") {
$ob->write($return);
$new = substr($return, -15) = "";
if ($return > $temp) {

# use perl syslog facility
my $count = 0;
my $host = "localhost";
setlogsock("unix");
openlog(basename($0), "pid", "local3");
syslog("warning", "COMPUTER ROOM: ** HOT **: $return");
closelog();

}
}
---------END script

I use that program from cron to query a temperature probe that is located in our computer room. I then use swatch to look for the word HOT and page me. The temperature probe hardware can be found here: http://www.temptrax.com I use the RS-232 version.

- Bruce Garlock

---------------------

Aso, don't forget that most UNIX systems listen on UDP port 514 and write whatever shows up there into syslog. I often use this feature to monitor HP JetDirect print servers when something is acting up.

--BigDumbDinosaur



Add your comments