!7

concept Suggestion {
  long date;
  S text;
  S author;
  S actionCode;
}

static Suggestion showing;
static ReliableSingleThread rstUpdate = new(f updateImpl);

p {
  db();
  bot("Suggestion Master.");
}

answer {
  if "* suggests * with action *" {
    cnew(Suggestion, date := now(), text := $2, author := $1, actionCode := 3);
    rstUpdate!;
  }
}

svoid updateImpl {
  Suggestion latest = highestByField(list(Suggestion), 'date);
  if (latest != showing) {
    showing = latest;
    showSuggestion(showing, r { optimizedJavaEval(showing.actionCode) });
  }
}