!7

cmodule AssistantWebServer > DynPrintLog {
  int httpPort = 8083;
  
  start-thread {
    dm_serveHttpFromFunction(httpPort, func(S uri, SS params) {
      if (eq(uri, "/register"))
        ret serveText((S) dm_call(dm_assistant_usersCRUD(), 'registerUser, params.get('email), params.get('pwHash)));

      if (eq(uri, "/checkPW")) {
        S mail = params.get('email);
        if (!isValidEmailAddress(mail))
          ret serveText("Not a valid email address");
        S userID = cast dm_call(dm_assistant_usersCRUD(), 'userIDForEmail, mail);
        if (userID == null)
          ret serveText("User not found");
        bool ok = cast dm_call(dm_assistant_passwordsCRUD(), 'checkPassword, userID, params.get('pwHash));
        ret serveText(ok ? "OK" : "Bad password");
      }

      ret "blubbi";
    });
  }
}