#dect200

Wie ich vor mehr als einem Jahr schon mal schrieb, logge ich die von inzwischen fünf AVM DECT!200 ("intelligente Steckdose") erfassten Messdaten via FHEM in eine graphite-Instanz. Besser gesagt: Ich habe geloggt, bis ich vor einigen Monaten den FHEM von der Fritzbox auf einen Raspberry-Pi umgezogen habe. Danach lief das irgendwie nicht mehr (segmentation fault bei der FHEM-Instanz auf der Fritzbox; nicht näher mit beschäftigt-). 

Nun habe ich mich wieder dran gesetzt und der FHEM-Instanz auf der Rasp-Pi das Loggen der DECT!200-Daten in eine exteren graphite-Instanz beigebracht:

fhem.cfg:

define DECT200toGraphite notify FBDECT.*:(power|voltage|current|energy).* { AVMDECT200tographite($EVENT,$NAME) }

AVMDECT200tographite ist eine perl-sub in einer 99_xxxx.pm Eigenbau FHEM-Erweiterung - und sieht so aus:

sub AVMDECT200tographite($$) { my $event = shift or return 'AVMDECT200tographite: No event given.';; my $device = shift or return 'AVMDECT200tographite: No device given.'; my ($type, $value) = $event =~ /^([^:]+): ([-]?[0-9]+(\.[0-9]+)?).*/; if ($type) { my $sock = IO::Socket::INET->new( PeerAddr => $carbon_server, PeerPort => $carbon_port, Proto => 'tcp' ); if ($sock->connected) { my $time = time; $sock->send("fritzbox.smarthome.$device.$type $value $time\n"); $sock->shutdown(2); #nur fuer die ersten Tests. Sonst als kommentar. #return "AVMDECT200tographite: everything seems OK ('$device','$event','$type','$value')"; } else { return "AVMDECT200tographite: no socket to '$carbon_server'"; } } else { return "AVMDECT200tographite: event syntax unknonw ('$device','$event')"; } }

...und schon fließen die Daten wieder: