<br />
<b>Warning</b>:  session_start(): open(/var/lib/php/sessions/sess_jr3trl3iqs1lf01538n7b4hs8m, O_RDWR) failed: No space left on device (28) in <b>/var/www/tb-usercake/models/config.php</b> on line <b>51</b><br />
<br />
<b>Warning</b>:  session_start(): Failed to read session data: files (path: /var/lib/php/sessions) in <b>/var/www/tb-usercake/models/config.php</b> on line <b>51</b><br />
!752

// must be run together with sub-bot #1002185 (queries the
// slack slurper's database)

static class SlackMsg {
  S user, botName; // one of these is going to be set
  S userName; // looked up if user != null
  S type, text, ts;
  O reactions;
  S channelID;
}

static O mainBot;

p {
  makeBot("Slack Answerer (about msgs)");
}

synchronized answer {
  O slurper = getBot("#1002185");
  
  if (match("what was the * msg in #*", s, m)
    || match("what was msg * in #*", s, m)) exceptionToUser {
    S what = m.unq(0);
    S channelName = "#" + m.unq(1);
    List log = cast call(slurper, "getLog", channelName);
    if (empty(log))
      ret "The channel is empty or unslurped.";
    O e;
    try {
      int i = elementIndexFromNL(log, what);
      e = get(log, i);
    } catch (Throwable x) {
      ret exceptionToUser(x);
    }
    ret e == null ? "No msg found, sorry" : structure(e); // structure of msg
  }
  
  if "how many messages in *" exceptionToUser {
    S channelName = "#" + m.unq(0);
    List log = cast call(slurper, "getLog", channelName);
    ret lstr(log);
  }
}

static int elementIndexFromNL(L l, S s) {
  new Matches m;
  
  // matches stuff like "5" or "5th" or "52nd"
  S n = get(javaTok(s), 1);
  if (isInteger(n))
    ret parseInt(n)-1;
  
  // matching on s
  
  if "first" ret 0;
  if "last" ret l(l)-1;
  if "second" ret 1;
  if "second to last" ret l(l)-2;

  throw fail("What is " + quote(s) + "?");
}