dev #66
@@ -414,7 +414,6 @@ sub Set {
 | 
				
			|||||||
 | 
					
 | 
				
			||||||
    if ( lc $cmd eq 'getdevicesstate' ) {
 | 
					    if ( lc $cmd eq 'getdevicesstate' ) {
 | 
				
			||||||
        getDevices($hash);
 | 
					        getDevices($hash);
 | 
				
			||||||
 | 
					 | 
				
			||||||
    }
 | 
					    }
 | 
				
			||||||
    elsif ( lc $cmd eq 'gettoken' ) {
 | 
					    elsif ( lc $cmd eq 'gettoken' ) {
 | 
				
			||||||
        return "please set Attribut gardenaAccountEmail first"
 | 
					        return "please set Attribut gardenaAccountEmail first"
 | 
				
			||||||
@@ -438,6 +437,13 @@ sub Set {
 | 
				
			|||||||
 | 
					
 | 
				
			||||||
        DeletePassword($hash);
 | 
					        DeletePassword($hash);
 | 
				
			||||||
    }
 | 
					    }
 | 
				
			||||||
 | 
					    elsif ( lc $cmd eq 'debughelper') {
 | 
				
			||||||
 | 
					      return "usage: $cmd" if ( scalar( @{$aArg} ) != 2 );
 | 
				
			||||||
 | 
					      my $new_helper = $aArg->[0];
 | 
				
			||||||
 | 
					      my $new_helper_value = $aArg->[1];
 | 
				
			||||||
 | 
					      Log3( $name, 5, "GardenaSmartBridge ($name) - override helper $new_helper with $new_helper_value");
 | 
				
			||||||
 | 
					      $hash->{helper}{$new_helper} = $new_helper_value;
 | 
				
			||||||
 | 
					    }
 | 
				
			||||||
    else {
 | 
					    else {
 | 
				
			||||||
 | 
					
 | 
				
			||||||
        my $list = "getDevicesState:noArg getToken:noArg"
 | 
					        my $list = "getDevicesState:noArg getToken:noArg"
 | 
				
			||||||
@@ -482,8 +488,8 @@ sub Write {
 | 
				
			|||||||
"GardenaSmartBridge ($name) - Send with URL: $hash->{URL}$uri, HEADER: secret!, DATA: secret!, METHOD: $method"
 | 
					"GardenaSmartBridge ($name) - Send with URL: $hash->{URL}$uri, HEADER: secret!, DATA: secret!, METHOD: $method"
 | 
				
			||||||
    );
 | 
					    );
 | 
				
			||||||
 | 
					
 | 
				
			||||||
  Log3($name, 3,
 | 
					  # Log3($name, 3,
 | 
				
			||||||
      "GardenaSmartBridge ($name) - Send with URL: $hash->{URL}$uri, HEADER: $header, DATA: $payload, METHOD: $method");
 | 
					  #     "GardenaSmartBridge ($name) - Send with URL: $hash->{URL}$uri, HEADER: $header, DATA: $payload, METHOD: $method");
 | 
				
			||||||
 | 
					
 | 
				
			||||||
    return;
 | 
					    return;
 | 
				
			||||||
}
 | 
					}
 | 
				
			||||||
 
 | 
				
			|||||||
@@ -1,2 +1,2 @@
 | 
				
			|||||||
UPD 2022-05-15_17:15:26 49518 FHEM/73_GardenaSmartBridge.pm
 | 
					UPD 2022-05-17_20:13:35 49864 FHEM/73_GardenaSmartBridge.pm
 | 
				
			||||||
UPD 2022-05-17_11:04:54 66211 FHEM/74_GardenaSmartDevice.pm
 | 
					UPD 2022-05-17_11:06:17 66211 FHEM/74_GardenaSmartDevice.pm
 | 
				
			||||||
 
 | 
				
			|||||||
		Reference in New Issue
	
	Block a user