!7

concept Log {
  S programID, ip;
  long count, last;
}

p {
  dbIndexing(Log, 'ip);
}

html {
  if (webAuthed() && eq(uri, "/logs")) {
    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 (isMD5(md5) && !hasServerDex(id)) md5 = "-";
  
  if (isMD5(md5))
    ret md5;
  else
    ret "-";
}