From 4944d26872576e4672295829e6fffc92b48efa81 Mon Sep 17 00:00:00 2001 From: nasseeder1 Date: Wed, 8 Aug 2018 20:51:50 +0000 Subject: [PATCH] 93_Log2Syslog: V4.6.0 git-svn-id: https://svn.fhem.de/fhem/trunk@17107 2b470e98-0d58-463d-a4d8-8e2adae1ed80 --- fhem/contrib/93_Log2Syslog.pm | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/fhem/contrib/93_Log2Syslog.pm b/fhem/contrib/93_Log2Syslog.pm index 6d47a6808..736f73571 100644 --- a/fhem/contrib/93_Log2Syslog.pm +++ b/fhem/contrib/93_Log2Syslog.pm @@ -56,7 +56,7 @@ # 2.3.0 18.08.2017 new parameter "ident" in DEF, sub setidex, Log2Syslog_charfilter # 2.2.0 17.08.2017 set BSD data length, set only acceptable characters (USASCII) in payload # commandref revised -# 2.1.0 17.08.2017 sub Log2Syslog_setsock created +# 2.1.0 17.08.2017 sub Log2Syslog_opensock created # 2.0.0 16.08.2017 create syslog without SYS::SYSLOG # 1.1.1 13.08.2017 registrate Log2Syslog_fhemlog to %loginform in case of sending fhem-log # attribute timeout, commandref revised @@ -802,7 +802,7 @@ sub Log2Syslog_Get($@) { my($sock,$cert,@certs); if ($opt =~ /certinfo/) { if(ReadingsVal($name,"SSL_Version","n.a.") ne "n.a.") { - $sock = Log2Syslog_setsock($hash); + $sock = Log2Syslog_opensock($hash); if(defined($sock)) { $cert = $sock->dump_peer_certificate(); Log2Syslog_closesock($hash,$sock); @@ -939,7 +939,7 @@ sub Log2Syslog_eventlog($$) { my $tn = $dev->{NTFY_TRIGGERTIME}; my $ct = $dev->{CHANGETIME}; - $sock = Log2Syslog_setsock($hash); + $sock = Log2Syslog_opensock($hash); if(defined($sock)) { for (my $i = 0; $i < $max; $i++) { @@ -1014,7 +1014,7 @@ sub Log2Syslog_fhemlog($$) { ($data,$pid) = Log2Syslog_setpayload($hash,$prival,$date,$time,$otp,"fhem"); return if(!$data); - $sock = Log2Syslog_setsock($hash); + $sock = Log2Syslog_opensock($hash); if (defined($sock)) { $ret = syswrite $sock, $data."\n" if($data); @@ -1063,7 +1063,7 @@ sub Log2Syslog_sendTestMsg($$) { return if(!$data); } - $sock = Log2Syslog_setsock($hash); + $sock = Log2Syslog_opensock($hash); if (defined($sock)) { $ret = syswrite $sock, $data."\n" if($data); @@ -1121,7 +1121,7 @@ return($txt); ############################################################################### # erstelle Socket ############################################################################### -sub Log2Syslog_setsock ($) { +sub Log2Syslog_opensock ($) { my ($hash) = @_; my $name = $hash->{NAME}; my $host = $hash->{PEERHOST};