<br />
<b>Warning</b>:  session_start(): open(/var/lib/php/sessions/sess_eihjce1j9pqh6ob0u438pp1evr, 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 />
!7

static double aiConceptsCacheInterval = 30;

sS searchQueriesUniverse = "crefwbbhvngkmicy";

concept Search {
  S q, ip;
}

p {
  db();
  //loadAIConcepts_alwaysFromDisk = true;
  startAIConceptsHere();
  startTruthTableHere();
}

html {
  print("Wiki URI: " + uri);
  S vis = registerVisitor();
  uri = dropSuffix("/", uri);
  uri = dropPrefix("/", uri);
  
  if (eq(uri, "sleep")) {
    sleepSeconds(5);
    ret "Slept 5, just for you.";
  }
  
  S q = trim(params.get("q"));
  if (nempty(q)) {
    cset(uniq(Search, +q, ip := getClientIP()), lastSeen := now());
    if (findAIConceptByNameIC(q) == null) {
      createAIConcept(q, searchQueriesUniverse);
      //if (!loadAIConcepts_alwaysFromDisk) clearAICaches();
    }
  }
    
  if (eq(uri, "import")) {
    triggerStandardAIImport();
    ret "OK" + hrefresh(1, "/wiki/");
  }
  
  if (eq(uri, "export")) {
    triggerStandardAIExport();
    ret "OK" + hrefresh(1, "/wiki/");
  }
  
  if (eq(uri, "searches")) {
    ret htitle_h2("Latest Searches") 
      + htable(map(func(Search s) { litorderedmap(Query := dynamize(s.q),
      IP := dynamize(s.ip)) }, takeFirst(10, sortedByFieldDesc("lastSeen", list(Search)))), false);
  }
  
  aiConceptsMap_clearCache(aiConceptsCacheInterval);
  final Map<S, AIConcept> map = aiConceptsMap_cached();
    
  if (possibleGlobalID(uri))
    ret renderConcept(uri);

  S results = "";
    
  if (nempty(q)) {
    L<AIConcept> l = imSearch(q);
    if (empty(l))
      results = h3("No search results for " + htmlencode(quote(q)));
    else
      results = h3("Search results for " + htmlencode(quote(q)))
        + ul(map(f aiConceptToHTML, l));
  }
  
  L<AIConcept> l = sortedByFieldDesc(values(map), "touched");
  
  S search =
      p("Search term, question or statement:", style := "margin-top: 40px")
    + hform(htextinput("q", q, autofocus := 1, style := "text-align: center") + " " + hsubmit("Go"));
    
  S auth = "";
  if (webAuthed())
    auth = " " + ahref("/wiki/import", "Import.")
      + " " + getExportSnippetID(aiConceptsProgram()) + "/"
      + getExportSnippetID(truthTableProgram()) + ". "
      + ahref("/wiki/export", "Export.");
    
  S line = "See " + ahref("https://www.youtube.com/watch?v=gTlgZkc95IU", "Video") + ". " + ahref("http://ai1.lol/new", htmlencode("More videos & articles")) + "."
    + auth;
    
  bool all = nempty(params.get("all"));
  L<AIConcept> conceptsToShow = all ? l : selectRandomUpTo(l, 100);
  S concepts = ul(map(f aiConceptToHTML, conceptsToShow));

  L<Statement> statements = reversed(loadTruth_cached()); 
  S relations = ul(map(f statementToHTML, statements));

  ret htitle("Intelligence Machine")
    + hcenter2(
        p(ahref("http://ai1.lol/", hTBImage(#1007526, "title", "Intelligence Machine")))
      + p(hsmall("Yes, this is early, but it will work really soon :-) " + ahref("http://tinybrain.de/1007510", "Source.")))
      + search)
    + (empty(line) ? "" : p(line))
    + results
    + htableRaw_valignTop(ll(ll(
      h3(
        (all ? "Concepts (" + lstr(l) 
        : "Random Concepts (" + l(conceptsToShow) + " of " + ahref("?all=1", l(l)))
        + ")") + concepts, 
      h3("Relations (" + l(statements) + ")") + relations)), "border", "0")
    + hcenter2(p(hsmall(dropIncluding(vis, "<br>"))));
}

static S aiConceptToHTML(AIConcept c) {
  ret (nempty(c.imageMD5) ? "[w/image] " :
    hasSuggestedImage(c) ? "[w/sugg. image] " : "") +
    dynamize(c.globalID) + " - " + htmlencode(aiConceptToString2(c));
}

static S statementToHTML(Statement s) {
  ret ahref("http://ai1.lol/" + s.globalID, "*") + " " + dynamize(or2(s.possibleEnglishTranslation, "?") + " - " + s.text);
}

sS renderConcept(S uri) {
  // Serve concept
  
  final Map<S, AIConcept> map = aiConceptsMap_cached();
  final AIConcept c = map.get(toLower(uri));
  if (c == null) {
    Statement st = findWhere(loadTruth_cached(), globalID := toLower(uri));
    if (st != null) ret renderStatement(st, params);
    else ret "Concept not found: " + toLower(uri);
  }
  
  S html = htitle(c.name + " [" + 
    (nempty(c.comment) ? c.comment + " / " : "") + c.globalID + "]")
    + h2(htmlencode(aiConceptToString(c)));
  
  /*html += ul(
    "Image MD5: " + htmlencode(c.imageMD5)
  );*/
  
  if (nempty(c.imageMD5) && imageServerHas(c.imageMD5))
    html += p(himg(imageServerLink(c.imageMD5)));
    
  if (hasSuggestedImage(c)) {
    BufferedImage img = c.suggestedImage->getImage();
    uploadToImageServerIfNotThere(img, aiConceptToString(c));
    html += h3("Suggested image (from Google search)") + p(himg(imageServerLink(imageMD5(img))));
  }
    
  //L<S> statements = [S s : trueStatements_cached() | containsIgnoreCase(s, c.globalID)];
  L<Statement> statements = [Statement s : loadTruth_cached() | containsIgnoreCase(s.text, c.globalID)];
  if (nempty(statements))
    html += h3("Statements about this") + ul(map(f statementToHTML, statements));

  html += p(ahref("http://ai1.lol/wiki", "[All Concepts]"));
  
  ret html;
}

sS renderStatement(Statement st, SS params) {
  if (nempty(params.get("retranslate"))) {
    RemoteDB db = new RemoteDB(truthTableProgram());
    db.xset(rc(st.id), possibleEnglishTranslation := null);
    db.close();
    st.possibleEnglishTranslation = null;
  }
  
  bool hasTranslation = nempty(st.possibleEnglishTranslation);
  S html = htitle_h2("Statement " + st.globalID)
    + ul(
      "English (machine-generated): " + dynamize(or2(st.possibleEnglishTranslation, "?")),
      "Computer Language: " + dynamize(st.text))
    + (hasTranslation ? "" : p(ahref("?retranslate=1", "Request retranslation")));
  html += p(ahref("http://ai1.lol/wiki", "[Home]"));
  ret html;
}