|
|
+ case httpc:request(get, {"$(2)", []}, [{autoredirect, true}], []) of
|
|
|
+ {ok, {{_, 200, _}, _, Body}} ->
|
|
|
- $(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).'
|