Enable the client to massively purge users.

src/better-parser.cr

@@ -35,18 +35,35 @@ opt_email = -> (parser : OptionParser) {
 
 
 # Unrecognized parameters are used to create commands with multiple arguments.
-# Example: user add login email
+# Example: user add _login email phone_
-# Here, login and email are unrecognized arguments.
+# Here, login, email and phone are unrecognized arguments.
 # Still, the "user add" command expect them.
-unrecognized_args_to_context_args = -> (parser : OptionParser, n_expected_args : Int32) {
+unrecognized_args_to_context_args = -> (parser : OptionParser,
+	nexact   : Int32?,
+	at_least : Int32?) {
+
 	# With the right args, these will be interpreted as serialized data.
 	parser.unknown_args do |args|
-		if args.size != n_expected_args
+
-			Baguette::Log.error "expected number of arguments: #{n_expected_args}, received: #{args.size}"
+		# either we test with the exact expected number of arguments or the least.
-			Baguette::Log.error "args: #{args}"
+		if exact = nexact
+			if args.size != exact
+				Baguette::Log.error "Wrong number of parameters: expected #{exact}, got #{args.size}"
 				Baguette::Log.error "#{parser}"
 				exit 1
 			end
+		elsif least = at_least
+			if args.size < least
+				Baguette::Log.error "Wrong number of parameters: expected at least #{least}, got #{args.size}"
+				Baguette::Log.error "#{parser}"
+				exit 1
+			end
+		else
+			Baguette::Log.error "Number of parameters not even provided!"
+			Baguette::Log.error "#{parser}"
+			exit 1
+		end
+
 		args.each do |arg|
 			Baguette::Log.debug "Unrecognized argument: #{arg} (adding to Context.args)"
 			if Context.args.nil?
@@ -76,7 +93,7 @@ parser = OptionParser.new do |parser|
 		opt_profile.call parser
 		opt_help.call parser
 		# login email
-		unrecognized_args_to_context_args.call parser, 2
+		unrecognized_args_to_context_args.call parser, 2, nil
 	end
 
 	parser.on "exit", "Kill the service." do
@@ -85,7 +102,7 @@ parser = OptionParser.new do |parser|
 		Context.command = "exit"
 		opt_authd_login.call parser
 		opt_help.call parser
-		unrecognized_args_to_context_args.call parser, 0
+		unrecognized_args_to_context_args.call parser, 0, nil
 	end
 
 	parser.on "migration-script", "Add a batch of users from old code base." do
@@ -96,7 +113,7 @@ parser = OptionParser.new do |parser|
 		opt_profile.call parser
 		opt_help.call parser
 		# user-db.txt
-		unrecognized_args_to_context_args.call parser, 1
+		unrecognized_args_to_context_args.call parser, 1, nil
 	end
 
 	parser.on "user", "Operations on users." do
@@ -110,7 +127,7 @@ parser = OptionParser.new do |parser|
 			opt_profile.call parser
 			opt_help.call parser
 			# login email
-			unrecognized_args_to_context_args.call parser, 2
+			unrecognized_args_to_context_args.call parser, 2, nil
 		end
 
 		parser.on "migrate", "Add a user from old code base." do
@@ -121,7 +138,7 @@ parser = OptionParser.new do |parser|
 			opt_profile.call parser
 			opt_help.call parser
 			# login password-hash-brkn
-			unrecognized_args_to_context_args.call parser, 2
+			unrecognized_args_to_context_args.call parser, 2, nil
 		end
 
 		parser.on "mod", "Modify a user account." do
@@ -133,7 +150,7 @@ parser = OptionParser.new do |parser|
 			opt_profile.call parser
 			opt_help.call parser
 			# userid
-			unrecognized_args_to_context_args.call parser, 1
+			unrecognized_args_to_context_args.call parser, 1, nil
 		end
 
 		parser.on "change-password", "Change the password of a user (requires admin)." do
@@ -145,18 +162,18 @@ parser = OptionParser.new do |parser|
 			opt_profile.call parser
 			opt_help.call parser
 			# userid
-			unrecognized_args_to_context_args.call parser, 1
+			unrecognized_args_to_context_args.call parser, 1, nil
 		end
 
 		parser.on "delete", "Remove user." do
-			parser.banner = "Usage: user delete userid [opt]"
+			parser.banner = "Usage: user delete userid [userid ...]"
 			Baguette::Log.info "Remove user."
 			Context.command = "user-delete"
 			# You can either be the owner of the account, or an admin.
 			opt_authd_login.call parser
 			opt_help.call parser
 			# userid
-			unrecognized_args_to_context_args.call parser, 1
+			unrecognized_args_to_context_args.call parser, nil, 1
 		end
 
 		parser.on "validate", "Validate user." do
@@ -166,7 +183,7 @@ parser = OptionParser.new do |parser|
 			# No need to be authenticated.
 			opt_help.call parser
 			# login activation-key
-			unrecognized_args_to_context_args.call parser, 2
+			unrecognized_args_to_context_args.call parser, 2, nil
 		end
 
 		parser.on "get", "Get user info." do
@@ -176,17 +193,17 @@ parser = OptionParser.new do |parser|
 			opt_authd_login.call parser
 			opt_help.call parser
 			# login
-			unrecognized_args_to_context_args.call parser, 1
+			unrecognized_args_to_context_args.call parser, nil, 1
 		end
 
 		parser.on "search", "Search user." do
-			parser.banner = "Usage: user search login [opt]"
+			parser.banner = "Usage: user search login [login...]"
 			Baguette::Log.info "Search user."
 			Context.command = "user-search"
 			opt_authd_login.call parser
 			opt_help.call parser
 			# login
-			unrecognized_args_to_context_args.call parser, 1
+			unrecognized_args_to_context_args.call parser, nil, 1
 		end
 
 		parser.on "recover", "Recover user password." do
@@ -196,7 +213,7 @@ parser = OptionParser.new do |parser|
 			# No need to be authenticated.
 			opt_help.call parser
 			# login
-			unrecognized_args_to_context_args.call parser, 1
+			unrecognized_args_to_context_args.call parser, nil, 1
 		end
 
 
@@ -208,7 +225,7 @@ parser = OptionParser.new do |parser|
 			opt_profile.call parser
 			opt_help.call parser
 			# login email
-			unrecognized_args_to_context_args.call parser, 2
+			unrecognized_args_to_context_args.call parser, 2, nil
 		end
 	end
 
@@ -226,7 +243,7 @@ END
 			opt_authd_login.call parser
 			opt_help.call parser
 			# userid application resource permission
-			unrecognized_args_to_context_args.call parser, 4
+			unrecognized_args_to_context_args.call parser, 4, nil
 		end
 
 		parser.on "check", "Check permissions." do
@@ -241,7 +258,7 @@ END
 			opt_authd_login.call parser
 			opt_help.call parser
 			# userid application resource
-			unrecognized_args_to_context_args.call parser, 3
+			unrecognized_args_to_context_args.call parser, 3, nil
 		end
 	end
 

src/client.cr

@@ -243,12 +243,13 @@ class Actions
 
 	def user_deletion
 		args = Context.args.not_nil!
-		userid = args[0].to_u32
+		args.each do |u|
-
+			Baguette::Log.info "Removing user #{u}…"
+			userid = u.to_u32
 			res = authd.delete userid
-
 			puts res
 		end
+	end
 
 	def user_validation
 		args = Context.args.not_nil!
@@ -257,19 +258,22 @@ class Actions
 	end
 	def user_search
 		args = Context.args.not_nil!
-		login = args[0]
+		args.each do |login|
 			pp! authd.search_user login
 		end
+	end
 	def user_get
 		args = Context.args.not_nil!
-		login = args[0]
+		args.each do |login|
 			pp! authd.get_user? login
 		end
+	end
 	def user_recovery
 		args = Context.args.not_nil!
-		login = args[0]
+		args.each do |login|
 			pp! authd.ask_password_recovery login
 		end
+	end
 
 	def permission_check
 		args = Context.args.not_nil!