From 2ceb8cd16a199d174be6a0e55823c6292170c0e9 Mon Sep 17 00:00:00 2001
From: betateilchen <betateilchen@2b470e98-0d58-463d-a4d8-8e2adae1ed80>
Date: Sat, 16 Feb 2019 19:49:36 +0000
Subject: [PATCH] 57_CalDav.pm: protect privacy in Logfile

git-svn-id: https://svn.fhem.de/fhem/trunk@18613 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 fhem/FHEM/57_CalDav.pm | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/fhem/FHEM/57_CalDav.pm b/fhem/FHEM/57_CalDav.pm
index 46ff5e460..fe1abf98f 100644
--- a/fhem/FHEM/57_CalDav.pm
+++ b/fhem/FHEM/57_CalDav.pm
@@ -7,6 +7,7 @@ use warnings;
 use HttpUtils;
 use XML::LibXML;
 use Data::Dumper;
+use English qw(-no_match_vars); 
 
 sub CalDav_Initialize($$)
 {
@@ -54,8 +55,10 @@ sub CalDav_Process($$$) {
     next if ($u =~ /(inbox|outbox)\/$/);
     my @a = split(/\//,$u);
     my $t = "define $name$a[-1] Calendar ical url $url$a[-1]$options";
-    Log3 (3, "caldav", "Creating Calendar: $t");
     fhem  $t;  
+    $t =~ /https?:\/\/([^^\/]*)/;
+    substr($t, $LAST_MATCH_START[1], $LAST_MATCH_END[1] - $LAST_MATCH_START[1], "..."); 
+    Log3 ("caldav",3,"Creating Calendar: $t");
   }
 }