diff options
author | Henrik Nord <[email protected]> | 2015-10-06 11:03:03 +0200 |
---|---|---|
committer | Henrik Nord <[email protected]> | 2015-10-06 11:03:03 +0200 |
commit | 4f9905824002bebc33c2914669b4c364927cb0ee (patch) | |
tree | c91cc3e003b406e049c83ae73b208e10912d6df6 /lib/inets/src/http_server/httpd_custom.erl | |
parent | 02a7407dfefd539b6850c13e1e3f4df9afd715ac (diff) | |
parent | a2c538dee3013bb6285027d9ae45b7f055e8e8eb (diff) | |
download | otp-4f9905824002bebc33c2914669b4c364927cb0ee.tar.gz otp-4f9905824002bebc33c2914669b4c364927cb0ee.tar.bz2 otp-4f9905824002bebc33c2914669b4c364927cb0ee.zip |
Merge branch 'maint-18' into maint
Diffstat (limited to 'lib/inets/src/http_server/httpd_custom.erl')
-rw-r--r-- | lib/inets/src/http_server/httpd_custom.erl | 31 |
1 files changed, 28 insertions, 3 deletions
diff --git a/lib/inets/src/http_server/httpd_custom.erl b/lib/inets/src/http_server/httpd_custom.erl index a1fe058bd1..2b9701ef75 100644 --- a/lib/inets/src/http_server/httpd_custom.erl +++ b/lib/inets/src/http_server/httpd_custom.erl @@ -20,16 +20,27 @@ %% -module(httpd_custom). --export([response_header/1, request_header/1]). --export([customize_headers/3]). +-export([response_header/1, request_header/1, response_default_headers/0]). +-export([customize_headers/3, response_default_headers/1]). --include_lib("inets/src/inets_app/inets_internal.hrl"). +-include("../inets_app/inets_internal.hrl"). + +-behaviour(httpd_custom_api). + +%%-------------------------------------------------------------------- +%% Behavior API ----------------------------------- +%%-------------------------------------------------------------------- response_header(Header) -> {true, httpify(Header)}. request_header(Header) -> {true, Header}. +response_default_headers() -> + []. +%%-------------------------------------------------------------------- +%% Internal API ----------------------------------- +%%-------------------------------------------------------------------- customize_headers(?MODULE, Function, Arg) -> ?MODULE:Function(Arg); customize_headers(Module, Function, Arg) -> @@ -43,6 +54,20 @@ customize_headers(Module, Function, Arg) -> ?MODULE:Function(Arg) end. +response_default_headers(?MODULE) -> + response_default_headers(); +response_default_headers(Module) -> + try Module:response_default_headers() of + Defaults -> + [{http_util:to_lower(Key), Value} || {Key, Value} <- Defaults, + is_list(Key), is_list(Value)] + catch + _:_ -> + ?MODULE:response_default_headers() + end. +%%-------------------------------------------------------------------- +%% Internal functions ----------------------------------- +%%-------------------------------------------------------------------- httpify({Key0, Value}) -> %% make sure first letter is capital (defacto standard) Words1 = string:tokens(Key0, "-"), |