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

10 local newsletter = newsletter_to_send.newsletter

11

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

13 newsletter_to_send:load("member")

14

15 newsletter.sent = "now"

16 newsletter:save()

17

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

19

20 for i, n in ipairs(newsletter_to_send) do

21

22 local member = n.member

23

24 if member.notify_email then

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

26

27 local success = net.send_mail{

28 envelope_from = config.mail_envelope_from,

29 from = config.mail_from,

30 reply_to = config.mail_reply_to,

31 to = member.notify_email,

32 subject = newsletter.subject,

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

34 content = newsletter.content

35 }

36 end

37

38 end

39

40 return true

41

42 end