Modified the script as per your requirement (mail in any case).
There was an error in the previous version of the script that I corrected: oraenv wasn't sourced. You may need to adjust the path to oraenv.
Please post the output of bash -xv <script_name> so I can verify the correct execution.
Hello;
I'm trying to write a script to capture any hardware error from logs/syslog on my SUSE 10 servers so i can be notified if we have any hardware issues such a bad fan or battery, etc..
Thanks in advance for any help (2 Replies)
I'm Using this script to find the time of a file. I'm very much new to PERL
and found this script posted by some one on this forum.
It runs perfectly fine, just that it gives me following errors with the
accurate output as well. I jus want the output to be stored in another file
so that i can... (0 Replies)
Hi - I am trying to grep all "ORA" errors in a log files.I have to grep all ORA errors except one error for example ORA-01653.How can exclude that error in "grep" command?
In following "grep" command I want to exclude "ORA-01653" error
grep -i ORA alert.log >>/tmp/ora_errors.txt
... (7 Replies)
Hi,
I have a bash script which calls a few "make". I would like to know whether the makefile failed with any errors. How do I do that in the script?
Thanks,
S (2 Replies)
I have a shell script which select total count from a table and use its value in a if condition like below
connect_string="username/password@tnsname"
tot=`sqlplus -s $connect_string << EOF
set echo off
set feedback off
set head off
select count(*) from test_table;
EOF
`
if
then
echo... (2 Replies)
Hi Guys,
I wanted to create an Unix Shell Script that should fetch a particular string from a text file on a particular date.
We all know Oracle generates alert logs for each and every day for every actions in the database.
I have an alert log file now where it contains for about a months... (4 Replies)
I want to check for "errors" or "ORA-" in Y.if there is an error then exit
Y=`sqlplus -s user/passwd<< EOF
exec test_Proc;
exit;
EOF`
if ; then
exit 1
fi
but this doesnt work (6 Replies)
Discussion started by: haadiya
6 Replies
LEARN ABOUT DEBIAN
log::handler::output::sendmail
Log::Handler::Output::Sendmail(3pm) User Contributed Perl Documentation Log::Handler::Output::Sendmail(3pm)NAME
Log::Handler::Output::Sendmail - Log messages with sendmail.
SYNOPSIS
use Log::Handler::Output::Sendmail;
my $email = Log::Handler::Output::Sendmail->new(
from => 'bar@foo.example',
to => 'foo@bar.example',
subject => 'your subject',
);
$email->log(message => $message);
DESCRIPTION
With this output module it's possible to log messages via "sendmail".
METHODS
new()
Call "new()" to create a new Log::Handler::Output::Sendmail object.
The following options are possible:
from
The sender address (From).
to The receipient address (To).
cc Carbon Copy (Cc).
bcc Blind Carbon Copy (Bcc)
subject
The subject of the mail.
sender
This option is identical with "sendmail -f".
header
With this options it's possible to set your own header.
my $email = Log::Handler::Output::Sendmail->new(
from => 'bar@foo.example',
to => 'foo@bar.example',
header => 'Content-Type: text/plain; charset= UTF-8',
);
Or
my $email = Log::Handler::Output::Sendmail->new(
header => {
From => 'bar@foo.example',
To => 'foo@bar.example',
Subject => 'my subject',
'Content-Type' => text/plain; charset= UTF-8',
}
);
Or
my $email = Log::Handler::Output::Sendmail->new(
header => [
'From: bar@foo.example',
'To: foo@bar.example',
'Subject: my subject',
'Content-Type: text/plain; charset= UTF-8',
]
);
sendmail
The default is set to "/usr/sbin/sendmail".
params
Parameters for "sendmail".
The default is set to "-t".
maxsize
Set the maximum size of the buffer in bytes.
All messages will be buffered and if "maxsize" is exceeded the buffer is flushed and the messages will be send as email.
The default is set to 1048576 bytes.
Set 0 if you want no buffering and send a mail for each log message.
debug
Set 1 if you want to enable debugging.
The messages can be fetched with $SIG{__WARN__}.
log()
Call "log()" if you want to log a message as email.
$email->log(message => "this message will be mailed");
If you pass the level then its placed into the subject:
$email->log(message => "foo", level => "INFO");
$email->log(message => "bar", level => "ERROR");
$email->log(message => "baz", level => "DEBUG");
The lowest level is used:
Subject: ERROR ...
You can pass the level with "Log::Handler" by setting
message_pattern => '%L'
flush()
Call "flush()" if you want to flush the buffered messages.
validate()
Validate a configuration.
reload()
Reload with a new configuration.
errstr()
This function returns the last error message.
DESTROY
"DESTROY" is defined and called "flush()".
PREREQUISITES
Carp
Params::Validate
EXPORTS
No exports.
REPORT BUGS
Please report all bugs to <jschulz.cpan(at)bloonix.de>.
If you send me a mail then add Log::Handler into the subject.
AUTHOR
Jonny Schulz <jschulz.cpan(at)bloonix.de>.
COPYRIGHT
Copyright (C) 2007-2009 by Jonny Schulz. All rights reserved.
This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.
perl v5.14.2 2012-11-21 Log::Handler::Output::Sendmail(3pm)