Updated CMS code.

Separated code to have a lib and an example.
Improved design, fixed a few issues related to folder location.

This is still experimental and require more work to be really friendly to use.
This commit is contained in:
Jocelyn Fiat
2013-01-31 15:33:24 +01:00
parent 40ea982293
commit ce469b6ede
136 changed files with 1841 additions and 299 deletions

View File

@@ -0,0 +1,58 @@
note
description: "Summary description for {CMS_CHAIN_MAILER}."
author: ""
date: "$Date$"
revision: "$Revision$"
class
CMS_CHAIN_MAILER
inherit
CMS_MAILER
create
make
feature {NONE} -- Initialization
make (a_mailer: like active)
do
active := a_mailer
end
feature -- Access
active: CMS_MAILER
next: detachable CMS_MAILER
feature -- Status
is_available: BOOLEAN
do
Result := active.is_available
if not Result and attached next as l_next then
Result := l_next.is_available
end
end
feature -- Change
set_next (m: like next)
do
next := m
end
feature -- Basic operation
process_email (a_email: CMS_EMAIL)
do
if active.is_available then
active.process_email (a_email)
end
if attached next as l_next and then l_next.is_available then
l_next.process_email (a_email)
end
end
end