!7

html {
  if (webAuthed()) {
    if (eq(uri, "/clean")) {
      ret n(killThreadsOfExpiredMainClasses(), "thread") + " killed";
    }
  }
  new L<S> l;
  for (Class c : allMainClasses()) {
    S s = className(c);
    RuntimeException e = null;
    //s += ", " + str(callOpt(c, 'getProgramID));
    s += ", " + getOpt(c, 'programID);
    pcall {
      e = (RuntimeException) callOpt(c, 'asRuntimeException, new Exception);
    }
    if (e != null) s += ", " + firstFileNameFromStackTrace(e);
    Bool lic = cast getOpt(c, 'licensed_yes);
    if (eq(lic, true)) {} // licensed
    else s += ", license: " + lic;
    l.add(s);
  }
  ret ul_htmlEncode(l);
}