Fixes for windows

git-svn-id: https://fhem.svn.sourceforge.net/svnroot/fhem/trunk/fhem@422 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
rudolfkoenig
2009-08-12 07:25:20 +00:00
parent 3ae7196c7f
commit 62d95242f2

View File

@@ -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);