Uncle Walter's Script Archive

Perl Script -- Modified e-mail sender for HP Operations for Unix with Header/Footer and Word Wrap and External Recipient List

#!/usr/bin/perl

# Perl script to send email alerts from HP OV events

# Invoked via notification option

# Version 2.8

# To use enter the following:

#perl <scriptname> <MessageID> <SourceNode> <SourceNodeType> <DateCreated>  <TimeCreated>

#<DateReceived> <TimeReceived> <Application> <MessageGroup> <Object> <Severity> <Operators>

#<MessageText> <Instructions> <CMA>

#Place a text file called mailList.txt in the same location as the script and put all the destination e-mail #addresses in a comma delimited from in it.

 

my $message_id = $ARGV[0];

my $source_node = $ARGV[1];

my $source_node_type = $ARGV[2];

my $date_created = $ARGV[3];

my $time_created  = $ARGV[4];

my $date_received = $ARGV[5];

my $time_received = $ARGV[6];

my $application = $ARGV[7];

my $message_group = $ARGV[8];

my $object = $ARGV[9];

my $severity = $ARGV[10];

my $operators = $ARGV[11];

my $message_text = $ARGV[12];

my $instruction = $ARGV[13];

my $cma = $ARGV[14];

my $supp_dup_msgs = $ARGV[15];

 

use Net::SMTP;

use strict;

use Text::Wrap;

 

# Wrap the message_text into something more palatable

my $wrap_text = wrap("\t", "", "$message_text\n");

 

# Configure the mail server IP/name here

my $MAILHOST = '192.168.0.0'; #Insert your SMTP server here

 

my @addresses = ();

 

open MAILLIST,"mailList.txt";

while(<MAILLIST>) {

                chomp;

                push @addresses,$_;

}

 

# Configure a name to appear in the 'From' field of the email msg here

my $FROM = '[email protected]';

 

