Ab / anwesendheitserkennung via Bluetooth

[Gasmast3r]

Ich persänlich kann nur empfehlen dafür eine Zeropi W zu kaufen die Stretch-Lite version und Lepresenced drauf alles definieren freuen

Gesendet von meinem SM-G950F mit Tapatalk

[Anno74]

Hallo,

also nochmals probiert das alles. Irgendwas scheint es aber zu machen. In Loxone habe ich alles angelegt und sollte auch klappen. Jedoch kommen keine Daten rein, scheinbar. Mehr dazu gleich.

Ich habe nun den GTAG definiert, auch das event-on-change-reading
Auch habe ich das Notify gesetzt!
Der Gtag steht nach wievor als Absent da. Aber als ich den GTAG vom Flur ins Gästezimmer geholt habeging kurzzeitig der Status von Absent auf Connect oder so. Im LOG File steht folgendes

Code Auswählen Erweitern


2017.12.29 20:17:20 0: Server started with 13 defined entities (fhem.pl:15680/2017-12-24 perl:5.024001 os:linux user:fhem pid:488)
2017.12.29 20:18:14 1: 127.0.0.1:5333 reappeared (GTAG)
2017.12.29 20:18:14 1: ERROR evaluating my $EVENT='absent';my $SELF='OnOffToLoxone';my $NAME='GTAG';my $TYPE='PRESENCE';my $EVTPART0='absent';{OnOffToLoxone("$NAME")}: Can't locate object method "new" via package "io::Socket::INET" (perhaps you forgot to load "io::Socket::INET"?) at ./FHEM/99_myUtils.pm line 19.

2017.12.29 20:18:14 3: OnOffToLoxone return value: Can't locate object method "new" via package "io::Socket::INET" (perhaps you forgot to load "io::Socket::INET"?) at ./FHEM/99_myUtils.pm line 19.


Die my_Utils.pm schaut so aus

Code Auswählen Erweitern


package main;

use strict;
use warnings;
use POSIX;


sub
myUtils_Initialize($$)
{
  my ($hash) = @_;
}

# UDP Befehle an Loxone senden

sub UDP_Msg($$$)
{
my ($dest,$port,$cmd)=@_;
my $sock=io::Socket::INET->new(
Proto => 'udp',
PeerPort => $port,
PeerAddr => $dest
) or die "Could not create socket: $!\n";
$sock->send($cmd) or die "Send error_ $!\n";
return "send $cmd";
}

sub OnOffToLoxone($)
{
my ($device) = @_;
my $state = ReadingsVal("$device","state","-1");
if ($state eq "on") {
$state = "1";
}
if ($state eq "off") {
$state = "0";
}
my $pct = ReadingsVal("$device","pct","-1");

#fhem("set $device: $state $pct");
UDP_Msg("192.168.0.200" , "7000" , "$device: $state $pct");
}

# Enter you functions below _this_ line.


1;


Was ist denn da nun wieder los?

LG Alex

[Gasmast3r]

Irgendwas ist echt merkwürdig bei dir.
Was läuft den nun an Bluetooth sachen bei dir?

Lass Lepresends erstmal funktionieren bevor du notify's nutzt.
Ist der g-tag sonst irgendwo angemeldet??

Normalerweise sollte alles laufen aber irgendwas funk da zwischen.