!7

static int id = 1200000;

concept FileMeta {
  int fileID;
  S name;
  S md5; // md5 of RGBImage
  
  *() {}
  *(int *fileID, S *name) { _doneLoading(); change(); }
  
  void _doneLoading() {
    //print("_doneLoading " + fileID);
    metaMap.put(fileID, this);
  }
}

static Map<Int, FileMeta> metaMap = synchroMap();

p {
  load("id");
  concepts();
}

svoid setMD5(FileMeta meta) {
  if (nempty(meta.md5)) ret;
  S md5 = "error";
  pcall {
    md5 = md5(fileFile(meta.fileID));
  }
  cset(meta, +md5);
}

static File filesDir() {
  ret prepareProgramDir("files");
}

synchronized html {
  print("uri: " + uri);
  uri = dropPrefix("/", uri);
  
  if (isInteger(uri)) {
    if (neq(masterPW(), params.get("_pass")) && !webAuthed()) ret "";
    int id = parseInt(uri);
    FileMeta c = findConcept(FileMeta, fileID := id);
    if (nempty(params.get("remd5"))) {
      cset(c, md5 := null);
      setMD5(c);
    }
    File file = fileFile(id);
    ret addHeader("Content-Disposition", "attachment; filename=" + quote(c.name),
      call(getMainBot(), "serveFile", file, "application/binary"));
  }
  
  if (!webAuthed()) ret ahref(relativeBotLink(#1002590), "please log in");
  
  if (uri.startsWith("md5/")) {
    uri = dropPrefix("md5/", uri);
    FileMeta meta = findConcept(FileMeta, md5 := uri);
    if (meta == null)
      ret "Not found";
    ret call(getMainBot(), "serveFile_maxCache", fileFile(meta.fileID), "application/binary");
  }
  
  // finds a file by md5
  if (uri.startsWith("checkmd5/")) {
    uri = dropPrefix("checkmd5/", uri);
    FileMeta meta = findConcept(FileMeta, md5 := uri);
    ret meta == null ? "Not found" : str(meta.fileID);
  }
  
  if (eq(uri, "upload")) {
    print("upload called");
    S name = params.get("name");
    
    SS files = getUploadFiles();
    print("got files: " + l(files));
    int id;
    S data = params.get("data");
    if (data != null) {
      print("got data: " + l(data));
      id = newfileID();
      saveBinaryFile(fileFile(id), hexToBytes(data));
    } else {
      String tmpfile = files.get("thefile");
      String originalName = params.get("thefile");
      name = or2(name, originalName);
      assertNotNull(tmpfile);
      File tmp = new File(tmpfile);
      long l = tmp.length();
      if (l == 0) ret "Empty file, exiting";
      id = newfileID();
      copyFile(tmp, fileFile(id));
    }
    setMD5(new FileMeta(id, unnull(name)));
    ret hrefresh(2, rawLink()) + p("OK:<br>" + ahref(rawLink(str(id)), or2(name, "?")))
      + ahref(rawLink(), "[back]");
  }
  
  if (eq(uri, "uploadform")) ret htitle("Upload")
    + hmobilefix()
    + uploadform();
  
  if (eq(uri, "")) {
    // main list
    
    S msg = "";
    S woodyID = params.get("woodyid");
    if (nempty(woodyID)) {
      woodySetBotID(woodyID);
      S reload = askSelf("reload sub bot #1008855");
      msg = "Aktiver Woody jetzt: " + woodyGetBotID()
        + " Reload-Ergebnis: " + reload;
    }
  
    new L<int> ids;
    for (File f : listFiles(filesDir())) try {
      S s = /*dropSuffix(".png",*/ f.getName() /*)*/;
      if (!isInteger(s)) continue;
      int id = parseInt(s);
      ids.add(id);
    } catch e {
      silentException(e);
    }
    sortListDesc(ids);
    ret (nempty(msg) ? p(msg) : "")
      + p(ahref("http://botcompany.de", "Zu BotCompany.de")
      + " | " + ahref("http://mech.tinybrain.de", "Basis-Bot"))
      + h3("Upload") + uploadform()
      + "<hr>" + h3("Aktiver Woody")
      + hpostform(
          hselect(pairsToOrderedMap(
          map(func(Int id) -> Pair<Int, S> { 
            FileMeta meta = metaMap.get(id);
            S title = or2(getString(meta, "name"), "Untitled");
            ret pair(id, "#" + id + " - " + title);
          }, ids)), parseSnippetIDOpt(woodyGetBotID()), name := "woodyid")
        + " " + hsubmit("OK"))
      + "<hr>"
      + p(n(ids, "File") + (empty(ids) ? "." : ":")) + ul(map(ids, func(Int id) -> S {
      FileMeta meta = metaMap.get(id);
      S title = or2(getString(meta, "name"), "Untitled");
      S linkText = "#" + id + " - " + htmlencode(title);
      S s = ahref(rawLink(str(id)), linkText);
      s += " " + n(fileSize(fileFile(id)), "byte");
      if (meta != null)
        s += " [md5: " + ahref(rawLink("md5/" + meta.md5), meta.md5) + "]";
      ret s;
    })) 
      //+ p(ahref(pageLink("/uploadform"), "Upload a file"))
      ;
  }
  
  null;
}

static synchronized int newfileID() {
  while (fileFile(id).exists())
    ++id;
  int i = id++;
  save("id");
  ret i;
}

static File fileFile(int id) {
  ret new File(filesDir(), str(id));
}

sS uploadform() {
  ret huploadform(
        p("File to upload: " + hfileupload())
      + p("Optional name: " + hinputfield("name"))
      + p(hsubmit("OK")),
      "action", rawLink("upload"));
}

Began life as a copy of #1004590