authd/src/main.cr

151 lines
3.2 KiB
Crystal

require "uuid"
require "option_parser"
require "openssl"
require "jwt"
require "ipc"
require "./authd.cr"
require "./passwd.cr"
extend AuthD
class IPC::Connection
def send(type : AuthD::ResponseTypes, payload : String)
send type.to_u8, payload
end
end
authd_passwd_file = "passwd"
authd_group_file = "group"
authd_jwt_key = "nico-nico-nii"
OptionParser.parse! do |parser|
parser.on "-u file", "--passwd-file file", "passwd file." do |name|
authd_passwd_file = name
end
parser.on "-g file", "--group-file file", "group file." do |name|
authd_group_file = name
end
parser.on "-K file", "--key-file file", "JWT key file" do |file_name|
authd_jwt_key = File.read(file_name).chomp
end
parser.on "-h", "--help", "Show this help" do
puts parser
exit 0
end
end
passwd = Passwd.new authd_passwd_file, authd_group_file
##
# Provides a JWT-based authentication scheme for service-specific users.
IPC::Service.new "auth" do |event|
if event.is_a? IPC::Exception
puts "oh no"
pp! event
next
end
client = event.connection
case event
when IPC::Event::Message
message = event.message
payload = message.payload
case RequestTypes.new message.type.to_i
when RequestTypes::GetToken
begin
request = GetTokenRequest.from_json String.new payload
rescue e
client.send ResponseTypes::MalformedRequest.value.to_u8, e.message || ""
next
end
user = passwd.get_user request.login, request.password
if user.nil?
client.send ResponseTypes::InvalidCredentials.value.to_u8, ""
next
end
client.send ResponseTypes::Ok.value.to_u8,
JWT.encode user.to_h, authd_jwt_key, JWT::Algorithm::HS256
when RequestTypes::AddUser
begin
request = AddUserRequest.from_json String.new payload
rescue e
client.send ResponseTypes::MalformedRequest.value.to_u8, e.message || ""
next
end
if passwd.user_exists? request.login
client.send ResponseTypes::InvalidUser, "Another user with the same login already exists."
next
end
user = passwd.add_user request.login, request.password
client.send ResponseTypes::Ok, user.to_json
when RequestTypes::GetUserByCredentials
begin
request = GetUserByCredentialsRequest.from_json String.new payload
rescue e
client.send ResponseTypes::MalformedRequest, e.message || ""
next
end
user = passwd.get_user request.login, request.password
if user
client.send ResponseTypes::Ok, user.to_json
else
client.send ResponseTypes::UserNotFound, ""
end
when RequestTypes::GetUser
begin
request = GetUserRequest.from_json String.new payload
rescue e
client.send ResponseTypes::MalformedRequest, e.message || ""
next
end
user = passwd.get_user request.uid
if user
client.send ResponseTypes::Ok, user.to_json
else
client.send ResponseTypes::UserNotFound, ""
end
when RequestTypes::ModUser
begin
request = ModUserRequest.from_json String.new payload
rescue e
client.send ResponseTypes::MalformedRequest, e.message || ""
next
end
password_hash = request.password.try do |s|
Passwd.hash_password s
end
avatar = request.avatar
passwd.mod_user request.uid, password_hash: password_hash, avatar: avatar
client.send ResponseTypes::Ok, ""
end
end
end