!7

concept Log {

  S programID, ip;

  long count, last;

}

static ConceptFieldIndexDesc lastAccessIndex;

p {

  dbSaveEvery(60);

  dbIndexing(Log, 'ip);

  lastAccessIndex = new ConceptFieldIndexDesc(Log, 'last);

  makeSalt();

}

static File saltFile() { ret secretProgramFile("salt"); }

sS salt() { ret trim(loadTextFile(saltFile())); }

svoid makeSalt {

  if (empty(salt())) saveTextFile(saltFile(), aGlobalID());

}

html {

  if (webAuthed(params) && eq(uri, "/logs")) {

    long since = parseLongOpt(params.get("since"));

    //L<Log> l = unlistedCopies(sortedByFieldDesc(Log, 'last));

    Iterator<Log> it = lastAccessIndex.objectIterator();

    new L<Log> l;

    while (l(l) < 500 && it.hasNext()) {

      Log log = it.next();

      if (log.last < since) break;

      l.add(unlistedCopy(log));

    }

    S salt = salt();

    for (Log log : l) log.ip = md5(log.ip + salt);

    ret serveText(renderConcepts(l));

    //ret serveText(renderConcepts(list(Log)));

  }

  S id = fsI(params.get("id"));

  S ip = clientIP();

  Log log = uniq(Log, +ip, programID := id);

  cset(log, count := log.count+1, last := now());

  S md5 = getServerTranspilationMD5(id);

  // if transpilation is outdated, hasServerDex will be false

  if (isMD5(md5) && !hasServerDex(id)) md5 = "-";

  if (isMD5(md5))

    ret md5;

  else

    ret "-";

}