1 Newsletter = mondelefant.new_class()

2 Newsletter.table = 'newsletter'

3

4 function Newsletter:send_next_newsletter()

5 local newsletter_to_send = NewsletterToSend:get_next()

6 if not newsletter_to_send then

7 return false

8 end

9 local newsletter = newsletter_to_send.newsletter

10

11 local newsletter_to_send = NewsletterToSend:by_newsletter_id(newsletter.id)

12 newsletter_to_send:load("member")

13

14 newsletter.sent = "now"

15 newsletter:save()

16

17 io.stderr:write("Sending newsletter " .. newsletter.id .. " to " .. (#newsletter_to_send) .. " members\n")

18

19 for i, n in ipairs(newsletter_to_send) do

20

21 local member = newsletter_to_send.member

22

23 if not member.notify_email then

24 return

25 end

26

27 io.stderr:write("Sending newsletter " .. newsletter.id .. " to " .. member.notify_email .. "\n")

28

29 local success = net.send_mail{

30 envelope_from = config.mail_envelope_from,

31 from = config.mail_from,

32 reply_to = config.mail_reply_to,

33 to = member.notify_email,

34 subject = newsletter.subject,

35 content_type = "text/plain; charset=UTF-8",

36 content = newsletter.content

37 }

38

39 end

40

41 end