Buderus KM200 Kommunikationsmodul

[Jens_B]

Hallo zusammen, was brauche ich um das km200 von meinem mit fhem ausgestatteten raspberry aus auszulesen?
Kann das vielleicht jemand kurz zusammenfassen?
Das wäre ein Traum:)
Gruß
Jens

[Sailor]

Hallo Jens,

erstmal brauchst du Geduld bis Stefan und ich das Modul fertig geschrieben haben.

Dann brauchst Du nur eine Heizungssteuerung mit dem entsprechenden Einschub der mit dem KM200 kommuniziert, ein Netzwerkkabel zum Router an dem auch der Raspi hängt und das wars.

Naja, wenn dann das Modul irgendwann mal funktioniert... 

Gruss
    Sailor

[Jens_B]

Mein km200 hängt an meiner Heizung der Buderus, damit werden mir über die Buderus app Easy Control ja diverse Dinge angezeigt (unter anderem ob der Brenner gerad an ist, ob die Solaranlage gerad warme liefert etc) also das km200 ist wie gesagt schon an meiner Buderus Therme angebunden.
Gruß
Jrns

[Sailor]

Dann brauchst Du nur ein wenig Geduld... 

[Jens_B]

@sailor : das klingt gut:) das wäre echt super, wenn ihr das hinbekommen würdet:)

[Sailor]

Hallo Stefan,

anbei der letzte Stand mit einigen Fehlermeldungen weniger.

Hast Du eine Ahnung wie man die Nullbytes "/x00" am Ende eines Strings zu loeschen vermag? 

Gruss Sailor

[Stefan M.]

Hallo Sailor
leider nein, hast Du schon mal in einem perl-Forum oder Google gefragt.

evtl hilft das :
http://www.perl-community.de/bat/poard/thread/5903

oder das
#NUL suchen und entfernen
$string =~ s/\x00//g;

habe es nicht getestet!
lg
Stefan

[Sailor]

Hallo Stefan

So weit war ich schon.

Leider löschen diese Funktionen auch alle Leerbytes innerhalb des Strings. 
Ich vermute genau das sollte nicht sein.

Ich suche eben einen genauen Ersatz für die PHP-Codezeile:

Code: [Auswählen]

$decrypt = rtrim( $decrypt, "\x00" );
http://php.net/manual/de/function.rtrim.php

Ich suche... (Warum gibt es hier im Forum keinen Smiley mit ner Lupe...  )

Gruß
    Sailor

[Jens_B]

Wie wÄre es mit
$str =~ s/\s+$//;


Das löscht in perl meine ich alles rechts

Grus
Jens

[Jens_B]

So würde das als unterfunktion im Programm gehen :
sub rtrim { my $s = shift; $s =~ s/\s+$//;       return $s };



Benutzen würde man es dann so:
my $z = " abc ";
printf "<%s>\n", rtrim($z);  # < abc>

Vielleicht hilfst weiter?
Gruß
Je s

[Sailor]

Hallo Jens,

Danke, allerdings bin ich mir nicht sicher ob "\s" also whitespaces im Allgemeinen gelöscht werden sollen.

Ich denke ich werde es mal mit

Code: [Auswählen]

$decrypt =~ s/\x00+$//; versuchen.

Gruß
    Sailor

[Stefan M.]

Hi
hast Du das schon gelesen ?
http://www.fhemwiki.de/wiki/DevelopmentModuleIntro

Ich habe es gerade erst gefunden.

lg
Stefan

[l3skon3]

Hallo, werden die Werte über das LAN abgerufen oder über Internet (kann mein Fhem-Server auch an einem anderen Standort sein)?

[Stefan M.]

Hi
die Daten werden direkt vom KM200(KM50) geholt.

lg
Stefan

[Sailor]

hast Du das schon gelesen ?
http://www.fhemwiki.de/wiki/DevelopmentModuleIntro

Hallo Stefan,

habe ich gefunden. Bin gerade dabei die letzte Subroutine von PHP in Perl zu verwandeln.
Danach, so hoffe ich, musst Du nur noch Deinen Teil hinzufügen.

Abschließend machen wir noch alles hübsch (Kommentierungen, Modulaufruf etc.)

PS: Gehe am Ende der Woche in den Urlaub. Da ist erstmal 2 Wochen Schaffenspause!

Gruß
    Sailor