Customer is running Solaris with CiscoWorks LMS 3-2 bundle, I see someone else setup a Perl Script to forward syslog messages to another box, but they are getting a second message that’s blank we each forwarded message and want to know how to get rid of the blank messages. If you know Perl do you see anything wrong?
cworks$more syslog_forward.sh
#!/bin/sh
/usr/bin/date >>
/var/adm/CSCOpx/files/scripts/syslog/sysl_fwd.log
/usr/bin/echo "$2" >>
/var/adm/CSCOpx/files/scripts/syslog/sysl_fwd.log
/opt/CSCOpx/bin/perl
/var/adm/CSCOpx/files/scripts/syslog/syslog_forward.pl "$2"
cworks$
cworks$more syslog_forward.pl
#!/opt/CSCOpx/bin/perl
use strict;
use Sys::Syslog qw(:DEFAULT setlogsock);
my $msg = $ARGV[0];
setlogsock('inet');
$Sys::Syslog::host = '10.10.10.100';
syslog('info|local7', $msg);
closelog;
cworks$
