xcat-core/perl-xCAT-2.0/xCAT/MsgUtils.pm

267 lines
8.0 KiB
Perl
Raw Normal View History

#!/usr/bin/perl
# IBM(c) 2007 EPL license http://www.eclipse.org/legal/epl-v10.html
package xCAT::MsgUtils;
use strict;
use Sys::Syslog;
use locale;
use Socket;
use File::Path;
$::NOK = -1;
$::OK = 0;
#--------------------------------------------------------------------------------
=head1 xCAT::MsgUtils
=head2 Package Description
This program module file, supports the xcat messaging and logging
=cut
#--------------------------------------------------------------------------------
=head2 Package Dependancies
use strict;
use Fcntl qw(:flock);
use File::Basename;
use File::Find;
use File::Path; # Provides mkpath()
=cut
#--------------------------------------------------------------------------------
=head1 Subroutines
=cut
=head3 message
Display a msg STDOUT,STDERR or return to callback function.
If callback routine is provide, the message will be returned to the callback
routine.
If callback routime is not provide, the message is displayed to STDOUT or
STDERR.
Arguments:
The arguments of the message() function are:
If address of the callback is provided,
then the message will be returned either
as data to the client's callback routine or to the
xcat daemon or Client.pm ( bypass) for display/logging.
See flags below.
If address of the callback is not provide, then
the message will be displayed to STDERR or STDOUT or
added to SYSLOG. See flags below.
For compatibility with existing code, the message routine will
move the data into the appropriate callback structure, if required.
See example below, if the input to the message routine
has the "data" structure filled in for an error message, then
the message routine will move the $rsp->{data}->[0] to
$rsp->{error}->[0]. This will allow xcatd/Client.pm will process
all but "data" messages.
The current client code should not have to change.
my %rsp;
$rsp->{data}->[0] = "Job did not run. \n";
xCAT::MsgUtils->message("E", $rsp, $::CALLBACK);
Here the message routine will move $rsp->{data}->[0] to
$rsp->{error}->[0], to match the "E"message code.
Note the message
routine will only check for the data to either exist in
$rsp->{error}->[0] already, or to exist in $rsp->{data}->[0].
Here's the meaning of the 1st character, if a callback specified:
D - DATA this is returned to the client callback routine
E - error this is displayed/logged by daemon/Client.pm.
I - informational this is displayed/logged by daemon/Client.pm.
S - Message will be logged to syslog ( severe error)
syslog facily (local4) and priority (err) will be used.
See /etc/syslog.conf file for the destination of the
messages.
Note S can be combined with other flags for example
SE logs message to syslog to also display the
message by daemon/ Client.pm.
V - verbose. This flag is not valid, the calling routine
should check for verbose mode before calling the message
routine and only use the I flag for the message.
If V flag is detected, it will be changed to an I flag.
W - warning this is displayed/logged by daemon/Client.pm.
Here's the meaning of the 1st character, if no callback specified:
D - DATA goes to STDOUT
E - error. This type of message will be sent to STDERR.
I - informational goes to STDOUT
S - Message will be logged to syslog ( severe error)
Note S can be combined with other flags for example
SE logs message to syslog and is sent to STDERR.
V - verbose. This flag is not valid, the calling routine
should check for verbose mode before calling the message
routine and only use the I flag for the message.
If V flag is detected, it will be changed to an I flag.
W - warning goes to STDOUT.
Returns:
none
Error:
none
Example:
Use with no callback
xCAT::MsgUtils->message('E', "Operation $value1 failed\n");
xCAT::MsgUtils->message('S', "Host $host not responding\n");
xCAT::MsgUtils->message('SI', "Host $host not responding\n");
Use with callback
my %rsp;
$rsp->{data}->[0] = "Job did not run. \n";
xCAT::MsgUtils->message("D", $rsp, $::CALLBACK);
my %rsp;
$rsp->{error}->[0] = "No hosts in node list\n";
xCAT::MsgUtils->message("E", $rsp, $::CALLBACK);
my %rsp;
$rsp->{info}->[0] = "No hosts in node list\n";
xCAT::MsgUtils->message("I", $rsp, $::CALLBACK);
my %rsp;
$rsp->{warning}->[0] = "No hosts in node list\n";
xCAT::MsgUtils->message("W", $rsp, $::CALLBACK);
my %rsp;
$rsp->{error}->[0] = "Host not responding\n";
xCAT::MsgUtils->message("S", $rsp, $::CALLBACK);
my %rsp;
$rsp->{error}->[0] = "Host not responding\n";
xCAT::MsgUtils->message("SE", $rsp, $::CALLBACK);
my %rsp;
$rsp->{info}->[0] = "Host not responding\n";
xCAT::MsgUtils->message("SI", $rsp, $::CALLBACK);
Comments:
Returns:
none
=cut
#--------------------------------------------------------------------------------
sub message
{
# Process the arguments
shift; # get rid of the class name
my $sev = shift;
my $rsp = shift;
my $call_back = shift; # optional
my $exitcode = shift; # optional
# should be I, D, E, S, W
# or S(I, D, E, S, W)
my $stdouterrf = \*STDOUT;
my $stdouterrd = '';
if ($sev =~ /[E]/)
{
$stdouterrf = \*STDERR;
$stdouterrd = '1>&2';
}
if ($sev eq 'V')
{ # verbose should have been handled in calling routine
$sev = "I";
}
if ($sev eq 'SV')
{ # verbose should have been handled in calling routine
$sev = "SI";
}
# Check that correct structure is filled in. If the data is not in the
# structure corresponding to the $sev, then look for it in "data"
#TODO: this is not really right for a couple reasons: 1) all the fields in the
# response structure are arrays, so can handle multiple lines of text. We
# should not just be check the 0th element. 2) a cmd may have both error
# text and data text. 3) this message() function should just take in a plain
# string and put it in the correct place based on the severity.
if ($call_back) { # callback routine provided
my $sevkey;
if ($sev =~ /I/) { $sevkey = 'info'; }
if ($sev =~ /W/) { $sevkey = 'warning'; }
if ($sev =~ /E/) {
$sevkey = 'error';
if (!defined($exitcode)) { $exitcode = 1; } # default to something non-zero
}
if (defined($sevkey)) {
if (!defined ($rsp->{$sevkey}) || !scalar(@{$rsp->{$sevkey}})) { # did not pass the text in in the severity-specific field
if (defined ($rsp->{data}) && scalar(@{$rsp->{data}})) {
push @{$rsp->{$sevkey}}, shift @{$rsp->{data}}; # assume they passed in the text in the data field instead
}
}
}
if (!defined ($rsp->{$sevkey}) || !scalar(@{$rsp->{$sevkey}})) { return; } # if still nothing in the array, there is nothing to print out
if ($sev ne 'S') # if sev is anything but only-syslog, print the msg
{ # not just syslog
if ($exitcode) { $rsp->{errorcode}->[0] = $exitcode; }
$call_back->($rsp); # send message to daemon/Client.pm
shift @{$rsp->{$sevkey}}; # clear out the rsp structure in case they use it again
if ($exitcode) { shift @{$rsp->{errorcode}}; }
}
}
else # no callback provided
{
if ($sev ne 'S') # syslog only
{
print $stdouterrf $rsp; # print the message
}
}
if ($sev =~ /[S]/)
{
# need to syslog , the message
openlog("xCAT", '', 'local4');
syslog("err", $rsp);
closelog();
}
return 0;
}
1;