From 42e2ca3dc187859f105ca5e17e4e80dd0078855e Mon Sep 17 00:00:00 2001
From: rudolfkoenig <rudolfkoenig@2b470e98-0d58-463d-a4d8-8e2adae1ed80>
Date: Tue, 7 Apr 2015 08:24:34 +0000
Subject: [PATCH] 98_SVG.pm: fix SVGcache issue on Windows (Forum #11053)

git-svn-id: https://svn.fhem.de/fhem/trunk@8386 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 fhem/FHEM/98_SVG.pm | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

diff --git a/fhem/FHEM/98_SVG.pm b/fhem/FHEM/98_SVG.pm
index 470de93ab..d2a946ac3 100755
--- a/fhem/FHEM/98_SVG.pm
+++ b/fhem/FHEM/98_SVG.pm
@@ -1073,8 +1073,10 @@ SVG_doShowLog($$$$;$)
     (my $cachedate = TimeNow()) =~ s/ /_/g;
     my $SVGcache = (AttrVal($FW_wname, "SVGcache", undef) && $t lt $cachedate);
     my $cDir = "$FW_dir/SVGcache";
-    my $cName = "$cDir/$wl-$f-$t.svg";
-    if($SVGcache && open(CFH, $cName)) {
+    my $cFile = "$wl-$f-$t.svg";
+    $cFile =~ s/:/-/g; # For Windows / #11053
+    my $cPath = "$cDir/$cFile";
+    if($SVGcache && open(CFH, $cPath)) {
       FW_pO join("", <CFH>);
       close(CFH);
 
@@ -1087,7 +1089,7 @@ SVG_doShowLog($$$$;$)
       FW_pO $ret;
       if($SVGcache) {
         mkdir($cDir) if(! -d $cDir);
-        if(open(CFH, ">$cName")) {
+        if(open(CFH, ">$cPath")) {
           print CFH $ret;
           close(CFH);
         }