!752

sclass Poem {
  long created, modified;
  long id;
  S title, text;
  
  *() {
    modified = created = now();
  }
}

static PersistentMap<Long, Poem> poems; // key = id
static long nextID = 1100000;

p {
  poems = new PersistentMap("poems");
  load("nextID");
}

synchronized html {
  if (eq(uri, "/save")) {
    S title = params.get("title");
    S text = params.get("text");
    long id = parseLong(or2(params.get("id"), "0"));
    
    new Poem p;
    p.id = id;
    p.title = unnull(title);
    p.text = unnull(text);
    id = savePoem(p);
    
    ret hrefresh(pageLink(""));
  }
  
  if (eq(uri, "/create") || eq(uri, "/edit")) {
    new Poem p;
    if (eq(uri, "/edit")) {
      long id = parseLong(params.get("id"));
      p = poems.get(id);
      if (p == null) ret "Poem " + id + " not found";
    }
    new StringBuilder buf;
    if (p.id != 0) {
      buf.append(tr(tdTop("ID") + tdTop(p.id)));
      buf.append(hhidden("id", p.id));
    }
    buf.append(tr(tdTop("Title") + tdTop(htextinput("title", unnull(p.title)))));
    buf.append(tr(tdTop("Text") + tdTop(tag("textarea", htmlencode(unnull(p.text)), "name", "text", "rows", "25", "cols", "80"))));
    buf.append(tr(tdTop("") + tdTop(hsubmit("Save poem"))));
    ret tag("form", tag("table", buf), "method", "POST", "action", pageLink("save"));
  }
  
  uri = dropPrefix("/", uri);
  if (isInteger(uri)) {
    // show a poem
    
    long id = parseLong(uri);
    Poem p = poems.get(id);
    if (p == null) ret "Poem " + id + " not found";
    S title = p.id + " - " + p.title; // TODO: set HTML title
    ret h3(htmlencode(title)) + hsourcecode(p.text)
      + p(tag("a", "Edit", "href", pageLink("edit?id=" + id)));
  }
  
  new L l;
  for (Map<S, O> map : objectToMap(values(poems))) {
    new TreeMap m;
    long id = cast map.get("id");
    for (S k : keys(map)) {
      O v = map.get(k);
      if (eq(k, "title"))
        m.put(k, tag("a", htmlencode(v), "href", pageLink(str(id))));
      else if (neq(k, "text"))
        m.put(k, htmlencode(v));
    }
    l.add(m);
  }
  ret hmobilefix()
    + htmlTable(l, false)
    + p(targetBlankLink(pageLink("create"), "Create poem"));
}

ssynchronized long saveText(S text, S title) {
  long id = findText(text);
  if (id != 0) ret id;
  new Poem p;
  p.title = title;
  p.text = text;
  ret savePoem(p);
}

static long findText(S text) {
  Poem p = find(values(poems), "text", text);
  ret p != null ? p.id : 0;
}

ssynchronized long savePoem(Poem p) {
  if (p.id == 0)
    p.id = newID();
  poems.put(p.id, p);
  ret p.id;
}

ssynchronized long newID() {
  long id = nextID;
  ++nextID;
  save("nextID");
  ret id;
}