diff options
| author | Loïc Hoguin <[email protected]> | 2015-05-10 12:25:00 +0300 |
|---|---|---|
| committer | Loïc Hoguin <[email protected]> | 2015-05-10 12:25:00 +0300 |
| commit | a61e6a06b59e7836f479c14af13c94f3c04beedb (patch) | |
| tree | 30b31aeea614fe801843746c45e96799b0b75cd9 | |
| parent | d996a413b5fed3bada2fc6ada762292fa7ce0a88 (diff) | |
| download | erlang.mk-a61e6a06b59e7836f479c14af13c94f3c04beedb.tar.gz erlang.mk-a61e6a06b59e7836f479c14af13c94f3c04beedb.tar.bz2 erlang.mk-a61e6a06b59e7836f479c14af13c94f3c04beedb.zip | |
Convert the Erlang version of core_http_get to an Erlang snippet
| -rw-r--r-- | core/core.mk | 17 |
1 files changed, 16 insertions, 1 deletions
diff --git a/core/core.mk b/core/core.mk index a240abd..473013f 100644 --- a/core/core.mk +++ b/core/core.mk @@ -99,8 +99,23 @@ define core_http_get wget --no-check-certificate -O $(1) $(2)|| rm $(1) endef else +define core_http_get.erl + ssl:start(), + inets:start(), + case httpc:request(get, {"$(2)", []}, [{autoredirect, true}], []) of + {ok, {{_, 200, _}, _, Body}} -> + case file:write_file("$(1)", Body) of + ok -> ok; + {error, R1} -> halt(R1) + end; + {error, R2} -> + halt(R2) + end, + halt(0). +endef + define core_http_get - $(ERL) -eval 'ssl:start(), inets:start(), case httpc:request(get, {"$(2)", []}, [{autoredirect, true}], []) of {ok, {{_, 200, _}, _, Body}} -> case file:write_file("$(1)", Body) of ok -> ok; {error, R1} -> halt(R1) end; {error, R2} -> halt(R2) end, halt(0).' + $(call erlang,$(call core_http_get.erl,$(1),$(2))) endef endif |