From 602c3b1549e8dc72fb370a9373fee7f643eedbd4 Mon Sep 17 00:00:00 2001 From: rudolfkoenig <> Date: Fri, 24 Oct 2014 08:56:35 +0000 Subject: [PATCH] 01_FHEMWEB.pm: optional floating point slider (Forum #27051) git-svn-id: https://svn.fhem.de/fhem/trunk@6804 2b470e98-0d58-463d-a4d8-8e2adae1ed80 --- fhem/FHEM/01_FHEMWEB.pm | 18 +++++++++++------- fhem/www/pgm2/fhemweb_slider.js | 15 ++++++++++----- 2 files changed, 21 insertions(+), 12 deletions(-) diff --git a/fhem/FHEM/01_FHEMWEB.pm b/fhem/FHEM/01_FHEMWEB.pm index 7860c0d02..99986d221 100755 --- a/fhem/FHEM/01_FHEMWEB.pm +++ b/fhem/FHEM/01_FHEMWEB.pm @@ -2439,9 +2439,10 @@ FW_sliderFn($$$$$) { my ($FW_wname, $d, $FW_room, $cmd, $values) = @_; - return undef if($values !~ m/^slider,(.*),(.*),(.*)$/); + return undef if($values !~ m/^slider,([\d.]*),([\d.]*),([\d.]*)(,1)?$/); return "" if($cmd =~ m/ /); # webCmd pct 30 should generate a link - my ($min,$stp, $max) = ($1, $2, $3); + my ($min,$stp, $max, $flt) = ($1, $2, $3, $4); + $flt = ($flt ? 1 : 0); my $srf = $FW_room ? "&room=$FW_room" : ""; my $cv = ReadingsVal($d, $cmd, Value($d)); my $id = ($cmd eq "state") ? "" : "-$cmd"; @@ -2450,7 +2451,7 @@ FW_sliderFn($$$$$) $cv = 0 if($cv !~ m/\d/); return "