bugfix seconds

This commit is contained in:
Marko Oldenburg 2020-04-12 21:49:05 +02:00
parent 639a009fff
commit c1c1342fcc

View File

@ -66,7 +66,7 @@ use warnings;
use POSIX; use POSIX;
use FHEM::Meta; use FHEM::Meta;
use Time::Local; use Time::Local;
our $VERSION = '1.6.6'; our $VERSION = '1.6.7';
# try to use JSON::MaybeXS wrapper # try to use JSON::MaybeXS wrapper
# for chance of better performance + open code # for chance of better performance + open code
@ -316,7 +316,7 @@ sub Set($@) {
my $duration = join( " ", @args ); my $duration = join( " ", @args );
$payload = '"name":"start_override_timer","parameters":{"duration":' $payload = '"name":"start_override_timer","parameters":{"duration":'
. $duration . '}'; . $duration * 60 . '}';
} }
elsif ( lc $cmd eq 'startpoint' ) { elsif ( lc $cmd eq 'startpoint' ) {
@ -368,7 +368,7 @@ sub Set($@) {
'"properties":{"name":"watering_timer_' '"properties":{"name":"watering_timer_'
. $valve_id . $valve_id
. '","value":{"state":"manual","duration":' . '","value":{"state":"manual","duration":'
. $duration . $duration * 60
. ',"valve_id":' . ',"valve_id":'
. $valve_id . '}}'; . $valve_id . '}}';
} }
@ -396,7 +396,7 @@ sub Set($@) {
my $list = ''; my $list = '';
$list .= $list .=
'parkUntilFurtherNotice:noArg parkUntilNextTimer:noArg startResumeSchedule:noArg startOverrideTimer:slider,0,60,1440 startpoint' 'parkUntilFurtherNotice:noArg parkUntilNextTimer:noArg startResumeSchedule:noArg startOverrideTimer:slider,0,1,60 startpoint'
if ( AttrVal( $name, 'model', 'unknown' ) eq 'mower' ); if ( AttrVal( $name, 'model', 'unknown' ) eq 'mower' );
$list .= 'manualOverride:slider,0,1,59 cancelOverride:noArg' $list .= 'manualOverride:slider,0,1,59 cancelOverride:noArg'