class AuthD::Request IPC::JSON.message AddUser, 1 do # Only clients that have the right shared key will be allowed # to create users. property shared_key : String property login : String property password : String property email : String? = nil property phone : String? = nil property profile : Hash(String, JSON::Any)? = nil def initialize(@shared_key, @login, @password, @email, @phone, @profile) end def handle(authd : AuthD::Service) # No verification of the users' informations when an admin adds it. # No mail address verification. if @shared_key != authd.configuration.shared_key return Response::Error.new "invalid authentication key" end if authd.users_per_login.get? @login return Response::Error.new "login already used" end if authd.configuration.require_email && @email.nil? return Response::Error.new "email required" end password_hash = authd.hash_password @password uid = authd.new_uid user = User.new uid, @login, password_hash user.contact.email = @email unless @email.nil? user.contact.phone = @phone unless @phone.nil? @profile.try do |profile| user.profile = profile end # We consider adding the user as a registration user.date_registration = Time.local authd.users << user Response::UserAdded.new user.to_public end end AuthD.requests << AddUser IPC::JSON.message ModUser, 5 do property shared_key : String property user : Int32 | String property password : String? = nil property email : String? = nil property phone : String? = nil property avatar : String? = nil def initialize(@shared_key, @user) end def handle(authd : AuthD::Service) if @shared_key != authd.configuration.shared_key return Response::Error.new "invalid authentication key" end uid_or_login = @user user = if uid_or_login.is_a? Int32 authd.users_per_uid.get? uid_or_login.to_s else authd.users_per_login.get? uid_or_login end unless user return Response::Error.new "user not found" end @password.try do |s| user.password_hash = authd.hash_password s end @email.try do |email| user.contact.email = email end @phone.try do |phone| user.contact.phone = phone end authd.users_per_uid.update user.uid.to_s, user Response::UserEdited.new user.uid end end AuthD.requests << ModUser end