Natural Language User Interface 95_Babble.pm

[Prof. Dr. Peter Henning]

Kann erst Ende der Woche etwas dazu sagen.

LG

pah

[MBHG]

Kann erst Ende der Woche etwas dazu sagen.

Danke. Ich habs mal mit "Mach das Licht im Wohnzimmer aus." Das klappt. Hat sich also erledigt.

Danke Marc

[MBHG]

Update: so scheint die Telegram Integration für mich ganz gut zu funktionieren.

https://youtu.be/J5G9S1VFnDg


list n_telbot

Code Auswählen Erweitern

Internals:
   DEF        teleBot:((queryData)|(msgReplyMsgId)).* {telegramRecognition("$EVENT")}
   FUUID      xxxxxxxxxxxxxxxxxxxxxxxxxxxx
   NAME       n_telbot
   NR         158
   NTFY_ORDER 50-n_telbot
   REGEXP     teleBot:((queryData)|(msgReplyMsgId)).*
   STATE      2019-01-31 22:09:52
   TRIGGERTIME 1548968992.16767
   TYPE       notify
   READINGS:
     2019-01-31 19:33:05   state           active
Attributes:
   room       Voice


list Babble

Code Auswählen Erweitern

Internals:
   FUUID      xxxxxxxxxxxxxxxxxxxxxxxxxxx
   NAME       Babble
   NR         156
   STATE      Initialized
   TYPE       Babble
   VERSION    1.35
   DATA:
     commands   
     re_articles ((der)|(die)|(das)|(den)|(des)|(dem)|(zur))
     re_devs    ((wortuhr)|(stehlampe))
     re_ids     ((hallo))
     re_places  ((light)|(alarm)|(cinema)|(garden)|(radio)|(switches)|(residents)|(voice)|(sensors)|(system)|(cul_hm)|(weather)|(flur)|(gang)|(kamin)|(wohnzimmer)|(gästezimmer)|(garten)|(haus))
     re_prepos  ((von)|(vom)|(des)|(der)|(in)|(im)|(auf)|(bei)|(am))
     re_quests  ((wie)|(wo)|(wann))
     re_status  ((status)|(wert)|(wetter)|(zeit))
     re_times   ((heute)|(morgen)|(übermorgen)|(nacht))
     re_verbparts ((zu)|(auf)|(ent)|(wider)|(ein)|(an)|(aus)|(ab)|(um))
     re_verbsc  ((schließ)|(schalten)|(schließen)|(öffnen)|(schalt)|(mache)|()|(schalte)|(machs)|(schließe)|(mach)|(öffne)|(machen))
     re_verbsi  (?P<verbsi>(schalten)|(machen)|(öffnen)|(schließen))
     re_writes  ((status)|(wert)|(wetter)|(zeit))
     savedate   2019-01-31 20:11:16
     articles:
       der
       die
       das
       den
       des
       dem
       zur
     command:
         stehlampe:
         gang:
           machen:
             an         set Switch_Hallway on;;$CONFIRM
             aus        set Switch_Hallway off;;$CONFIRM
           schalten:
             an         set Switch_Hallway on;;$CONFIRM
             aus        set Switch_Hallway off;;$CONFIRM
             ein        set Switch_Hallway on;;$CONFIRM
         wohnzimmer:
           machen:
             aus        set Power_Outlet_4 off;;$CONFIRM
           schalten:
             an         set Power_Outlet_4 on;;$CONFIRM
             aus        set Power_Outlet_4 off;;$CONFIRM
             ein        set Power_Outlet_4 on;;$CONFIRM
       wortuhr:
         none:
           none:
             none       undefined
     devcontacts:
       stehlampe:
         Stehlampe
         Power_Outlet_4
         0
       wortuhr:
         Wortuhr
         Power_Outlet_1
         0
     devs:
       Wortuhr
       Stehlampe
     devsalias:
       stehlampe:
         4
       wortuhr:
         3
     help:
       licht      Bitte sprich: Licht, gefolgt von gefolgt von einer Ortsangabe und dem Wort an oder aus
       power_outlet_4 Bitte sprich: Licht, gefolgt von einer Ortsangabe, gefolgt von
       stehlampe  Bitte sprich: Stehlampe, gefolgt von einer Ortsangabe, gefolgt von
       wortuhr    Bitte sprich: Wortuhr, gefolgt von
     places:
       Light
       Alarm
       Cinema
       Garden
       Radio
       Switches
       Residents
       Voice
       Sensors
       System
       CUL_HM
       Weather
       Flur
       Gang
       Kamin
       Wohnzimmer
       Gästezimmer
       Garten
       Haus
     prepos:
       von
       vom
       des
       der
       in
       im
       auf
       bei
       am
     quests:
       wie
       wo
       wann
     rooms:
       Light
       Alarm
       Cinema
       Garden
       Radio
       Switches
       Residents
       Voice
       Sensors
       System
       CUL_HM
       Weather
     splaces:
       Flur
       Gang
       Kamin
       Wohnzimmer
       Gästezimmer
       Garten
       Haus
     status:
       Status
       Wert
       Wetter
       Zeit
     times:
       heute
       morgen
       übermorgen
       nacht
     verbparts:
       zu
       auf
       ent
       wider
       ein
       an
       aus
       ab
       um
     verbs:
                 
       mach       machen
       mache      machen
       machen     machen
       machs      machen
       schalt     schalten
       schalte    schalten
       schalten   schalten
       schließ   schließen
       schließe  schließen
       schließen schließen
       öffne     öffnen
       öffnen    öffnen
     verbsi:
       schalten
       machen
       öffnen
       schließen
     verbsicc:
       ARRAY(0x5575d1f12768)
       ARRAY(0x5575d1f127c8)
       ARRAY(0x5575d1f12840)
       ARRAY(0x5575d1f12960)
     writes:
       Status
       Wert
       Wetter
       Zeit
   READINGS:
     2019-01-27 10:23:15   lockstate       0
     2019-01-31 20:11:16   savedate        2019-01-31 20:11:16
     2019-01-31 19:33:05   state           Initialized
