| 1 |
|
-module(mongoose_wpool_redis). |
| 2 |
|
-behaviour(mongoose_wpool). |
| 3 |
|
|
| 4 |
|
-export([init/0]). |
| 5 |
|
-export([start/4]). |
| 6 |
|
-export([stop/2]). |
| 7 |
|
-export([is_supported_strategy/1]). |
| 8 |
|
|
| 9 |
|
%% -------------------------------------------------------------- |
| 10 |
|
%% mongoose_wpool callbacks |
| 11 |
|
init() -> |
| 12 |
80 |
ok. |
| 13 |
|
|
| 14 |
|
start(HostType, Tag, WpoolOptsIn, ConnOpts) -> |
| 15 |
80 |
ProcName = mongoose_wpool:make_pool_name(redis, HostType, Tag), |
| 16 |
80 |
WpoolOpts = wpool_spec(WpoolOptsIn, ConnOpts), |
| 17 |
80 |
mongoose_wpool:start_sup_pool(redis, ProcName, WpoolOpts). |
| 18 |
|
|
| 19 |
|
stop(_, _) -> |
| 20 |
76 |
ok. |
| 21 |
|
|
| 22 |
:-( |
is_supported_strategy(available_worker) -> false; |
| 23 |
80 |
is_supported_strategy(_) -> true. |
| 24 |
|
|
| 25 |
|
%% -------------------------------------------------------------- |
| 26 |
|
%%% Internal functions |
| 27 |
|
wpool_spec(WpoolOptsIn, ConnOpts) -> |
| 28 |
80 |
Worker = {eredis_client, makeargs(ConnOpts)}, |
| 29 |
80 |
[{worker, Worker} | WpoolOptsIn]. |
| 30 |
|
|
| 31 |
|
makeargs(RedisOpts) -> |
| 32 |
80 |
Host = proplists:get_value(host, RedisOpts, "127.0.0.1"), |
| 33 |
80 |
Port = proplists:get_value(port, RedisOpts, 6379), |
| 34 |
80 |
Database = proplists:get_value(database, RedisOpts, 0), |
| 35 |
80 |
Password = proplists:get_value(password, RedisOpts, ""), |
| 36 |
80 |
[Host, Port, Database, Password, 100, 5000]. |