Debugging only
This commit is contained in:
parent
cec6f663f1
commit
0fc3d1dfba
@ -62,7 +62,6 @@ use strict;
|
|||||||
use warnings;
|
use warnings;
|
||||||
use POSIX;
|
use POSIX;
|
||||||
use FHEM::Meta;
|
use FHEM::Meta;
|
||||||
use Data::Dumper;
|
|
||||||
|
|
||||||
use HttpUtils;
|
use HttpUtils;
|
||||||
|
|
||||||
|
@ -63,6 +63,8 @@ use POSIX;
|
|||||||
use FHEM::Meta;
|
use FHEM::Meta;
|
||||||
use Time::Local;
|
use Time::Local;
|
||||||
|
|
||||||
|
use Data::Dumper; # only for debugging
|
||||||
|
|
||||||
# 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
|
||||||
eval {
|
eval {
|
||||||
@ -296,7 +298,8 @@ sub Set {
|
|||||||
elsif ( lc $cmd eq 'startpoint' ) {
|
elsif ( lc $cmd eq 'startpoint' ) {
|
||||||
my $err;
|
my $err;
|
||||||
|
|
||||||
( $err, $payload, $abilities ) = SetPredefinedStartPoints( $hash, @$aArg );
|
print Dumper $aArg;
|
||||||
|
# ( $err, $payload, $abilities ) = SetPredefinedStartPoints( $hash, @$aArg );
|
||||||
return $err if ( defined($err) );
|
return $err if ( defined($err) );
|
||||||
|
|
||||||
}
|
}
|
||||||
|
Loading…
x
Reference in New Issue
Block a user