From 47eccccacadd1d637e30b3b331fbdd446ba6506c Mon Sep 17 00:00:00 2001
From: Tomas Plesnik <plesnik@ics.muni.cz>
Date: Tue, 29 Jan 2013 13:57:19 +0100
Subject: [PATCH] pridana podpora pouzivani sendMsg jak pro skripty v bin, tak
Warden serverem (Warden.pm)
---
src/warden-server/lib/WardenCommon.pm | 9 +++++++--
1 file changed, 7 insertions(+), 2 deletions(-)
diff --git a/src/warden-server/lib/WardenCommon.pm b/src/warden-server/lib/WardenCommon.pm
index 5cf1a6f..6d939ad 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;
--
GitLab