[32_yowsup.pm] Whatsapp versenden (Mit Handy- oder Festnetznummer)

[JoWiemann]

z.B Fensterkontakt an Gefrierschrank und Meldung, wenn Türe länger als 2 min offen.

Grüße Jörg

[AHA1805]

z.B Fensterkontakt an Gefrierschrank und Meldung, wenn Türe länger als 2 min offen.

Grüße Jörg

Hello Jörg

gute Idee, hatte schon 2 mal das meine Mädels Eis rausholten und ich es ersten  am nächsten Tag bemerkte,
dass die Tür offen steht.

Ich verwende jedoch, WhatsApp eigentlich nicht produktiv, da ich Pushover hier als sinnvoller erachte.
Da man hier mit Prioritäten arbeiten kann.


Gruß Hannes

Gesendet von Tapatalk

[JoWiemann]

Hallo Hannes,

bei uns in der Familie haben halt alle WhatsApp und lesen ihre Nachrichten auch immer. Seitdem funktioniert das auch mit der Mülltonne und dem rausstellen. Fhem sendet halt am Abend vorher eine WhatsApp mit der Mülltonne die raus zu stellen ist

[JoWiemann]

Hallo,

habe jetzt mal ein bisschen mit /path to/yowsup/demos/echoclient/layer.py rumgespielt. Folgendes Funktioniert nun:

• starten des echo Clients beim booten des RPi mit: sudo python /path to/yowsup/yowsup-cli demos -c /path to/yowsup/config.file -e (mache ich über /etc/init.d/fhem)
  
• Übergabe der Nachricht an den dummy WhatsApp im Format: Absender:Nachricht
  

Anbei die veränderte layer.py. Bitte am Anfang den Pfad und den Port auf die eigene Installation anpassen.

Grüße Jörg

[JoWiemann]

Hallo,

leider musste ich feststellen, dass das Versenden einer WhatsApp den echo-Client beendet. Als Workaround somit folgendes:

In meiner Sub sendWhatsApp in der myUtils.pm habe ich das Starten des echo-Clients hinzugefügt:

Code Auswählen Erweitern

sub
sendWhatsApp($$)
{
  my ($handy,$text) = @_;

  my $retWhatsApp = qx(sudo python /home/pi/yowsup/yowsup-cli demos -c /home/pi/yowsup/config.fnetz -s $handy '$text' 2\>&1 &);

  $retWhatsApp =~ s/\n|\r/ /g; #s,[\r\n]*,,g;        # remove CR from return-string

  Log3 "sendWhatsApp", 3, "sendWhatsApp: $retWhatsApp";

  # restart echo client
  $retWhatsApp = system("sudo python /home/pi/yowsup/yowsup-cli demos -c /home/pi/yowsup/config.fnetz -e &");

  return $retWhatsApp;
}


Dann habe ich eine neue Sub WhatsAppNotify() erstellt, die durch

Code Auswählen Erweitern


define WhatsApp dummy
define WhatsApp_Rec notify WhatsApp {WhatsAppNotify()}

aufgerufen wird.

Code Auswählen Erweitern


sub
WhatsAppNotify() {

  my ($Sender,$Message) = split(":",ReadingsVal("WhatsApp", "state", "none"));
  my $ret = "";
  my $MeldText = "";
  my $CallerNr = "your caller number";

  if($Sender eq $CallerNr) {
     Log3 "WhatsAppNotify", 3, "WhatsApp (WhatsAppNotify): Sender $Sender definied: $Message";
     $ret = fhem($Message);
     if($ret) {
       Log3 "WhatsAppNotify", 3, "WhatsApp (WhatsAppNotify): Sender $Sender action: $Message - error action: $ret";
       $MeldText = "WhatsApp (WhatsAppNotify): Sender $Sender action: $Message - error action: $ret";
       sendWhatsApp($CallerNr,$MeldText);
     } else {
       Log3 "WhatsAppNotify", 3, "WhatsApp (WhatsAppNotify): Sender $Sender action: $Message - action: Ok";
       $MeldText = "WhatsApp (WhatsAppNotify): Sender $Sender action: $Message - action: Ok";
       sendWhatsApp($CallerNr,$MeldText);
     }
  } else {
     Log3 "WhatsAppNotify", 3, "WhatsApp (WhatsAppNotify): Sender $Sender not definied: $Message";
  }
}



Somit ein erster rudimentärer Ansatz um per WhatsApp Fhem-Befehle abzusetzen

Grüße Jörg

PS: in der layer.py habe ich noch den Fhem-Aufruf nach hinten gestellt.

[Cybers]

Hallo,

