# 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();;}

######################################################
# 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);
  }
}