!7

concept ALine {
  S token;
  S line;
}

concept ALineToSend > ALine {
}

concept AIncomingLine > ALine {
}

concept AAction > ALine {
  bool verified;
}

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" : "Wrong password");
      }

      // token-based
      
      S token = params.get('token);
      
      if (eq(uri, "/poll") && l(token) == 24) {
      }
      
      if (eq(uri, "/heard") && l(token) == 24) {
        S line = params.get('line);
        if (nempty(line))
          cnew(AIncomingLine, +token, +line);
      }

      ret serveText("hä");
    });
  }
}