Attributes:
   babbleArticles der die das den des dem zur
   babblePlaces Flur Gang Kamin Wohnzimmer Gästezimmer Garten Haus
   babblePrepos von vom des der in im auf bei am
   babbleQuests wie wo wann
   babbleStatus Status Wert Wetter Zeit
   babbleTimes heute morgen übermorgen nacht
   babbleVerbParts zu auf ent wider ein an aus ab um
   babbleVerbs schalt,schalte:schalten mach,machs,mache:machen öffne:öffnen schließe,schließ:schließen
   babbleWrites setzen ändern löschen
   confirmFunc {fhem("set teleBot message \@Marc_Boettinger Ok!")}
   helpFunc   {fhem("set teleBot message \@Marc_Boettinger $HELP")}
   noChatBot  0
   room       babbleRoom

Code Auswählen Erweitern



#############################################################################
#
#  TelegramInlineKeyboard
#
#############################################################################
sub telegramRecognition($){
   my ($event)    = @_;
   my $querypeer      = ReadingsVal("teleBot", "queryPeer", 0);
   my $msgpeer        = ReadingsVal("teleBot", "msgPeer", 0);
   my $queryReplyMsgId= ReadingsVal("teleBot", "queryReplyMsgId", 0);
   my $MsgId          = ReadingsVal("teleBot", "MsgId", 0);
   my $menuMsgId      = ReadingsVal("teleBot", "menuMsgId", $queryReplyMsgId);
   my $calldata       = ReadingsVal("teleBot", "callData", "");
   my $tg;
   my $dp;
   my $dm;
   my $res;
   my $cmd;
   my $click;
   my ($cb1,$cb2,$cb1raw);
   


   #-- Hier kann man - ggf. für jeden $querypeer anders ! - einstellen, welcher Bestätigungstext vom Bot
   #    gesendet wird, und ob es eine nicht-klickbare Liste (linke Spalte oben) oder eine klickbare Liste
   #    (rechte Spalte oben) sein soll
   if( $querypeer eq "Marc_Boettinger"){
      fhem("attr teleBot queryAnswerText Gerne zu Diensten, Meister !");
      $click=1;
   }elsif( $querypeer eq "Ramona_Boettinger"){
      fhem("attr teleBot queryAnswerText Gerne zu Diensten, Ramona !");
      $click=0;
   }else{
      fhem("attr teleBot queryAnswerText Gerne zu Diensten!");
      $click=0;
   }
         

    #-- receiving reply from bot to telegram
    if( $event =~ /botreply\:\s(.*)/ ){
      $cb1 = $1;
      fhem("set teleBot msg \@$msgpeer $cb1");
      fhem("setreading teleBot prevCmd ChatBot $cb1");
     #-- click event from inline keyboard
    }elsif( $event =~ /queryData\:\s(.*)/ ){
      ($cb1,$cb2) = split(/ /,$1,2);
      #Log 1,"[telegramRecognition] queryData $cb1";
      #-- Level 0/1 => new menuMsgId after start of Bot
      if( $cb1 =~ /(Steuerung)|(ChatBot)/ ){
        $menuMsgId = $queryReplyMsgId;
        fhem("setreading teleBot menuMsgId $menuMsgId");
fhem("setreading teleBot prevCmd $cb1");
      }
 
}


if( $event =~ /menuData\:\s*(.*)\s*(.*)/ ){
     my $cb1 = $1;
     my $cb2 = $2;
     if( $cb1 eq "Hauptmenü"){
       if( $msgpeer eq "Marc_Boettinger"){
         fhem("set teleBot queryInline \@$msgpeer (ChatBot) Hauptmenü");
       }elsif( $msgpeer eq "Ramona_Boettinger"){
         fhem("set teleBot queryInline \@$msgpeer (ChatBot) Hauptmenü");
       }else{
         fhem("set teleBot queryInline \@$msgpeer (ChatBot) Hauptmenü");
       }
     }
   
     
     #-- Process line from forced reply
  }elsif( $event =~ /msgReplyMsgId\:\s+(\d*)/ ){
  my $mn = $1;
  my $mo = ReadingsVal("teleBot", "prevMsgId", 0)+1;
  my $prev = ReadingsVal("teleBot","prevCmd","none");


#-- ChatBot
  if( $prev =~ /ChatBot/ ){
        my $text = ReadingsVal("teleBot","msgText","");
if( $text =~ /(s|S)top.*/ ){
   fhem("setreading teleBot prevCmd 0");
   InternalTimer(gettimeofday()+1, "telegramRecognition","queryData: Hauptmenü",0);
}else{
  fhem("{Babble_DoIt('Babble','".$text."','teleBot')}");
}
  }
    }
  }

[Adimarantis]

Hallo,

Ich habe gestern Babble ausprobiert, da ich überlege das mit meinem Signalbot zu verknüpfen. Dabei sind mir eine Reihe von Fehlermeldungen im Logfile aufgefallen. Das ist wahrscheinlich noch niemandem aufgefallen, da sie nur kommen wenn global->stacktrace=1 gesetzt ist. Scheint die Funktion auch nicht zu beinträchtigen, doch irgendwie bleibt das Gefühl, das hier was nicht rund läuft.

Jedesmal wenn ich das Webinterface aufrufe kommt:

Code Auswählen Erweitern

2021.02.01 10:42:56 1: PERL WARNING: Use of uninitialized value in concatenation (.) or string at ./FHEM/95_Babble.pm line 2038.
2021.02.01 10:42:56 1: eval: {Babble_Html("Babble")}
2021.02.01 10:42:56 1: stacktrace:
2021.02.01 10:42:56 1:     main::__ANON__                      called by ./FHEM/95_Babble.pm (2038)
2021.02.01 10:42:56 1:     main::Babble_Html                   called by (eval 47018) (1)
2021.02.01 10:42:56 1:     (eval)                              called by fhem.pl (1146)
2021.02.01 10:42:56 1:     main::AnalyzePerlCommand            called by ./FHEM/98_weblink.pm (106)
2021.02.01 10:42:56 1:     main::weblink_FwFn                  called by ./FHEM/01_FHEMWEB.pm (2055)
2021.02.01 10:42:56 1:     main::FW_showRoom                   called by ./FHEM/01_FHEMWEB.pm (1169)
2021.02.01 10:42:56 1:     main::FW_answerCall                 called by ./FHEM/01_FHEMWEB.pm (596)
2021.02.01 10:42:56 1:     main::FW_Read                       called by fhem.pl (3818)
2021.02.01 10:42:56 1:     main::CallFn                        called by fhem.pl (759)
2021.02.01 10:42:56 1: PERL WARNING: Use of uninitialized value in concatenation (.) or string at ./FHEM/95_Babble.pm line 2038.
2021.02.01 10:42:56 1: eval: {Babble_Html("Babble")}
2021.02.01 10:42:56 1: stacktrace:
2021.02.01 10:42:56 1:     main::__ANON__                      called by ./FHEM/95_Babble.pm (2038)
2021.02.01 10:42:56 1:     main::Babble_Html                   called by (eval 47019) (1)
2021.02.01 10:42:56 1:     (eval)                              called by fhem.pl (1146)
2021.02.01 10:42:56 1:     main::AnalyzePerlCommand            called by ./FHEM/98_weblink.pm (106)
2021.02.01 10:42:56 1:     main::weblink_FwFn                  called by ./FHEM/01_FHEMWEB.pm (2055)
2021.02.01 10:42:56 1:     main::FW_showRoom                   called by ./FHEM/01_FHEMWEB.pm (1169)
2021.02.01 10:42:56 1:     main::FW_answerCall                 called by ./FHEM/01_FHEMWEB.pm (596)
2021.02.01 10:42:56 1:     main::FW_Read                       called by fhem.pl (3818)
2021.02.01 10:42:56 1:     main::CallFn                        called by fhem.pl (759)