Folgende Datei aus deiner Beschreibung habe ich bei mir nicht: config.file
Ich habe den Dateinamen mal in config.example geändert, da es die gibt. -> das gab zumindest keine Fehlermeldung

Wenn ich das so einrichte bekomme ich in Putty folgendecnFehler wenn eine Nachricht eintrifft:
Can't open perl script "/usr/share/fhem/fhem.pl": Datei oder Verzeichnis nicht gefunden

Ich hatte alles eingerichtet wie in deinem aktuellen ersten Beitrag. Damit ging alles Problemlos. Nur mit der Erweiterung für den Empfng tue ich mich schwar, da alle Verzeichnisse und Dateien nicht mehr übereinstimmen.

Gruß, Sascha

[JoWiemann]

Hallo,

config.file soll heißen: Deine Konfigurationsdatei, wie auch immer sie aktuell heißt.

Hast Du in der layer.py den Pfad zur fhem.pl angepasst? Wenn nicht, bitte noch nachholen. Dann sollte es funktionieren. Bitte den Pfad auch in der sendWhatsApp() anpassen.

Grüße Jörg

[VB90]

@Jörg

Danke dir.

Ich habe das nun bei mir eingefügt, jedoch bislang keinen sichtbaren Erfolg.
Mein Vorgehen:

Die layer.py habe ich durch deine ersetzt und darin den Pfad zu meiner fhem.pl geändert.

Meine 99_myUtils habe sieht nun wie folgt aus (Pfad ist angepasst):

Code Auswählen Erweitern


######################################################
##### WhatsApp #####

sub
sendWhatsApp($$)
{
  my ($handy,$text) = @_;

  my $retWhatsApp = qx(sudo python /opt/yowsup-master/yowsup-cli demos -c /opt/yowsup-master/config.example -s $handy '$text' 2\>&1 &);

  $retWhatsApp =~ s/\n|\r/ /g; #s,[\r\n]*,,g;        # remove CR from return-string

  Log3 "sendWhatsApp", 3, "sendWhatsApp: $retWhatsApp";

  # restart echo client
  $retWhatsApp = system("sudo python /opt/yowsup-master/yowsup-cli demos -c /opt/yowsup-master/config.example -e &");

  return $retWhatsApp;
}

sub
WhatsAppNotify() {

  my ($Sender,$Message) = split(":",ReadingsVal("WhatsApp", "state", "none"));
  my $ret = "";
  my $MeldText = "";
  my $CallerNr = "your caller number";

  if($Sender eq $CallerNr) {
     Log3 "WhatsAppNotify", 3, "WhatsApp (WhatsAppNotify): Sender $Sender definied: $Message";
     $ret = fhem($Message);
     if($ret) {
       Log3 "WhatsAppNotify", 3, "WhatsApp (WhatsAppNotify): Sender $Sender action: $Message - error action: $ret";
       $MeldText = "WhatsApp (WhatsAppNotify): Sender $Sender action: $Message - error action: $ret";
       sendWhatsApp($CallerNr,$MeldText);
     } else {
       Log3 "WhatsAppNotify", 3, "WhatsApp (WhatsAppNotify): Sender $Sender action: $Message - action: Ok";
       $MeldText = "WhatsApp (WhatsAppNotify): Sender $Sender action: $Message - action: Ok";
       sendWhatsApp($CallerNr,$MeldText);
     }
  } else {
     Log3 "WhatsAppNotify", 3, "WhatsApp (WhatsAppNotify): Sender $Sender not definied: $Message";
  }
}



Ich habe wie von dir beschrieben, dummy und notify angelegt.

nach restart von FHEM habe ich folgende Meldung im LogFile:

_daheim_ntfy return value: Undefined subroutine &main::sendWhatsapp called at (eval 14) line 1.

Dieses notify dient derzeit zum testen und soll mit bei Anwesenheit eine Whatsapp senden. was gestern mit der Config lt. Anleitung auf Seite 1 auch funktionierte.

Nun leider nicht mehr, keinerlei Erregung.

Bekommst du, wenn du an dein FHEM eine Nachricht sendest, dies auf deinem Absender-Smartphone angezeigt?
Ich meine diese beiden Haken.
Meine Nachrichten haben den Status, gesendet, aber nicht empfangen worden.

Danke,

vb

[JoWiemann]

Hallo,

wohin hast Du die layer.py kopiert? Sie muss bei Dir nach /opt/yowsup-master/.../demos/echoclient/. Bitte auch die Rechte prüfen. Müssen die selben Rechte, wie vorher sein.

Kannst Du auch mal Deine myUtils.pm posten. Der Fehler Undefined subroutine &main::sendWhatsapp called verwundert mich.

