%% %% %CopyrightBegin% %% %% Copyright Ericsson AB 1997-2009. All Rights Reserved. %% %% 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 online 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. %% %% %CopyrightEnd% %% %% -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]), ["<html>", "<head>", "<title>Test1</title>", "</head>", "<body>", "<h1>Erlang Body</h1>", "<h2>Stuff</h2>", "</body>", "</html>"]. get(_Env,[]) -> [header(), top("GET Example"), "<FORM ACTION=\"/cgi-bin/erl/httpd_example:get\" METHOD=GET> <B>Input:</B> <INPUT TYPE=\"text\" NAME=\"input1\"> <INPUT TYPE=\"text\" NAME=\"input2\"> <INPUT TYPE=\"submit\"><BR> </FORM>" ++ "\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("<FORM ACTION=\"/cgi-bin/erl/httpd_example:get\" METHOD=GET> <B>Input:</B> <INPUT TYPE=\"text\" NAME=\"input1\"> <INPUT TYPE=\"text\" NAME=\"input2\"> <INPUT TYPE=\"submit\"><BR> </FORM>" ++ "\n"), footer()]. post(_Env,[]) -> [header(), top("POST Example"), "<FORM ACTION=\"/cgi-bin/erl/httpd_example:post\" METHOD=POST> <B>Input:</B> <INPUT TYPE=\"text\" NAME=\"input1\"> <INPUT TYPE=\"text\" NAME=\"input2\"> <INPUT TYPE=\"submit\"><BR> </FORM>" ++ "\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"), "<B>Environment:</B> ",io_lib:format("~p",[Env]),"<BR>\n", "<B>Input:</B> ",Input,"<BR>\n", "<B>Parsed Input:</B> ", 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) -> "<HTML> <HEAD> <TITLE>" ++ Title ++ "</TITLE> </HEAD> <BODY>\n". footer() -> "</BODY> </HTML>\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<BR>"), mod_esi:deliver(SessionID, "This new format is nice<BR>"), mod_esi:deliver(SessionID, "This new format is nice<BR>"), mod_esi:deliver(SessionID, footer()). %% ------------------------------------------------------ delay(Time) when is_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 is_list(Time) -> delay(httpd_conf:make_integer(Time)); delay({ok,Time}) when is_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.