change on-for-timer time format

This commit is contained in:
Marko Oldenburg 2019-03-26 19:03:07 +01:00
parent 3d133d0e5b
commit 1dcde609c3

View File

@ -260,7 +260,7 @@ sub Set($@) {
} }
elsif ( lc $cmd eq 'on' or lc $cmd eq 'off' or lc $cmd eq 'on-for-timer' ) { elsif ( lc $cmd eq 'on' or lc $cmd eq 'off' or lc $cmd eq 'on-for-timer' ) {
my $val = ( defined($args[0]) ? join( " ", @args ) : lc $cmd ); my $val = ( defined($args[0]) ? join(" ", @args)*60 : lc $cmd );
$payload = $payload =
'"properties":{"value":"' . $val . '"}'; '"properties":{"value":"' . $val . '"}';
} }
@ -316,7 +316,7 @@ sub Set($@) {
if ( AttrVal( $name, 'model', 'unknown' ) eq 'ic24' ); if ( AttrVal( $name, 'model', 'unknown' ) eq 'ic24' );
$list .= 'refresh:temperature,light,humidity' $list .= 'refresh:temperature,light,humidity'
if ( AttrVal( $name, 'model', 'unknown' ) eq 'sensor' ); if ( AttrVal( $name, 'model', 'unknown' ) eq 'sensor' );
$list .= 'on:noArg off:noArg on-for-timer:slider,0,1,3600' $list .= 'on:noArg off:noArg on-for-timer:slider,0,1,60'
if ( AttrVal( $name, 'model', 'unknown' ) eq 'power' ); if ( AttrVal( $name, 'model', 'unknown' ) eq 'power' );
return "Unknown argument $cmd, choose one of $list"; return "Unknown argument $cmd, choose one of $list";