Grüße Jörg

[VB90]

genau dahin habe ich die layer.py kopiert.
Dort lag schon eine Datei gleich Namens die dezent kleiner war.
Auf die Rechte habe ich im Eifer natürlich nicht geachtet  , derzeit sind sie wie bei den anderen Dateien im Ordner auch auf 644, Besitzer: root
Muss mir unbedingt angewöhnen, vorhandene Dateien umzubenennen, statt sie direkt zu überschreiben...

Meine 99_meine_Utils.pm (ja, die heisst bei mir wirklich so) gern nachmal komplett:

Code Auswählen Erweitern

##############################################
# $Id: 99_Utils.pm 6660 2014-12-17 06:35.14Z rudolfkoenig $

package main;
use strict;
use warnings;
use POSIX;
sub
meine_Utils_Initialize($$)
{
  my ($hash) = @_;
}


################
# Brematic / connair einhängen

sub connair($$$){
my ($Master,$Slave,$action) = @_;
my  $SendData="";
my    $sA=0;
my    $sG=0;
my    $sRepeat=10;
my    $sPause=5600;
my    $sTune=350;
my    $sBaud=25;
my    $sSpeed=16;
my    $uSleep=800000;
my    $txversion=2;
my    $HEAD="TXP:$sA,$sG,$sRepeat,$sPause,$sTune,$sBaud,";
my    $TAIL=",$txversion,1,$sSpeed,;";
my    $AN="1,3,1,3,3";
my    $AUS="3,1,1,3,1";
my    $bitLow=1;
my    $bitHgh=3;
my    $seqLow=$bitHgh.",".$bitHgh.",".$bitLow.",".$bitLow.",";
my    $seqHgh=$bitHgh.",".$bitLow.",".$bitHgh.",".$bitLow.",";
my    $i=0;
my    $bit="";   
my    $msg="";

my  $bits=$Master;
    for($i=0; $i<length($bits); $i++) {   
        $bit=substr($bits,$i,1);
        if($bit=="0") {
            $msg=$msg.$seqLow;
        } else {
            $msg=$msg.$seqHgh;
        }
    }
my    $msgM=$msg;
   
    $bits=$Slave;
   
    $msg="";
    for($i=0; $i<length($bits); $i++) {
        $bit=substr($bits,$i,1);
        if($bit=="0") {
            $msg=$msg.$seqLow;
        } else {
            $msg=$msg.$seqHgh;
        }
    }
my    $msgS=$msg;

    if($action eq "on") {
        $SendData = $HEAD.$bitLow.",".$msgM.$msgS.$bitHgh.",".$AN.$TAIL;
    } else {
        $SendData = $HEAD.$bitLow.",".$msgM.$msgS.$bitHgh.",".$AUS.$TAIL;
    }
my ($socket,$data);
#  We call IO::Socket::INET->new() to create the UDP Socket
$socket = new IO::Socket::INET(PeerAddr=>'192.168.0.41:49880',Proto=>'udp') or die "ERROR in Socket Creation : $!\n";
$socket->send($SendData);

$socket->close();

}


######################################################
##### WhatsApp #####

sub sendWhatsApp($$){
  my ($nr,$Message) = @_;

  my $retWhatsApp = qx(sudo python /opt/yowsup-master/yowsup-cli demos -c /opt/yowsup-master/config.example -s $nr '$Message' 2\>&1 &);

  $retWhatsApp =~ s/\n|\r/ /g; #s,[\r\n]*,,g;        # remove CR from return-string

  Log3 "sendWhatsApp", 3, "sendWhatsApp: $retWhatsApp";

  # restart echo client
  $retWhatsApp = system("sudo python /opt/yowsup-master/yowsup-cli demos -c /opt/yowsup-master/config.example -e &");

  return $retWhatsApp;
}

sub WhatsAppNotify() {

  my ($Sender,$Message) = split(":",ReadingsVal("WhatsApp", "state", "none"));
  my $ret = "";
  my $MeldText = "";
  my $CallerNr = "your caller number";

  if($Sender eq $CallerNr) {
     Log3 "WhatsAppNotify", 3, "WhatsApp (WhatsAppNotify): Sender $Sender definied: $Message";
     $ret = fhem($Message);
     if($ret) {
       Log3 "WhatsAppNotify", 3, "WhatsApp (WhatsAppNotify): Sender $Sender action: $Message - error action: $ret";
       $MeldText = "WhatsApp (WhatsAppNotify): Sender $Sender action: $Message - error action: $ret";
       sendWhatsApp($CallerNr,$MeldText);
     } else {
       Log3 "WhatsAppNotify", 3, "WhatsApp (WhatsAppNotify): Sender $Sender action: $Message - action: Ok";
       $MeldText = "WhatsApp (WhatsAppNotify): Sender $Sender action: $Message - action: Ok";
       sendWhatsApp($CallerNr,$MeldText);
     }
  } else {
     Log3 "WhatsAppNotify", 3, "WhatsApp (WhatsAppNotify): Sender $Sender not definied: $Message";
  }
}


