change on-for-timer time format
This commit is contained in:
parent
3d133d0e5b
commit
1dcde609c3
@ -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";
|
||||||
|
Loading…
Reference in New Issue
Block a user