1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
|
defmodule Mailchimp.List do
import Mailchimp.HTTPClient
def all(config) do
map_header = %{"Authorization" => "apikey #{config.apikey}"}
config.apiroot
|> build_url
|> get(map_header)
end
def members(config, list_id) do
map_header = %{"Authorization" => "apikey #{config.apikey}"}
config.apiroot <> "lists/" <> list_id <> "/members"
|> get(map_header)
end
def add_member(config, %{"list_id" => list_id, "email" => email}) do
map_header = %{"Authorization" => "apikey #{config.apikey}"}
{:ok, body} = Poison.encode(%{email_address: email, status: "subscribed"})
config.apiroot <> "lists/" <> list_id <> "/members"
|> post(body, map_header)
end
def add_pending_member(config, %{"list_id" => list_id, "email" => email}) do
map_header = %{"Authorization" => "apikey #{config.apikey}"}
{:ok, body} = Poison.encode(%{email_address: email, status: "pending"})
config.apiroot <> "lists/" <> list_id <> "/members"
|> post(body, map_header)
end
def build_url(root) do
params = [
{:fields, ["lists.id", "lists.name", "lists.stats.member_count"]},
{:count, 10},
{:offset, 0}
]
fields = "fields=" <> as_string(params[:fields])
count = "count=" <> to_string params[:count]
offset = "offset=" <> to_string params[:offset]
url = root <> "lists?" <> fields <> "&" <> count <> "&" <> offset
end
def as_string(param) do
Enum.reduce(param, fn(s, acc) -> acc<>","<>s end)
end
end
|
