diff options
| author | dakkar <dakkar@thenautilus.net> | 2023-10-14 20:55:03 +0100 |
|---|---|---|
| committer | dakkar <dakkar@thenautilus.net> | 2023-10-14 20:55:03 +0100 |
| commit | 48bd1abef55e76b8a05f36ef1fb636daf03ec7f8 (patch) | |
| tree | b5fd0484a141c45b0e361a62e596808aecf3737d | |
| parent | remove useless bit (diff) | |
| download | thermostat-48bd1abef55e76b8a05f36ef1fb636daf03ec7f8.tar.gz thermostat-48bd1abef55e76b8a05f36ef1fb636daf03ec7f8.tar.bz2 thermostat-48bd1abef55e76b8a05f36ef1fb636daf03ec7f8.zip | |
louder
| -rw-r--r-- | atc-therm-receiver/test.pl | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/atc-therm-receiver/test.pl b/atc-therm-receiver/test.pl index 1c5bc2c..57df7d7 100644 --- a/atc-therm-receiver/test.pl +++ b/atc-therm-receiver/test.pl @@ -99,6 +99,7 @@ sub look_at_device($path,$interfaces) { $new_obj->connect_to_signal( 'PropertiesChanged', sub($interface,$props,@) { + say "PropertiesChanged $path"; maybe_handle_data($path,{$interface=>$props}) or return; } @@ -108,6 +109,7 @@ sub look_at_device($path,$interfaces) { $timer = $reactor->add_timeout( 5_000, sub { + say "timer $path"; try { my $raw_data = $new_obj->Get( 'org.bluez.Device1', |