Added support for directory output email notification.

This commit is contained in:
2017-03-08 10:46:29 +01:00
parent 941f50e4fb
commit a9581eff01

View File

@@ -112,17 +112,21 @@ feature -- Access
-- and file storage. -- and file storage.
if attached text_item ("mailer.output") as l_output then if attached text_item ("mailer.output") as l_output then
if l_output.is_case_insensitive_equal ("@stderr") then if l_output.is_case_insensitive_equal ("@stderr") then
f := io.error create {NOTIFICATION_STORAGE_MAILER} l_storage_mailer.make (create {NOTIFICATION_EMAIL_FILE_STORAGE}.make (io.error))
elseif l_output.is_case_insensitive_equal ("@stdout") then elseif l_output.is_case_insensitive_equal ("@stdout") then
f := io.output create {NOTIFICATION_STORAGE_MAILER} l_storage_mailer.make (create {NOTIFICATION_EMAIL_FILE_STORAGE}.make (io.output))
else else
create {RAW_FILE} f.make_with_name (l_output) create {RAW_FILE} f.make_with_name (l_output)
if not f.exists then if f.is_directory then
f.create_read_write create {NOTIFICATION_STORAGE_MAILER} l_storage_mailer.make (create {NOTIFICATION_EMAIL_DIRECTORY_STORAGE}.make (f.path))
f.close else
if not f.exists then
f.create_read_write
f.close
end
create {NOTIFICATION_STORAGE_MAILER} l_storage_mailer.make (create {NOTIFICATION_EMAIL_FILE_STORAGE}.make (f))
end end
end end
create {NOTIFICATION_STORAGE_MAILER} l_storage_mailer.make (create {NOTIFICATION_EMAIL_FILE_STORAGE}.make (f))
if l_mailer /= Void then if l_mailer /= Void then
create l_chain.make (l_mailer) create l_chain.make (l_mailer)
l_chain.set_next (l_storage_mailer) l_chain.set_next (l_storage_mailer)
@@ -179,6 +183,6 @@ feature -- Element change
note note
copyright: "2011-2016, Jocelyn Fiat, Javier Velilla, Eiffel Software and others" copyright: "2011-2017, Jocelyn Fiat, Javier Velilla, Eiffel Software and others"
license: "Eiffel Forum License v2 (see http://www.eiffel.com/licensing/forum.txt)" license: "Eiffel Forum License v2 (see http://www.eiffel.com/licensing/forum.txt)"
end end