ce469b6ede
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.
59 lines
852 B
Plaintext
59 lines
852 B
Plaintext
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
|