Crystal bindings: authd: right calls to the mailer.

zig-impl/crystal/some-crystal-app/authd/main.cr

@@ -16,14 +16,14 @@ extend AuthD
 
 class Baguette::Configuration
 	class Auth < IPC
-		property recreate_indexes       : Bool          = false
+		property recreate_indexes        : Bool          = false
-		property storage                : String        = "storage"
+		property storage                 : String        = "storage"
-		property registrations          : Bool          = false
+		property registrations           : Bool          = false
-		property require_email          : Bool          = false
+		property require_email           : Bool          = false
-		property activation_url         : String?       = nil
+		property activation_template     : String        = "email-activation"
-		property field_subject          : String?       = nil
+		property recovery_template       : String        = "email-recovery"
-		property field_from             : String?       = nil
+		property mailer_exe              : String        = "mailer"
-		property read_only_profile_keys : Array(String) = Array(String).new
+		property read_only_profile_keys  : Array(String) = Array(String).new
 
 		property print_password_recovery_parameters : Bool = false
 	end
@@ -135,6 +135,9 @@ class AuthD::Service < IPC
 	def run
 		Baguette::Log.title "Starting authd"
 
+		Baguette::Log.info "(mailer) Email activation template: #{@configuration.activation_template}"
+		Baguette::Log.info "(mailer) Email recovery template: #{@configuration.recovery_template}"
+
 		self.loop do |event|
 			case event.type
 			when LibIPC::EventType::Timer
@@ -201,18 +204,19 @@ begin
 			configuration.require_email = true
 		end
 
-		parser.on "-t subject", "--subject title", "Subject of the email." do |s|
+		parser.on "-t activation-template-name", "--activation-template name", "Email activation template." do |opt|
-			configuration.field_subject = s
+			configuration.activation_template = opt
 		end
 
-		parser.on "-f from-email", "--from email", "'From:' field to use in activation email." do |f|
+		parser.on "-r recovery-template-name", "--recovery-template name", "Email recovery template." do |opt|
-			configuration.field_from = f
+			configuration.recovery_template = opt
 		end
 
-		parser.on "-u", "--activation-url url", "Activation URL." do |opt|
+		parser.on "-m mailer-exe", "--mailer mailer-exe", "Application to send registration emails." do |opt|
-			configuration.activation_url = opt
+			configuration.mailer_exe = opt
 		end
 
+
 		parser.on "-x key", "--read-only-profile-key key", "Marks a user profile key as being read-only." do |key|
 			configuration.read_only_profile_keys.push key
 		end

zig-impl/crystal/some-crystal-app/authd/requests/password.cr

@@ -90,32 +90,29 @@ class AuthD::Request
 
 			authd.users_per_uid.update user.uid.to_s, user
 
-			unless (activation_url = authd.configuration.activation_url).nil?
+			# Once the user is created and stored, we try to contact him
+			if authd.configuration.print_password_recovery_parameters
+				pp! user.login,
+					user.contact.email.not_nil!,
+					user.password_renew_key.not_nil!
+			end
 
-				field_from     = authd.configuration.field_from.not_nil!
+			mailer_exe = authd.configuration.mailer_exe
-				activation_url = authd.configuration.activation_url.not_nil!
+			template_name = authd.configuration.recovery_template
 
-				# Once the user is created and stored, we try to contact him
+			u_login = user.login
+			u_email = user.contact.email.not_nil!
+			u_token = user.password_renew_key.not_nil!
 
-				if authd.configuration.print_password_recovery_parameters
+			# Once the user is created and stored, we try to contact him.
-					pp! user.login,
+			unless Process.run(mailer_exe,
-						user.contact.email.not_nil!,
+					# PARAMETERS
-						field_from,
+					[ "send", template_name, u_email ],
-						activation_url,
+					# ENV
-						user.password_renew_key.not_nil!
+					{ "LOGIN" => u_login, "TOKEN" => u_token },
-				end
+					true # clear environment
-
+				).success?
-				unless Process.run("password-recovery-mailer", [
+				raise "cannot contact user #{u_login} address #{u_email}"
-					"-l", user.login,
-					"-e", user.contact.email.not_nil!,
-					"-t", "Password recovery email",
-					"-f", field_from,
-					"-u", activation_url,
-					"-a", user.password_renew_key.not_nil!
-					]).success?
-
-					return Response::Error.new "cannot contact the user for password recovery"
-				end
 			end
 
 			Response::PasswordRecoverySent.new user.to_public

zig-impl/crystal/some-crystal-app/authd/requests/register.cr

@@ -22,12 +22,6 @@ class AuthD::Request
 				return Response::Error.new "email required"
 			end
 
-			activation_url = authd.configuration.activation_url
-			if activation_url.nil?
-				# In this case we should not accept its registration.
-				return Response::Error.new "No activation URL were entered. Cannot send activation mails."
-			end
-
 			if ! @email.nil?
 				# Test on the email address format.
 				grok = Grok.new [ "%{EMAILADDRESS:email}" ]
@@ -58,27 +52,25 @@ class AuthD::Request
 			user.date_registration = Time.local
 
 			begin
-				field_subject  = authd.configuration.field_subject.not_nil!
+				mailer_exe       = authd.configuration.mailer_exe
-				field_from     = authd.configuration.field_from.not_nil!
+				template_name    = authd.configuration.activation_template
-				activation_url = authd.configuration.activation_url.not_nil!
 
 				u_login          = user.login
 				u_email          = user.contact.email.not_nil!
 				u_activation_key = user.contact.activation_key.not_nil!
 
-				# Once the user is created and stored, we try to contact him
+				# Once the user is created and stored, we try to contact him.
-				unless Process.run("activation-mailer", [
+				unless Process.run(mailer_exe,
-					"-l", u_login,
+						# PARAMETERS
-					"-e", u_email,
+						[ "send", template_name, u_email ],
-					"-t", field_subject,
+						# ENV
-					"-f", field_from,
+						{ "LOGIN" => u_login, "TOKEN" => u_activation_key },
-					"-u", activation_url,
+						true # clear environment
-					"-a", u_activation_key
+					).success?
-					]).success?
+					raise "cannot contact user #{u_login} address #{u_email}"
-					raise "cannot contact user #{user.login} address #{user.contact.email}"
 				end
 			rescue e
-				Baguette::Log.error "activation-mailer: #{e}"
+				Baguette::Log.error "mailer: #{e}"
 				return Response::Error.new "cannot contact the user (not registered)"
 			end