block access to the api if no password set
This commit is contained in:
parent
773da536ca
commit
841eebaa69
@ -134,6 +134,8 @@ sub TadoAPI_Define($$)
|
|||||||
$attr{$name}{homeID} = $id;
|
$attr{$name}{homeID} = $id;
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
}else{
|
||||||
|
$hash->{STATE}="no password set";
|
||||||
}
|
}
|
||||||
return undef;
|
return undef;
|
||||||
}
|
}
|
||||||
@ -155,6 +157,18 @@ sub TadoAPI_Set(@) {
|
|||||||
return "Unknown argument $a[1], choose one of " . join(" ", @cmds);
|
return "Unknown argument $a[1], choose one of " . join(" ", @cmds);
|
||||||
}
|
}
|
||||||
|
|
||||||
|
if (($cmd ne "password"))
|
||||||
|
{
|
||||||
|
my $pwd = TadoAPI_readPassword($name);
|
||||||
|
unless (defined $pwd)
|
||||||
|
{
|
||||||
|
$message = "Error: no tado password set. Please define it with 'set $name password Your_tado_Password'";
|
||||||
|
Log3 $name,2,"$name, $message";
|
||||||
|
$hash->{STATE}="no password set";
|
||||||
|
return $message;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
if( $cmd eq 'setGeo' ) {
|
if( $cmd eq 'setGeo' ) {
|
||||||
return "Need at least two parameters (mobileID, Setting)" if(@a < 4);
|
return "Need at least two parameters (mobileID, Setting)" if(@a < 4);
|
||||||
if( $a[3] eq "on" ) {
|
if( $a[3] eq "on" ) {
|
||||||
@ -245,6 +259,15 @@ sub TadoAPI_Get(@) {
|
|||||||
return "Unknown argument $a[1], choose one of " . join(" ", @cmds);
|
return "Unknown argument $a[1], choose one of " . join(" ", @cmds);
|
||||||
}
|
}
|
||||||
|
|
||||||
|
my $pwd = TadoAPI_readPassword($name);
|
||||||
|
unless (defined $pwd)
|
||||||
|
{
|
||||||
|
$message = "Error: no tado password set. Please define it with 'set $name password Your_tado_Password'";
|
||||||
|
Log3 $name,2,"$name, $message";
|
||||||
|
$hash->{STATE}="no password set";
|
||||||
|
return $message;
|
||||||
|
}
|
||||||
|
|
||||||
if($cmd =~ /\Qget\E/) {
|
if($cmd =~ /\Qget\E/) {
|
||||||
|
|
||||||
COMMAND_HANDLER: {
|
COMMAND_HANDLER: {
|
||||||
|
Loading…
x
Reference in New Issue
Block a user