pridana podpora pouzivani sendMsg jak pro skripty v bin, tak Warden serverem (Warden.pm)

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;