FHEM spricht jabber
Ein einfaches Command-Interface mit Jabber
Mit Hilfe des Jabber-Moduls für FHEM kann man nicht nur von FHEM Nachrichten auf sein Handy senden lassen, sondern auch die Gegenrichtung benutzen, um Befehle und Anweisungen an den Server zu schicken.
So habe ich das realisiert...
Zunächst die Definitionen im fhem.cfg (es werden zwei Accounts auf jabber.de oder einem eigenen XMPP Server benötigt: <fhem_user> und <my_user>):
# Definition Jabber-Account fuer FHEM
define jabber Jabber jabber.de 5222 <fhem_user> <passwort> 1 0
attr jabber OnlineStatus available
attr jabber PollTimer 2
# Nachrichten nur von einem bestimmten Account akzeptieren
attr jabber RecvWhitelist <my_user>@jabber.de
# Account-Nickname
attr jabber ResourceName FHEM
# Eine Methode beim Nachrichtenempfang aufrufen
define Jabber_Notify notify jabber:Message.* {sendJabberAnswer();;}
# Taegliche Statusmeldung verschicken
define jabberstatus at *05:10:00 {sendMeStatusMsg();;}
Und dann die Perl-Funktionen (irgendwo in einem Modul, z.B. in 99_myUtils.pm):
######################################################
# Meldung per Jabber senden
######################################################
sub
sendJabberMessage($$)
{
my($rcp, $msg) = @_;
fhem("set jabber msg $rcp $msg");
}
######################################################
# Meldung an mich per Jabber senden
######################################################
sub
sendMeJabberMessage($)
{
my($msg) = @_;
sendJabberMessage('<my_user>@jabber.de', $msg);
}
######################################################
# Statusdaten an mein Handy per Jabber senden
######################################################
sub
sendMeStatusMsg()
{
# Hier ist der Text fuer die Statusmeldung. Z.B. Werte von Sensoren.
my $msg = "Status: Umwelt";
$msg=$msg."\n Vorgarten: ";
$msg=$msg."T: ".ReadingsVal("Sensor1", "temperature", "---")." C";
$msg=$msg."\n Garten: ";
$msg=$msg."T: ".ReadingsVal("Sensor2", "temperature", "---")." C,";
$msg=$msg." H: ".ReadingsVal("Sensor2", "humidity", "---")." %,";
$msg=$msg." Bat: ".ReadingsVal("Sensor2", "battery", "---")." V";
sendMeJabberMessage($msg);
}
######################################################
# Kleines Jabber-Cmd-Interface
######################################################
sub
sendJabberAnswer()
{
my $lastsender=ReadingsVal("jabber","LastSenderJID","0");
my $lastmsg=ReadingsVal("jabber","LastMessage","0");
my @cmd_list = split(/\s+/, trim($lastmsg));
my $cmd = lc($cmd_list[0]);
# erstes Element entfernen
shift(@cmd_list);
my $newmsg;
# Hier den Status ausgeben: Z.B. Anwesenheit, Fenster, Telefonanrufe, Tuerklingel oder Briefkasten...
if($cmd eq "status") {
$newmsg.= "Status: (noch) nicht implementiert";
}
# Ausssentemperatur etc. melden
if($cmd eq "umwelt") {
$newmsg.= "Umwelt";
$newmsg.="\n Vorgarten: ";
$newmsg.="T: ".ReadingsVal("Sensor3", "temperature", "---")." C, ";
$newmsg.="B: ".ReadingsVal("Sensor3", "brightness", "---").", ";
$newmsg.="Bat: ".ReadingsVal("Sensor3", "battery", "---")." ";
$newmsg.="\n Garten: ";
$newmsg.="T: ".ReadingsVal("Sensor2", "temperature", "---")." C,";
$newmsg.=" H: ".ReadingsVal("Sensor2", "humidity", "---")." %,";
$newmsg.=" Bat: ".ReadingsVal("Sensor2", "battery", "---")." V";
}
# Systemueberwachung durch SYSMON
if($cmd eq "system") {
$newmsg.= "CPU Temp: ".ReadingsVal("sysmon", "cpu_temp_avg", "---")." C\n";
$newmsg.= "loadavg: ".ReadingsVal("sysmon", "loadavg", "---")."\n";
$newmsg.= "Auslastung: ".ReadingsVal("sysmon", "stat_cpu_text", "---")."\n";
$newmsg.= "RAM: ".ReadingsVal("sysmon", "ram", "---")."\n";
$newmsg.= "Uptime: ".ReadingsVal("sysmon", "uptime_text", "---")."\n";
$newmsg.= "Idle: ".ReadingsVal("sysmon", "idletime_text", "---")."\n";
$newmsg.= "FHEM uptime: ".ReadingsVal("sysmon", "fhemuptime_text", "---")."\n";
$newmsg.= "FS Root: ".ReadingsVal("sysmon", "fs_root", "---")."\n";
$newmsg.= "FS USB: ".ReadingsVal("sysmon", "fs_usb1", "---")."\n";
$newmsg.= "Updates: ".ReadingsVal("sysmon", "sys_updates", "---")."\n";
}
# ggf. weitere Befehle
# kleine Hilfe zu den verfuegbaren Anweisungen
if($cmd eq "help" || $cmd eq "hilfe" || $cmd eq "?") {
$newmsg.= "Befehle: Help (Hilfe), Status, System, Umwelt";
}
# FHEM-Anweisungen ausfuehren (als ob diese auf der Console eingegben wurden)
if($cmd eq "fhem") {
my $cmd_tail = join(" ",@cmd_list);
$newmsg.=fhem($cmd_tail);
}
# Perl-Befehle ausfuehren
if($cmd eq "perl") {
my $cmd_tail = join(" ",@cmd_list);
$newmsg.=eval($cmd_tail);
}
# Sprachmeldung ausgeben (ueber TTS Modul)
if($cmd eq "say" || $cmd eq "sprich") {
my $cmd_tail = join(" ",@cmd_list);
speak($cmd_tail,0);
$newmsg.="ok";
}
if(defined($newmsg)) {
fhem("set jabber msg ". $lastsender . " ".$newmsg);
} else {
fhem("set jabber msg ". $lastsender . " Unbekanter Befehl: ".$lastmsg);
}
}
Was das ganze tut:
- Jeden Morgen mir die Wetterdaten von 2 meiner Sensoren senden
- Mehrere Befehle per Jabber-Chat akzeptieren und beantworten:
- System: ausgewählte System Informationen
- Umwelt: Wetterdaten
- perl <perl_cmd>: Perl-Befehle ausführen
- fhem <fhem_cmd>: FHEM-Commandos ausführen.
- Sprachmeldungen ausgeben
Und es gibt noch jede Menge Platz für Erweiterungen ;)