my $msg = ("Header\n

\n

$source_node had a $severity error on $date_created at $time_created.\n

The Error message is:\n

\n

$wrap_text\n

\n

Footer");

 

for $address (@addresses) {

 

# connect to the smtp server

my $smtp = Net::SMTP->new($MAILHOST, Timeout => 10) or die "Unable to connect to mail host :

 

$MAILHOST  - $!\n";

 

$smtp->mail($address);

$smtp->to($address);

$smtp->data();

$smtp->datasend("From: $FROM\n");

$smtp->datasend("To: $address\n");

$smtp->datasend("Subject: $source_node has a $severity error.\n");

$smtp->datasend("\n$msg \n\n");

$smtp->datasend;

$smtp->dataend();

$smtp->quit;

 

open(MYOUTFILE, ">>/var/opt/OV/maillog.log");

print MYOUTFILE "Timestamp: " $source_node “ “ $date_created “ “ $time_created “ “ $message_text “\n”;

close(MYOUTFILE);

 

}

 

Perl Script -- Modified e-mail sender for HP Operations for Unix with Header/Footer and Word Wrap

#!/usr/bin/perl
# Perl script to send email alerts from HP OV events
# Invoked via notification option
# Version 2.8

my $message_id = $ARGV[0];
my $source_node = $ARGV[1];
my $source_node_type = $ARGV[2];
my $date_created = $ARGV[3];
my $time_created  = $ARGV[4];
my $date_received = $ARGV[5];
my $time_received = $ARGV[6];
my $application = $ARGV[7];
my $message_group = $ARGV[8];
my $object = $ARGV[9];
my $severity = $ARGV[10];
my $operators = $ARGV[11];
my $message_text = $ARGV[12];
my $instruction = $ARGV[13];
my $cma = $ARGV[14];
my $supp_dup_msgs = $ARGV[15];

use Net::SMTP;
use strict;
use Text::Wrap;

# Wrap the message_text into something more palatable
my $wrap_text = wrap("\t", "", "$message_text\n");

# Configure the mail server IP/name here
my $MAILHOST = '192.168.0.0'; #Insert your SMTP server here

# Configure the email address of the receiver here.
my $address = '[email protected]';

# Configure a name to appear in the 'From' field of the email msg here
my $FROM = '[email protected]';

my $msg = ("Header\n
\n
$source_node had a $severity error on $date_created at $time_created.\n
The Error message is:\n
\n
$wrap_text\n
\n
Footer");

# connect to the smtp server
my $smtp = Net::SMTP->new($MAILHOST, Timeout => 10) or die "Unable to connect to mail host :

$MAILHOST  - $!\n";

$smtp->mail($address);
$smtp->to($address);
$smtp->data();
$smtp->datasend("From: $FROM\n");
$smtp->datasend("To: $address\n");
$smtp->datasend("Subject: $source_node has a $severity error.\n");
$smtp->datasend("\n$msg \n\n");
$smtp->datasend;
$smtp->dataend();
$smtp->quit;

open(MYOUTFILE, ">>/var/opt/OV/maillog.log");
print MYOUTFILE "Timestamp: " $source_node “ “ $date_created “ “ $time_created “ “ $message_text “\n”;
close(MYOUTFILE);

Perl Script – Check Number of Files in a directory - Openview

#PARAMETERS START

#PARAMETER directory STRING DEFAULT "c:\\temp" VALUE "/sample" SESSION "Directory" CAPTION "Directory to monitor"

my $directory;

$directory = "/sample";

$Session->Value('Directory', $directory);

 

#PARAMETER threshold INT DEFAULT 100 VALUE 100 SESSION "Threshold" CAPTION "Threshold, Number of Files"

my $threshold;

$threshold = 100;

$Session->Value('Threshold', $threshold);

 

#PARAMETERS END

 

use File::Find;          

my $size = 0;            

find(sub { $size += "1" if -f $_ }, $directory);

 

$Session->Value('CurrentSize', $size);

 

 

 

if ($size > $threshold)

{

                $Rule->Status(1);

}

else

{

                $Rule->Status(0);

}

 

Perl Script – Check Windows Time Against Local Gateway NTP

#

# Built to determine time difference between node and node's gateway

#

 

@array = `ipconfig /all`;

 

foreach $line ( @array )

{

            chomp $line;

            if ( $line =~ "IP Address" )

            {          

                        $ipLine = $line;

                        if ( $ipLine =~ " 10." )

                        {

                                    @ipLine = split(": ", $ipLine);

                                    $ip = @ipLine[1];

 

                                    $ndx = rindex($ip, ".") + 1;

 

                                    $gateway = substr $ip, 0, $ndx;

                                    $gateway = $gateway . "1";                                                                   

                        }

            }

}

 

@result = `w32tm /stripchart /computer:$gateway /dataonly /samples:1`;

 

foreach $timeLine ( @result )

{

            chomp $timeLine;

            if ( $timeLine =~ ", " )

            {

                        @arrTime = split(", ", $timeLine);

                        if ( @arrTime[1] =~ "error: " )

                        {

                                    print "@arrTime[1]\n";

                                    $timeDiff = "ERR";                               

                        }

                        else

                        {

                                    $timeDiff = @arrTime[1] / 60;

                                    $timeDiff = round($timeDiff);

                        }

            }

}

 

if ( $timeDiff eq "ERR" )

{

            `opcmsg a=TimeCheck o=TimeCheck msg_t="Time check on node can not communicate with time server." s=critical`;

}

elsif ( $timeDiff >= 2 || $timeDiff <= -2 )

{

            `opcmsg a=TimeCheck o=TimeCheck msg_t="Time is off by more than 2 minutes ( approx. difference: $timeDiff minutes ) on node" s=critical`;

}

 

 

sub round

{

            my $number = $_[0];

            return int($number + .5 * ( $number <=> 0));

}

 

Perl – Count number or processes running in Unix and add to CODA

#!/bin/sh


PROGNAME=`basename ${0}`

Process=`echo $1` # the process to look for

MonitorName=$2 # ITO monitored object name

tmpNumProcs=`ps -ef | grep "${Process}" | \

 grep -v ${PROGNAME} | grep -v grep | wc -l`

NumProcs=`echo ${tmpNumProcs}` 

opcmon ${MonitorName}=${NumProcs}

exit $?