diff --git a/src/warden-server/lib/WardenCommon.pm b/src/warden-server/lib/WardenCommon.pm index 5cf1a6ffc0cd75b70f3bb98486f83019e0479abf..6d939ada08d681eb119d30798290bad74eb3b21b 100755 --- a/src/warden-server/lib/WardenCommon.pm +++ b/src/warden-server/lib/WardenCommon.pm @@ -53,7 +53,7 @@ sub trim #------------------------------------------------------------------------------- -# sendMsg - sent message to syslog (SYS::Syslog) +# sendMsg - sent message via syslog (SYS::Syslog) and to client (SOAP::Fault) #------------------------------------------------------------------------------- sub sendMsg { @@ -62,7 +62,8 @@ sub sendMsg my $syslog_facility = shift; my $severity = shift; my $syslog_msg = shift; - my $filename = File::Basename::basename($0); + my $soap_msg = shift; + my $filename = shift; if ($syslog_verbose == 1 && ($severity eq "err" || $severity eq "debug")) { $syslog_msg .= "\nStack info: " . Carp::longmess(); @@ -73,6 +74,10 @@ sub sendMsg Sys::Syslog::syslog("$severity", "$syslog_msg"); Sys::Syslog::closelog(); } + + if (defined $soap_msg) { + die SOAP::Fault->faultstring($soap_msg); + } } # End of sendMsg 1;