%% ``The contents of this file are subject to the Erlang Public License,
%% Version 1.1, (the "License"); you may not use this file except in
%% compliance with the License. You should have received a copy of the
%% Erlang Public License along with this software. If not, it can be
%% retrieved via the world wide web at http://www.erlang.org/.
%%
%% Software distributed under the License is distributed on an "AS IS"
%% basis, WITHOUT WARRANTY OF ANY KIND, either express or implied. See
%% the License for the specific language governing rights and limitations
%% under the License.
%%
%% The Initial Developer of the Original Code is Ericsson Utvecklings AB.
%% Portions created by Ericsson are Copyright 1999, Ericsson Utvecklings
%% AB. All Rights Reserved.''
%%
%% $Id$
%%
-module(httpd_example).
-export([print/1]).
-export([get/2, post/2, yahoo/2, test1/2, get_bin/2]).
-export([newformat/3]).
%% These are used by the inets test-suite
-export([delay/1]).
print(String) ->
[header(),
top("Print"),
String++"\n",
footer()].
test1(Env, []) ->
io:format("Env:~p~n",[Env]),
["",
"
",
"Test1",
"",
"",
"Erlang Body
",
"Stuff
",
"",
""].
get(_Env,[]) ->
[header(),
top("GET Example"),
"" ++ "\n",
footer()];
get(Env,Input) ->
default(Env,Input).
get_bin(_Env,_Input) ->
[list_to_binary(header()),
list_to_binary(top("GET Example")),
list_to_binary("" ++ "\n"),
footer()].
post(_Env,[]) ->
[header(),
top("POST Example"),
"" ++ "\n",
footer()];
post(Env,Input) ->
default(Env,Input).
yahoo(_Env,_Input) ->
"Location: http://www.yahoo.com\r\n\r\n".
default(Env,Input) ->
[header(),
top("Default Example"),
"Environment: ",io_lib:format("~p",[Env]),"
\n",
"Input: ",Input,"
\n",
"Parsed Input: ",
io_lib:format("~p",[httpd:parse_query(Input)]),"\n",
footer()].
header() ->
header("text/html").
header(MimeType) ->
"Content-type: " ++ MimeType ++ "\r\n\r\n".
top(Title) ->
"
" ++ Title ++ "
\n".
footer() ->
"
\n".
newformat(SessionID, _Env, _Input)->
mod_esi:deliver(SessionID, "Content-Type:text/html\r\n\r\n"),
mod_esi:deliver(SessionID, top("new esi format test")),
mod_esi:deliver(SessionID, "This new format is nice
"),
mod_esi:deliver(SessionID, "This new format is nice
"),
mod_esi:deliver(SessionID, "This new format is nice
"),
mod_esi:deliver(SessionID, footer()).
%% ------------------------------------------------------
delay(Time) when integer(Time) ->
i("httpd_example:delay(~p) -> do the delay",[Time]),
sleep(Time),
i("httpd_example:delay(~p) -> done, now reply",[Time]),
delay_reply("delay ok");
delay(Time) when list(Time) ->
delay(httpd_conf:make_integer(Time));
delay({ok,Time}) when integer(Time) ->
delay(Time);
delay({error,_Reason}) ->
i("delay -> called with invalid time"),
delay_reply("delay failed: invalid delay time").
delay_reply(Reply) ->
[header(),
top("delay"),
Reply,
footer()].
i(F) -> i(F,[]).
i(F,A) -> io:format(F ++ "~n",A).
sleep(T) -> receive after T -> ok end.