diff options
| author | Magnus Ahltorp <map@kth.se> | 2014-10-26 00:36:57 +0200 |
|---|---|---|
| committer | Magnus Ahltorp <map@kth.se> | 2014-10-26 00:36:57 +0200 |
| commit | acb3fca6727fe2eb346cac0f48906901c17a89c9 (patch) | |
| tree | a8856f3744d7ccbc4e4211746e96f619bb29078a /src/catlfish_app.erl | |
| parent | 602d063427b5d808478ad558f99e5efe28a2cc6e (diff) | |
Rewrite root certificate cache handling
Diffstat (limited to 'src/catlfish_app.erl')
| -rw-r--r-- | src/catlfish_app.erl | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/src/catlfish_app.erl b/src/catlfish_app.erl index cfb55cd..e24a1bb 100644 --- a/src/catlfish_app.erl +++ b/src/catlfish_app.erl @@ -8,11 +8,20 @@ %% Application callbacks -export([start/2, stop/1]). +-include("catlfish.hrl"). + %% =================================================================== %% Application callbacks %% =================================================================== start(normal, Args) -> + case ets:info(?CACHE_TABLE) of + undefined -> + ok; + _ -> + ets:delete(?CACHE_TABLE) + end, + ets:new(?CACHE_TABLE, [set, public, named_table]), catlfish_sup:start_link(Args). stop(_State) -> |