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.
57 lines
1.0 KiB
Plaintext
57 lines
1.0 KiB
Plaintext
note
|
|
description: "[
|
|
Contact message storage based on SQL statements.
|
|
]"
|
|
date: "$Date: 2015-07-03 19:04:52 +0200 (ven., 03 juil. 2015) $"
|
|
revision: "$Revision: 97646 $"
|
|
|
|
class
|
|
CONTACT_STORAGE_FS
|
|
|
|
inherit
|
|
CONTACT_STORAGE_I
|
|
|
|
CMS_STORAGE_FS_I
|
|
|
|
REFACTORING_HELPER
|
|
|
|
create
|
|
make
|
|
|
|
feature -- Access
|
|
|
|
feature -- Change
|
|
|
|
save_contact_message (m: CONTACT_MESSAGE)
|
|
local
|
|
s: STRING
|
|
utf: UTF_CONVERTER
|
|
now: DATE_TIME
|
|
do
|
|
error_handler.reset
|
|
create now.make_now_utc
|
|
|
|
write_information_log (generator + ".save_contact_message")
|
|
|
|
create s.make_empty
|
|
s.append ("date=")
|
|
s.append (m.date.out)
|
|
s.append_character ('%N')
|
|
s.append ("name=")
|
|
s.append (utf.utf_32_string_to_utf_8_string_8 (m.username))
|
|
s.append_character ('%N')
|
|
|
|
if attached m.email as l_email then
|
|
s.append ("email=")
|
|
s.append (l_email)
|
|
s.append_character ('%N')
|
|
end
|
|
s.append ("message=%N")
|
|
s.append (utf.utf_32_string_to_utf_8_string_8 (m.message))
|
|
s.append_character ('%N')
|
|
|
|
save_to_file (s, date_to_yyyymmdd_hhmmss_string (now))
|
|
end
|
|
|
|
end
|