Skip to content
Snippets Groups Projects
Commit 47ecccca authored by Tomáš Plesník's avatar Tomáš Plesník
Browse files

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

parent 0d1d4deb
No related branches found
No related tags found
No related merge requests found
...@@ -53,7 +53,7 @@ sub trim ...@@ -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 sub sendMsg
{ {
...@@ -62,7 +62,8 @@ sub sendMsg ...@@ -62,7 +62,8 @@ sub sendMsg
my $syslog_facility = shift; my $syslog_facility = shift;
my $severity = shift; my $severity = shift;
my $syslog_msg = 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")) { if ($syslog_verbose == 1 && ($severity eq "err" || $severity eq "debug")) {
$syslog_msg .= "\nStack info: " . Carp::longmess(); $syslog_msg .= "\nStack info: " . Carp::longmess();
...@@ -73,6 +74,10 @@ sub sendMsg ...@@ -73,6 +74,10 @@ sub sendMsg
Sys::Syslog::syslog("$severity", "$syslog_msg"); Sys::Syslog::syslog("$severity", "$syslog_msg");
Sys::Syslog::closelog(); Sys::Syslog::closelog();
} }
if (defined $soap_msg) {
die SOAP::Fault->faultstring($soap_msg);
}
} # End of sendMsg } # End of sendMsg
1; 1;
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment