!7

sS denkmodulID = #1013938;
sO denkmodul;

static long timeout = 60000;
static int interval = 50;
static double codeUpdateInterval = 60.0;
sS listName = "Katze Speech Recognition Log With Date";
sS outListName = "Katze | Things the phone should say";

p {
  doEvery(100, f update);
  temp tempSetTL(autoRestartModule_checkInterval, codeUpdateInterval);
  runInMCVarWithAutoRestart('denkmodul, denkmodulID);
}

static int lastLength = -1;
  
svoid update {
  S data = mL_onServer_rawListText_opt(listName);
  if (lastLength < 0) lastLength = l(data);
  if (l(data) > lastLength) {
    S newStuff = substring(data, lastLength);
    lastLength = l(data);
    L<S> inputLines = map dropLeadingSquareBracketStuff(whereLeadingSquareBracketStuffContains("phone", nempties(lines(newStuff))));
    print("Cat Thinking");
    new L<S> out;
    for (S s : inputLines) {
      S a = "";
      printIndent(s);
      pcall { a = callAnswerFunction(denkmodul, s); }
      if (nempty(a)) {
        out.add(a);
        printIndent(" >> " + a);
      }
    }
    appendToMechList(outListName, out);
  }
}