1;


inzwischen habe ich in Zeile zwei aus $handy und $test mal $nr und $message gemacht, weil es in der Anleitung Seite 1 so definiert ist, aber ohne Erfolg.
Werde das in der Zwischenzeit wieder ändern.

Was ich noch nicht getan habe, ist das System mal komplett neu starten, bislang nur FHEM.
das werde ich im Anschluss auch mal tun.

vb

[JoWiemann]

Dein Log zeigte, dass die Sub sendWhatsapp() nicht gefunden wurde. Die Sub heißt aber sendWhatsApp. Bitte beim Aufruf darauf achten, dass als Parameter der Sub Telefonnummer und Nachricht übergeben werden. Also:

Code Auswählen Erweitern


define myNotify .... {sendWhatsApp("49162nnnnnnnn", "Meine Nachricht")}


Grüße Jörg

[VB90]

ok, typischer "Betriebsblind" Fehler.
Danke dir.
Das ist nun behoben.

Nun bekomme ich folgendes im Logfile

sendWhatsApp: sudo: no tty present and no askpass program specified

Was mir sagt (?) das der Client nicht gestartet ist?
Mal schaun wie ich das nun wieder hingebogen bekomme...

vb

edit: wobei der restart ja eigentlich in der sub definiert ist 

edit2: ohne sudo gehts!
Da dachte ich, nen sudo könnte nicht schaden, aber pech gehabt.
Ich habe nun aus beiden Zeilen des Programmaufrufes das sudo gelöscht, und schon bekomme ich Nachrichten.
Nun mal den Empfang testen

[JoWiemann]

Gib mal bitte im Telnet

sudo visudo

ein und ergänze am Ende um:

fhem ALL=(ALL) NOPASSWD: ALL

Grüße Jörg

[VB90]

Habe ich nun getan, nun sollte es auch mit sudo funktionieren?
(siehe mein 2. edit, letzter Beitrag)

interessant ist, wenn FHEM mir etwas schickt, bekomme ich meine versendeten Nachrichten wieder mit zurück.
Ansonsten kann ich noch nicht erkennen, das FHEM irgendetwas empfängt.

vb

edit und letzter Akt für heute, die Arbeit ruft...
FHEM empfängt nur, wenn es etwas sendet.
In dem Moment wo ich eine Aktion auslöse die FHEM mir mitteilen soll, klappt auch dem Empfang.
Mit den richtigen Befehlen könnte ich wahrscheinlich sogar eine Aktion auslösen.
So bekomme ich meine Testnachrichten nur 1:1 wieder zurück

Solange aber FHEM nichts sendet, ist auch beim Empfang funkstille.

Anbei noch das Logfile, vielleicht hilft es ja:

Code Auswählen Erweitern

