FHEM/fhem-mirror
2
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-04-20 19:36:02 +00:00
Code Issues Releases Wiki Activity

98_SVG.pm: fix gnuplot-scroll and gnuplot-scroll-svg

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@16656 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
rudolfkoenig 2018-04-24 21:12:43 +00:00
parent ba206c4990
commit cfe1ee51bd
1 changed files with 10 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
fhem/FHEM/98_SVG.pm
View File

@ -70,7 +70,7 @@ SVG_Initialize($)
nrAxis
plotWeekStartDay:0,1,2,3,4,5,6
plotfunction
plotmode
plotmode:gnuplot-scroll,gnuplot-scroll-svg,SVG
plotsize
plotReplace:textField-long
startDate
@ -1163,21 +1163,23 @@ SVG_doShowLog($$$$;$)
my $gplot_script = SVG_substcfg(0, $wl, $cfg, $plot, $file, $tmpfile);
$gplot_script =~ s/<TMPFILE>/$tmpfile/g;
$plot =~ s/ls \w+//g;
open(FH, "|gnuplot >> $errfile 2>&1");# feed it to gnuplot
print FH $gplot_script;
close(FH);
unlink($tmpfile);
my $ext;
if($pm eq "gnuplot-scroll") {
$FW_RETTYPE = "image/png";
$ext = "png";
}
else {
$gplot_script =~ s/set terminal png transparent/set terminal svg/;
$gplot_script =~ s/set terminal (.*) crop/set terminal $1/;
$gplot_script =~ s/set output (.*).png'/set output $1.svg'/;
$FW_RETTYPE = "image/svg+xml";
$ext = "svg";
}
$gplot_script =~ s/ls \w+//g;
open(FH, "|gnuplot >> $errfile 2>&1");# feed it to gnuplot
print FH $gplot_script;
close(FH);
unlink($tmpfile);
open(FH, "$tmpfile.$ext"); # read in the result and send it
binmode (FH); # necessary for Windows