filestoraged/src/server/main.cr

309 lines
8.7 KiB
Crystal

require "option_parser"
require "ipc/json"
require "authd"
require "colorize"
require "weird-crystal-base"
require "../common/colors"
# require "../common/filestorage.cr"
# TODO: if the user is disconnected, we should ask him if it still want to process
# for old requests.
#
# Example: the user is on a web page, the connection is broken for some reason.
# The user can still browse the website, change page and discard what
# he was doing. Regardless of the result. With or without finishing to
# upload or download its files.
# TODO:
# * Elegantly handling errors.
# * Store the file, @root/files/UID for example: ./files/UID.
# * Knowing which parts of the files are still to be sent.
# * Rights.
# * Quotas.
require "./storage.cr"
require "./network.cr"
require "dodb"
class Context
class_property verbosity = 1
end
class Log
def self.debug(message)
STDOUT << ":: ".colorize(:green) << message.colorize(:white) << "\n" if ::Context.verbosity > 2
end
def self.info(message)
STDOUT << ":: ".colorize(:blue) << message.colorize(:white) << "\n" if ::Context.verbosity > 1
end
def self.warning(message)
STDERR << "?? ".colorize(:yellow) << message.colorize(:yellow) << "\n" if ::Context.verbosity > 0
end
def self.error(message)
STDERR << "!! ".colorize(:red) << message.colorize(:red) << "\n" if ::Context.verbosity > 0
end
end
class FileStorage::Service < IPC::Server
# List of connected users (fd => uid).
property connected_users = Hash(Int32, Int32).new
# users_status: keep track of the users' status even if they are disconnected,
# allowing the application to handle connection problems.
property users_status : Hash(Int32, UserData) = Hash(Int32, UserData).new
# Actual storage.
getter storage : FileStorage::Storage
getter logged_users : Hash(Int32, AuthD::User::Public)
getter all_connections : Array(Int32)
@auth : AuthD::Client
@auth_key : String
def initialize(storage_directory, @auth_key)
# Data and metadata storage directory.
@storage = FileStorage::Storage.new storage_directory
@logged_users = Hash(Int32, AuthD::User::Public).new
@all_connections = Array(Int32).new
@auth = AuthD::Client.new
@auth.key = @auth_key
super "filestorage"
end
def get_logged_user(event : IPC::Event::Events)
fd = event.fd
@logged_users[fd]?
end
def decode_token(token : String)
@auth.decode_token token
end
def get_user_data(uid : Int32)
@storage.user_data_per_user.get uid.to_s
rescue e : DODB::MissingEntry
entry = UserData.new uid
entry
end
def get_user_data(user : ::AuthD::User::Public)
get_user_data user.uid
end
def update_user_data(user_data : UserData)
@storage.user_data_per_user.update_or_create user_data.uid.to_s, user_data
end
# TODO: could be useful to send notifications.
#def send_notifications(fd : Int32, value : Int32)
# @all_connections.select(&.!=(fd)).each do |fd| ... end
# IPC::Connection.new(fd).send Response::Something.new ...
#end
def run
Log.info "Starting filestoraged"
self.loop do |event|
begin
case event
when IPC::Event::Timer
Log.debug "IPC::Event::Timer"
when IPC::Event::Connection
Log.debug "IPC::Event::Connection: #{event.fd}"
@all_connections << event.fd
when IPC::Event::Disconnection
Log.debug "IPC::Event::Disconnection: #{event.fd}"
fd = event.fd
@logged_users.delete fd
@all_connections.select! &.!=(fd)
@connected_users.select! do |fd, uid|
fd != event.fd
end
when IPC::Event::ExtraSocket
Log.warning "IPC::Event::ExtraSocket: should not happen in this service"
when IPC::Event::Switch
Log.warning "IPC::Event::Switch: should not happen in this service"
# IPC::Event::Message has to be the last entry
# because ExtraSocket and Switch inherit from Message class
when IPC::Event::MessageReceived
Log.debug "IPC::Event::Message: #{event.fd}"
request_start = Time.utc
request = parse_message FileStorage.requests, event.message
if request.nil?
raise "unknown request type"
end
Log.info "<< #{request.class.name.sub /^FileStorage::Request::/, ""}"
response = request.handle self, event
response_type = response.class.name
if response.responds_to?(:reason)
Log.warning ">> #{response_type.sub /^FileStorage::Errors::/, ""} (#{response.reason})"
else
Log.info ">> #{response_type.sub /^FileStorage::Response::/, ""}"
end
#################################################################
# THERE START
#################################################################
# # The first message sent to the server has to be the AuthenticationMessage.
# # Users sent their token (JWT) to authenticate themselves.
# # The token contains the user id, its login and a few other parameters.
# # (see the authd documentation).
# # TODO: for now, the token is replaced by a hardcoded one, for debugging
#
# mtype = FileStorage::MessageType.new event.message.utype.to_i32
#
# # First, the user has to be authenticated unless we are receiving its first message.
# userid = Context.connected_users[event.fd]?
#
# # If the user is not yet connected but does not try to perform authentication.
# if ! userid && mtype != FileStorage::MessageType::Authentication
# # TODO: replace this with an Error message.
# mid = "no message id"
# response = FileStorage::Response.new mid, "Not OK", "Action on non connected user"
# do_response event, response
# end
#
# case mtype
# when .authentication?
# Log.debug "Receiving an authentication message"
# # Test if the client is already authenticated.
# if userid
# user = Context.users_status[userid]
# raise "Authentication message while the user was already connected: this should not happen"
# else
# Log.debug "User is not currently connected"
# hdl_authentication event
# end
#
# when .upload_request?
# Log.debug "Upload request"
# request = FileStorage::UploadRequest.from_json(
# String.new event.message.payload
# )
# response = hdl_upload request, Context.users_status[userid]
# do_response event, response
#
# when .download_request?
# Log.debug "Download request"
# request = FileStorage::DownloadRequest.from_json(
# String.new event.message.payload
# )
# response = hdl_download request, Context.users_status[userid]
# do_response event, response
#
# when .transfer?
# # throw an error if the user isn't recorded
# unless user = Context.users_status[userid]?
# raise "The user isn't recorded in the users_status structure"
# end
#
# transfer = FileStorage::PutChunk.from_json(
# String.new event.message.payload
# )
# response = hdl_transfer transfer, Context.users_status[userid]
#
# do_response event, response
# end
#################################################################
# FINISH
#################################################################
# If clients sent requests with an “id” field, it is copied
# in the responses. Allows identifying responses easily.
response.id = request.id
send event.fd, response
duration = Time.utc - request_start
Log.debug "request took: #{duration}"
when IPC::Event::MessageSent
Log.debug "IPC::Event::MessageSent: #{event.fd}"
else
Log.warning "unhandled IPC event: #{event.class}"
end
rescue exception
Log.error "exception: #{typeof(exception)} - #{exception.message}"
end
end
end
def self.from_cli
storage_directory = "files/"
key = "nico-nico-nii" # Default authd key, as per the specs. :eyes:
timer = 30_000 # Default timer: 30 seconds.
OptionParser.parse do |parser|
parser.banner = "usage: filestoraged [options]"
parser.on "-r root-directory",
"--root-directory dir",
"The root directory for FileStoraged." do |opt|
storage_directory = opt
end
parser.on "-t timer",
"--timer timer",
"Timer. Default: 30 000 (30 seconds)." do |t|
timer = t.to_i
end
parser.on "-v verbosity",
"--verbosity level",
"Verbosity level. From 0 to 3. Default: 1" do |v|
Context.verbosity = v.to_i
end
parser.on "-h",
"--help",
"Displays this help and exits." do
puts parser
exit 0
end
# FIXME: Either make this mandatory or print a warning if missing.
parser.on "-k file",
"--key file",
"Reads the authentication key from the provided file." do |file|
key = File.read(file).chomp
end
end
service = ::FileStorage::Service.new storage_directory, key
service.base_timer = timer
service.timer = timer
service
end
end
FileStorage::Service.from_cli.run