xCAT/xcat-core
2
0
Fork 0
mirror of https://github.com/xcat2/xcat-core.git synced 2025-05-22 03:32:04 +00:00
Code Issues Releases Wiki Activity

add trace function

Browse Source
This commit is contained in:
huweihua 2015-08-13 23:28:41 -04:00
parent 8cd8818d5b
commit 61d8537e90
1 changed files with 47 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -740,5 +740,52 @@ sub verbose_message
xCAT::MsgUtils->message("I", $data);
}
}
sub trace(){
shift;
my $verbose = shift;
my $level = shift;
my $logcontent = shift;
my $prefix = "";
if(($level eq "E")||($level eq "e")){$prefix="ERR";}
if(($level eq "W")||($level eq "w")){$prefix="WARNING";}
if(($level eq "I")||($level eq "i")){$prefix="INFO";}
if(($level eq "D")||($level eq "d")){$prefix="DEBUG";}
#print "prefix = $prefix\n";
my @tmp = xCAT::TableUtils->get_site_attribute("xcatdebugmode");
my $xcatdebugmode=$tmp[0];
#print ">>>>>>>xcatdebugmode = $xcatdebugmode >>>>>>>>>>>>\n";
if (($level eq "E")
||($level eq "e")
||($level eq "I")
||($level eq "i")
||($level eq "W")
||($level eq "w")){
my $msg = $prefix." ".$logcontent;
eval {
#print "msg = $msg\n";
openlog("xCAT", "nofatal,pid", "local4");
syslog("$prefix", $msg);
closelog();
};
}
if (($level eq "D")
||($level eq "d")){
if(($verbose == 1 )||($xcatdebugmode eq "1")){
my $msg = $prefix." ".$logcontent;
eval {
#print "msg = $msg\n";
openlog("xCAT", "nofatal,pid", "local4");
syslog("$prefix", $msg);
closelog();
}
}
}
}
1;