arif/xcat-core
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

add support for Node structure in messaging

Browse Source 
git-svn-id: https://svn.code.sf.net/p/xcat/code/xcat-core/trunk@2703 8638fb3e-16cb-4fca-ae20-7b5d299a9bcd
This commit is contained in:
lissav 2009-02-05 18:56:50 +00:00
parent 4d10aaf6a8
commit 1ad6abf4e7
1 changed files with 19 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
perl-xCAT/xCAT/MsgUtils.pm
View File

@ -95,6 +95,7 @@ This program module file, supports the xcat messaging and logging
Here's the meaning of the 1st character, if a callback specified:
D - DATA this is returned to the client callback routine
N - Node 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)
@ -127,6 +128,7 @@ This program module file, supports the xcat messaging and logging
D - DATA goes to STDOUT
E - error. This type of message will be sent to STDERR.
I - informational goes to STDOUT
N - Node 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.
@ -157,6 +159,7 @@ This program module file, supports the xcat messaging and logging
Use with no callback
# Message to STDOUT
xCAT::MsgUtils->message('I', "Operation $value1 succeeded\n");
xCAT::MsgUtils->message('N', "Node:$node failed\n");
# Message to STDERR
xCAT::MsgUtils->message('E', "Operation $value1 failed\n");
# Message to Syslog
@ -168,36 +171,42 @@ This program module file, supports the xcat messaging and logging
Use with callback
# Message to callback
my %rsp;
my $rsp = {};
$rsp->{data}->[0] = "Job did not run. \n";
xCAT::MsgUtils->message("D", $rsp, $::CALLBACK);
my %rsp;
my $rsp = {};
$rsp->{error}->[0] = "No hosts in node list\n";
xCAT::MsgUtils->message("E", $rsp, $::CALLBACK);
my $rsp = {};
$rsp->{node}->[0]->{name}->[0] ="mynode";
$rsp->{node}->[0]->{data}->[0] ="mydata";
xCAT::MsgUtils->message("N", $rsp, $callback);
my %rsp;
my $rsp = {};
$rsp->{info}->[0] = "No hosts in node list\n";
xCAT::MsgUtils->message("I", $rsp, $::CALLBACK);
my %rsp;
my $rsp = {};
$rsp->{warning}->[0] = "No hosts in node list\n";
xCAT::MsgUtils->message("W", $rsp, $::CALLBACK);
my %rsp;
my $rsp = {};
$rsp->{error}->[0] = "Host not responding\n";
xCAT::MsgUtils->message("S", $rsp, $::CALLBACK);
# Message to Syslog and callback
my %rsp;
my $rsp = {};
$rsp->{error}->[0] = "Host not responding\n";
xCAT::MsgUtils->message("SE", $rsp, $::CALLBACK);
# Message to Syslog and callback
my %rsp;
my $rsp = {};
$rsp->{info}->[0] = "Host not responding\n";
xCAT::MsgUtils->message("SI", $rsp, $::CALLBACK);
@ -237,8 +246,8 @@ sub message
my $call_back = shift; # optional
my $exitcode = shift; # optional
# should be I, D, E, S, W , L
# or S(I, D, E, S, W, L)
# should be I, D, E, S, W , L,N
# or S(I, D, E, S, W, L,N)
my $stdouterrf = \*STDOUT;
my $stdouterrd = '';
@ -309,6 +318,7 @@ sub message
{ # callback routine provided
my $sevkey;
if ($sev =~ /D/) { $sevkey = 'data'; }
elsif ($sev =~ /N/) { $sevkey = 'node'; }
elsif ($sev =~ /I/) { $sevkey = 'info'; }
elsif ($sev =~ /W/) { $sevkey = 'warning'; }
elsif ($sev =~ /E/)