2015.04.29 21:43:07 3: sendWhatsApp: WARNING:yowsup.stacks.yowstack:Implicit declaration of parallel layers in a tuple is deprecated, pass a YowParallelLayer instead INFO:yowsup.demos.sendclient.layer:Message sent  Yowsdown
2015.04.29 21:43:07 3: _daheim_ntfy return value: -1
2015.04.29 21:43:09 3: sendWhatsApp: WARNING:yowsup.stacks.yowstack:Implicit declaration of parallel layers in a tuple is deprecated, pass a YowParallelLayer instead INFO:yowsup.demos.sendclient.layer:Message sent  Yowsdown
2015.04.29 21:43:09 3: _daheim_ntfy return value: -1
2015.04.29 21:43:10 3: sendWhatsApp: WARNING:yowsup.stacks.yowstack:Implicit declaration of parallel layers in a tuple is deprecated, pass a YowParallelLayer instead INFO:yowsup.demos.sendclient.layer:Message sent  Yowsdown
2015.04.29 21:43:10 3: _daheim_ntfy return value: -1
2015.04.29 21:43:12 3: sendWhatsApp: WARNING:yowsup.stacks.yowstack:Implicit declaration of parallel layers in a tuple is deprecated, pass a YowParallelLayer instead INFO:yowsup.demos.sendclient.layer:Message sent  Yowsdown
2015.04.29 21:43:12 3: _daheim_ntfy return value: -1
2015.04.29 21:43:14 3: sendWhatsApp: WARNING:yowsup.stacks.yowstack:Implicit declaration of parallel layers in a tuple is deprecated, pass a YowParallelLayer instead INFO:yowsup.demos.sendclient.layer:Message sent  Yowsdown
2015.04.29 21:43:14 3: _daheim_ntfy return value: -1
2015.04.29 21:43:16 3: sendWhatsApp: WARNING:yowsup.stacks.yowstack:Implicit declaration of parallel layers in a tuple is deprecated, pass a YowParallelLayer instead INFO:yowsup.demos.sendclient.layer:Message sent  Yowsdown
2015.04.29 21:43:16 3: _daheim_ntfy return value: -1
2015.04.29 21:43:17 3: sendWhatsApp: WARNING:yowsup.stacks.yowstack:Implicit declaration of parallel layers in a tuple is deprecated, pass a YowParallelLayer instead INFO:yowsup.demos.sendclient.layer:Message sent  Yowsdown
2015.04.29 21:43:17 3: _daheim_ntfy return value: -1
2015.04.29 21:43:18 3: sendWhatsApp: WARNING:yowsup.stacks.yowstack:Implicit declaration of parallel layers in a tuple is deprecated, pass a YowParallelLayer instead INFO:yowsup.demos.sendclient.layer:Message sent  Yowsdown
2015.04.29 21:43:18 3: _daheim_ntfy return value: -1
2015.04.29 21:43:20 3: sendWhatsApp: WARNING:yowsup.stacks.yowstack:Implicit declaration of parallel layers in a tuple is deprecated, pass a YowParallelLayer instead INFO:yowsup.demos.sendclient.layer:Message sent  Yowsdown
2015.04.29 21:43:20 3: _daheim_ntfy return value: -1
2015.04.29 21:43:22 3: sendWhatsApp: WARNING:yowsup.stacks.yowstack:Implicit declaration of parallel layers in a tuple is deprecated, pass a YowParallelLayer instead INFO:yowsup.demos.sendclient.layer:Message sent  Yowsdown
2015.04.29 21:43:22 3: _daheim_ntfy return value: -1
2015.04.29 21:43:22 3: WhatsApp (WhatsAppNotify): Sender 491525xxxxxx not definied: Test
2015.04.29 21:43:22 3: WhatsApp (WhatsAppNotify): Sender 491525xxxxxx not definied: Test
2015.04.29 21:43:22 3: WhatsApp (WhatsAppNotify): Sender 491525xxxxxx not definied: Test
2015.04.29 21:43:22 3: WhatsApp (WhatsAppNotify): Sender 491525xxxxxx not definied: Set Buero_LED off
2015.04.29 21:43:22 3: WhatsApp (WhatsAppNotify): Sender 491525xxxxxx not definied: Set Buero_LED off
2015.04.29 21:43:22 3: WhatsApp (WhatsAppNotify): Sender 491525xxxxxx not definied: Set Buero_LED off
2015.04.29 21:43:23 3: WhatsApp (WhatsAppNotify): Sender 491525xxxxxx not definied: Text
2015.04.29 21:43:23 3: WhatsApp (WhatsAppNotify): Sender 491525xxxxxx not definied: Text
2015.04.29 21:43:23 3: WhatsApp (WhatsAppNotify): Sender 491525xxxxxx not definied: Text
2015.04.29 21:43:24 3: WhatsApp (WhatsAppNotify): Sender 491525xxxxxx not definied: Set Buero_LED off
2015.04.29 21:43:24 3: WhatsApp (WhatsAppNotify): Sender 491525xxxxxx not definied: Text

Die hohe Anzahl an Nachrichten liegt daran, das ich einen Türkontakt abfrage und der alle Readings sendet. Wie gesagt, momentan alles nur zum testen.

vb

[JoWiemann]

Ich habe den ersten Start des echo Clienten im Fhem Startscript hionterlegt. Bei Dir funktioniert der Empfang erst dann, wenn einmal gesendet worden ist, da dann ja der echo Client gestartet wird. Von daher ergänze doch das Fhem Startscript. Du findest es unter:

/etc/init.d mit dem Datenamen fhem (ohne Dateierweiterung)

dort folgendes Abändern und hinzufügen:

Code Auswählen Erweitern


        echo "Starting fhem..."
        (perl fhem.pl fhem.cfg &)

        echo "Starting WhatsApp echo client..."
        (sudo python /opt/yowsup-master/yowsup-cli demos -c /opt/yowsup-master/config.example -e &)



Grüße Jörg