From 7ffc16d5b486564eb0ee7981ead9f5d97d797fd2 Mon Sep 17 00:00:00 2001
From: rudolfkoenig <rudolfkoenig@2b470e98-0d58-463d-a4d8-8e2adae1ed80>
Date: Wed, 12 Aug 2009 07:25:20 +0000
Subject: [PATCH] Fixes for windows

git-svn-id: svn://svn.code.sf.net/p/fhem/code/trunk@422 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 fhem/webfrontend/pgm2/01_FHEMWEB.pm | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/fhem/webfrontend/pgm2/01_FHEMWEB.pm b/fhem/webfrontend/pgm2/01_FHEMWEB.pm
index a336e69c5..485fed74b 100755
--- a/fhem/webfrontend/pgm2/01_FHEMWEB.pm
+++ b/fhem/webfrontend/pgm2/01_FHEMWEB.pm
@@ -835,6 +835,7 @@ FW_readgplotfile($$$)
   my (@filelog, @data, $plot);
   open(FH, $gplot_pgm) || return (FW_fatal("$gplot_pgm: $!"), undef);
   while(my $l = <FH>) {
+    $l =~ s/\r//g;
     if($l =~ m/^#FileLog (.*)$/) {
       push(@filelog, $1);
     } elsif($l =~ "^plot" || $plot) {
@@ -888,6 +889,9 @@ FW_substcfg($$$$$$)
     }
   }
 
+  $plot =~ s/\r//g;             # For our windows friends...
+  $gplot_script =~ s/\r//g;
+
   if($splitret == 1) {
     my @ret = split("\n", $gplot_script); 
     return (\@ret, $plot);