!7

concept Page {
  S url;
}

concept Entry {
  new Ref<Page> page;
  int count;
  S key, value;
  S ip;
}

static int lines;

p {
  dbIndexingCI(Page, 'url);
  lines = countLines(mySource());
}

set flag NoNanoHTTPD. html {
  S url = domain() + dropTrailingSlash(uri);
  Pair<Page, Bool> pageAndNew = uniqCI2_sync(Page, +url);
  Page page = pageAndNew.a;
  
  S top = p(hsnippetimg(#1101682, width := 565/5, height := 800/5,
                        title := "Robot by Peerro @ DeviantArt"))
      + p(small(b(ahref("http://www.agi.blue", "agi.blue"))
      + " | " + targetBlank(progLink(), "source code") + " of this web site (" + nLines(lines) + ")"));
  
  if (eqicOneOf(url, "agi.blue", "www.agi.blue"))
    ret hhtml(hhead_title("agi.blue Overview")
      + hbody_fullcenter(top + h1("agi.blue Overview")
        + ul(map(func(S _url) -> S {
          ahref("http://" + _url, htmlEncode2(_url))
        }, collect url(list(Page))))
      ));
      
  S key = trim(params.get('key)), value = trim(params.get('value));
  L<Entry> entries = withDBLock(func -> L<Entry> {
    L<Entry> entries = findBackRefs(page, Entry);
    print("Entries: " + l(entries));
    if (nempty(key) && nempty(value)) {
      S ip = subBot_clientIP();
      if (!hasWhereIC(entries, +key, +value, +ip)) {
        print("SAVING");
        entries.add(cnew Entry(+page, +key, +value, +ip, count := l(entries) + 1));
      }
    }
    ret entries;
  });

  sortByFieldInPlace created(entries);
  numberEntriesInConceptField count(entries);
  
  S get = params.get('get);
  if (nempty(get)) {
    Entry e = firstWhereIC(entries, key := get);
    ret serveText(jsonEncode(collect value(llNotNulls(e))));
  }
  
  // input reset
  S key2 = key, value2 = value;
  if (nempty(key) && nempty(value)) key2 = value2 = "";

  new Set<Int> hide;
  if (!eq(params.get('withHidden), "1")) for (Entry e : entries) if (eqic(e.key, 'hide) && isSquareBracketedInt(e.value)) addAll(hide, e.count, parseInt(unSquareBracket(e.value)));
  new MultiMap<Int, S> mm;
  for (Entry e : entries) if (isSquareBracketedInt(e.key)) mm.put(parseInt(unSquareBracket(e.key)), e.value);
  
  ret hhtml(
    hhead_title(url)
    + hbody_fullcenter(
        top + h1(htmlEncode2(url) + (pageAndNew.b ? " [huh????]" : ""))
      + p(nlToBr(lines(map(entries, func(Entry e) -> S {
        hide.contains(e.count) ? "" : "[" + e.count + "] " +
        htmlencode2(e.key) + ": " + b(
          isURL(e.value)
          || cic(mm.get(e.count), "is a URL")
          || regexpMatchesIC("[a-z0-9-]+\\.agi\\.blue", e.value)
            ? ahref(absoluteURL(e.value), htmlencode2(e.value))
            : htmlencode2(e.value)
        ) }))))
      + hpostform(
          h3("Add an entry")
        + "Key: " + hinputfield(key := key2) + " Value: " + hinputfield(value := value2) + "<br><br>" + hsubmit("Add")
        )
      ));
}