forked from potsda.mn/mobilizon
60 lines
1.7 KiB
Elixir
60 lines
1.7 KiB
Elixir
defmodule Mobilizon.Web.Email do
|
|
@moduledoc """
|
|
The Email context.
|
|
"""
|
|
|
|
use Bamboo.Phoenix, view: Mobilizon.Web.EmailView
|
|
|
|
alias Ecto.UUID
|
|
alias Mobilizon.{Config, Events}
|
|
alias Mobilizon.Events.Event
|
|
alias Mobilizon.Service.Export.ICalendar
|
|
alias Mobilizon.Web.EmailView
|
|
|
|
@spec base_email(keyword()) :: Bamboo.Email.t()
|
|
def base_email(args) do
|
|
instance = Config.instance_config()
|
|
|
|
args
|
|
|> new_email()
|
|
|> from({Config.instance_name(), Config.instance_email_from()})
|
|
|> put_header("Reply-To", Config.instance_email_reply_to())
|
|
|> put_header("Date", date())
|
|
|> put_header("Message-Id", message_id())
|
|
|> assign(:instance, instance)
|
|
|> put_html_layout({EmailView, "email.html"})
|
|
|> put_text_layout({EmailView, "email.text"})
|
|
end
|
|
|
|
# Generating an UUID randomly causes Bamboo.Test.assert_delivered_email/1 to fail
|
|
defp message_id do
|
|
if Application.fetch_env!(:mobilizon, :env) == :test do
|
|
"TEST_ENV_MESSAGE_ID@#{Config.instance_hostname()}"
|
|
else
|
|
"#{UUID.generate()}@#{Config.instance_hostname()}"
|
|
end
|
|
end
|
|
|
|
defp date do
|
|
if Application.fetch_env!(:mobilizon, :env) == :test do
|
|
"REMOVED FOR TESTING"
|
|
else
|
|
Timex.format!(DateTime.utc_now(), "{WDshort}, {D} {Mshort} {YYYY} {h24}:{m}:{s} {Z}")
|
|
end
|
|
end
|
|
|
|
def add_event_attachment(%Bamboo.Email{} = email, %Event{id: event_id}) do
|
|
with {:ok, %Event{} = event} <- Events.get_event_with_preload(event_id),
|
|
{:ok, event_ics_data} <- ICalendar.export_event(event) do
|
|
put_attachment(email, %Bamboo.Attachment{
|
|
filename: Slugger.slugify_downcase(event.title),
|
|
content_type: "text/calendar",
|
|
data: event_ics_data
|
|
})
|
|
else
|
|
_ ->
|
|
email
|
|
end
|
|
end
|
|
end
|