Wenn ich "set Babble test" laufen lassen kommen bei ca. 10-20% der Tests Stacktraces - die meisten mehrfach: Hier alle Unterschiedlichen:

Code Auswählen Erweitern

2021.02.01 10:43:59 1: [Babble_DoIt] Command wetter.none.sagen.wetter/morgen undefined, reply = Es tut mir leid, das habe ich nicht verstanden
2021.02.01 10:43:59 1: PERL WARNING: Use of uninitialized value in pattern match (m//) at ./FHEM/95_Babble.pm line 768.
2021.02.01 10:43:59 1: stacktrace:
2021.02.01 10:43:59 1:     main::__ANON__                      called by ./FHEM/95_Babble.pm (768)
2021.02.01 10:43:59 1:     main::Babble_Normalize              called by ./FHEM/95_Babble.pm (1111)
2021.02.01 10:43:59 1:     main::Babble_DoIt                   called by ./FHEM/95_Babble.pm (548)
2021.02.01 10:43:59 1:     main::Babble_Test                   called by ./FHEM/95_Babble.pm (395)
2021.02.01 10:43:59 1:     main::Babble_Set                    called by fhem.pl (3813)
2021.02.01 10:43:59 1:     main::CallFn                        called by fhem.pl (1919)
2021.02.01 10:43:59 1:     main::DoSet                         called by fhem.pl (1951)
2021.02.01 10:43:59 1:     main::CommandSet                    called by fhem.pl (1251)
2021.02.01 10:43:59 1:     main::AnalyzeCommand                called by ./FHEM/01_FHEMWEB.pm (2721)
2021.02.01 10:43:59 1:     main::FW_fC                         called by ./FHEM/01_FHEMWEB.pm (991)
2021.02.01 10:43:59 1:     main::FW_answerCall                 called by ./FHEM/01_FHEMWEB.pm (596)
2021.02.01 10:43:59 1:     main::FW_Read                       called by fhem.pl (3818)
2021.02.01 10:43:59 1:     main::CallFn                        called by fhem.pl (759)

2021.02.01 10:43:59 1: PERL WARNING: Use of uninitialized value $device in string eq at ./FHEM/95_Babble.pm line 834.
2021.02.01 10:43:59 1: stacktrace:
2021.02.01 10:43:59 1:     main::__ANON__                      called by ./FHEM/95_Babble.pm (834)
2021.02.01 10:43:59 1:     main::Babble_Normalize              called by ./FHEM/95_Babble.pm (1111)
2021.02.01 10:43:59 1:     main::Babble_DoIt                   called by ./FHEM/95_Babble.pm (549)
2021.02.01 10:43:59 1:     main::Babble_Test                   called by ./FHEM/95_Babble.pm (395)
2021.02.01 10:43:59 1:     main::Babble_Set                    called by fhem.pl (3813)
2021.02.01 10:43:59 1:     main::CallFn                        called by fhem.pl (1919)
2021.02.01 10:43:59 1:     main::DoSet                         called by fhem.pl (1951)
2021.02.01 10:43:59 1:     main::CommandSet                    called by fhem.pl (1251)
2021.02.01 10:43:59 1:     main::AnalyzeCommand                called by ./FHEM/01_FHEMWEB.pm (2721)
2021.02.01 10:43:59 1:     main::FW_fC                         called by ./FHEM/01_FHEMWEB.pm (991)
2021.02.01 10:43:59 1:     main::FW_answerCall                 called by ./FHEM/01_FHEMWEB.pm (596)
2021.02.01 10:43:59 1:     main::FW_Read                       called by fhem.pl (3818)
2021.02.01 10:43:59 1:     main::CallFn                        called by fhem.pl (759)

Der Patternmatch kommt meist mehrfach hintereinander und der $device dann am Schluss der Serie.

Sicher nichts dringendes, aber wer weiß, vielleicht entsteht daraus ja doch das ein oder andere undeterministische Verhalten.

Gruß,
Jörg

[Prof. Dr. Peter Henning]

Bitte welche Version? (get version)

LG

pah

[Adimarantis]

babble.version => 1.42

Gruß
Jörg

[Adimarantis]

Ich hätte auch noch ein Anwendungsfrage:

Intuitiv habe ich "Wie ist die Temperatur Draußen?" (mit Fragezeichen) geschrieben. Auch mit Leerzeichen dazwischen mag er das nicht. Kann man Babble das beibringen?
Alternativ überlege ich in der Babble Integration meines Signalbot (https://forum.fhem.de/index.php/topic,118370.0.html) eventuelle Fragezeichen einfach wegzufiltern. Sauberer wäre es aber in der Babble Config.

Gruß,
Jörg

[Prof. Dr. Peter Henning]

Fragezeichen filtere ich bewusst nicht heraus - das benötige ich für meine Eliza-Komponente im Chatbot.

Alternativ überlege ich in der Babble Integration meines Signalbot

So sollte es m.E. sein. Edit: Allerdings lässt sich das auch bequem in der Babble-Attribut "presubs" unterbringen.

LG

pah

[Jamo]

Hallo Pah,
ich habe Babble gerade installiert, bekomme aber kein kein ergebnis beim Babble Test.  Zum Beispiel :"Schalte das Licht im Wohnzimmer an" liefert ein "result undefined". Es ist egal welchen Satz ich Testen will, keiner liefert ein Ergebnis. Ich erhalte folgende Logausgabe:

Code Auswählen Erweitern

2021.02.09 21:46:53 1: [Babble_DoIt] Command licht.none.schalten.im/ undefined, reply =

Liegt das evtl an den room definitionen: allrooms->schlafzimmer?

Zur info:

Code Auswählen Erweitern

libjson-perl is already the newest version (4.02000-1).
Debian 10.7 Buster
attr WEB JavaScripts www/pgm2/babble.js ist gesetzt
babble.version => 1.42
reboot nach der Installation habe ich auch gemacht

Was kann ich noch an info liefern?
Hier im list sind die room definitionen etwas zusammengestrichen.

Code Auswählen Erweitern

Internals:
   FUUID      61234-1234-1234-1234-56c123212348b8a2
   NAME       Babble
   NR         3289
   STATE      Initialized
   TYPE       Babble
   VERSION    1.42
   DATA:
     commands   
     re_articles ((der)|(die)|(das)|(den)|(des)|(dem)|(zur))
     re_devs    ((beleuchtung))
     re_ids     ((hallo))
     re_places  ((favourites)|(media)|(alarme)||(allrooms->schlafzimmer)|(schlafzimmer))
     re_prepos  ((von)|(vom)|(des)|(der)|(in)|(im)|(auf)|(bei)|(am))
     re_quests  ((wie)|(wo)|(wann))
     re_status  ((status)|(wert)|(wetter)|(zeit))
     re_times   ((heute)|(morgen)|(übermorgen)|(nacht))
     re_verbparts ((zu)|(auf)|(ent)|(wider)|(ein)|(an)|(aus)|(ab)|(um))
     re_verbsc  ((schalten)|(schalt)|(schalte))
     re_verbsi  (?P<verbsi>(schalten))
     re_writes  ((status)|(wert)|(wetter)|(zeit))
     savedate   2021-02-09 21:53:09
     articles:
       der
       die
       das
       den
       des
       dem
       zur
     command:
       beleuchtung:
         none:
           schalten:
         schalter:
           schalten:
         schlafzimmer:
           schalten:
     devcontacts:
       beleuchtung:
         Beleuchtung
         Schalter_USBett
         0
     devs:
       Beleuchtung
     devsalias:
       beleuchtung:
         0
     help:
       beleuchtung Bitte sprich: Beleuchtung, gefolgt von anschalten, ausschalten
     places:
       Favourites
       Media
       Alarme
       Schlafzimmer
     prepos:
       von
       vom
       des
       der
       in
       im
       auf
       bei
       am
     quests:
       wie
       wo
       wann
     rooms:
       Favourites
       Media
       Alarme
   AllRooms->Schlafzimmer
       deCONZ
     splaces:
       Schlafzimmer
     status:
       Status
       Wert
       Wetter
       Zeit
     times:
       heute
       morgen
       übermorgen
       nacht
     verbparts:
       zu
       auf
       ent
       wider
       ein
       an
       aus
       ab
       um
     verbs:
       schalt     schalten
       schalte    schalten
       schalten   schalten
     verbsi:
       schalten
     verbsicc:
       ARRAY(0x55d25ed80a00)
     writes:
       Status
       Wert
       Wetter
       Zeit
   READINGS:
     2021-02-09 21:53:10   cmd             none => Help text =
     2021-02-09 21:03:25   lockstate       0
     2021-02-09 21:53:09   savedate        2021-02-09 21:53:09
     2021-02-09 21:05:47   state           Initialized
     2021-02-09 21:53:10   text            Schalte das Licht im Wohnzimmer an
Attributes:
   babbleArticles der die das den des dem zur
   babblePlaces Schlafzimmer
   babblePrepos von vom des der in im auf bei am
   babbleQuests wie wo wann
   babbleStatus Status Wert Wetter Zeit
   babbleTimes heute morgen übermorgen nacht
   babbleVerbParts zu auf ent wider ein an aus ab um
   babbleVerbs schalt,schalte:schalten
   babbleWrites setzen ändern löschen

Danke!

[Prof. Dr. Peter Henning]

Liegt das evtl an den room definitionen: allrooms->schlafzimmer?

Ja, zumindest ist das ein Fehler. Die Menüstruktur des FHEM-Hauptmenüs gehört dort nicht hinein.

LG

pah

[Jamo]

Hallo Pah,
danke, ja die wurden vom BabbleDevice automatisch angelegt, weil ich die so definiert hatte um eine übersichtlichere Menuestruktur im FHEM WEB zu erhalten. Wird ja auch von FHEM so unterstützt. Allerdings erhalte ich beim testen auch kein Ergebnis, wenn ich gar keinen Raum angebe. Also ein Test mit "Schalte das Licht an" liefert ebenfalls ein "result undefined".

Ich hatte das Babbledevice auch schon gelöscht und neu angelegt, und auch die Language Settings von EN -> DE umgestellt. Aber das betrifft ja nur die Ausgabe. Rive habe ich nicht installiert, laut Anleitung ist das auch nicht nötig.

Kann ich sonst nochwas machen? Das babble.js muss nur im Verzeichnis vorhanden sein, oder muss man das noch irgendwie installieren (ausser "attr WEB JavaScripts www/pgm2/babble.js")?

Beste Grüsse, Jamo

[Prof. Dr. Peter Henning]

Wundert mich. Ich habe gerade eben auf einem Testsystem ein neues Babble-Device erstellt, ging problemlos. Bitte mal einen Screenshot, nicht des Devices, sondern der Babble-Seite (FHEM Hauptmenü links).

LG

pah

[Jamo]

Hallo Pah,
gerne, Screenshot anbei.
Danke und Grüsse.

[Prof. Dr. Peter Henning]

Na, da fehlen ja auch die Hauptsachen. Schließlich muss man Babble sagen, was es tun soll!

Bitte den Button "Add" betätigen, dann dort Einträge vornehmen und am Ende "Save".

Anbei ein paar Beispiele

pah

[Jamo]

Hallo Pah,
kaum macht man es richtig, gehts.
Allerdings hatte ich irgendwie verstanden, das der Test auch geht wenn man noch keine Devices angelegt hat.
Funktioniert jetzt, dank an Dich!
Beste Grüsse!