Jocelyn Fiat
59c03c5f4d
For now with basic implementation. It will be improved later Added SEO related attribute in CMS_RESPONSE. Added improved Contact module. Added basic SEO module.
64 lines
1.7 KiB
Plaintext
64 lines
1.7 KiB
Plaintext
note
|
|
description: "Summary description for {CONTACT_EMAIL_SERVICE_PARAMETERS}."
|
|
date: "$Date: 2015-07-03 19:04:52 +0200 (ven., 03 juil. 2015) $"
|
|
revision: "$Revision: 97646 $"
|
|
|
|
class
|
|
CONTACT_EMAIL_SERVICE_PARAMETERS
|
|
|
|
create
|
|
make
|
|
|
|
feature {NONE} -- Initialization
|
|
|
|
make (a_cms_api: CMS_API; a_contact_module: CMS_CONTACT_MODULE)
|
|
local
|
|
utf: UTF_CONVERTER
|
|
l_site_name: READABLE_STRING_8
|
|
s: detachable READABLE_STRING_32
|
|
l_contact_email, l_contact_subject: detachable READABLE_STRING_8
|
|
do
|
|
-- Use global smtp setting if any, otherwise "localhost"
|
|
l_site_name := utf.escaped_utf_32_string_to_utf_8_string_8 (a_cms_api.setup.site_name)
|
|
admin_email := a_cms_api.setup.site_email
|
|
|
|
if not admin_email.has ('<') then
|
|
admin_email := l_site_name + " <" + admin_email + ">"
|
|
end
|
|
|
|
if attached {CONFIG_READER} a_cms_api.module_configuration (a_contact_module, Void) as cfg then
|
|
s := cfg.text_item ("email")
|
|
if s /= Void then
|
|
l_contact_email := utf.utf_32_string_to_utf_8_string_8 (s)
|
|
end
|
|
s := cfg.text_item ("subject")
|
|
if s /= Void then
|
|
l_contact_subject := utf.utf_32_string_to_utf_8_string_8 (s)
|
|
end
|
|
end
|
|
if l_contact_email /= Void then
|
|
if not l_contact_email.has ('<') then
|
|
l_contact_email := l_site_name + " <" + l_contact_email + ">"
|
|
end
|
|
contact_email := l_contact_email
|
|
else
|
|
contact_email := admin_email
|
|
end
|
|
if l_contact_subject /= Void then
|
|
contact_subject_text := l_contact_subject
|
|
else
|
|
contact_subject_text := "Thank you for contacting us"
|
|
end
|
|
end
|
|
|
|
feature -- Access
|
|
|
|
admin_email: IMMUTABLE_STRING_8
|
|
|
|
contact_email: IMMUTABLE_STRING_8
|
|
-- Contact email.
|
|
|
|
contact_subject_text: IMMUTABLE_STRING_8
|
|
|
|
end
|