📄 httpd_example.erl

📁 OTP是开放电信平台的简称
💻 ERL
字号:
%% ``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]),    ["<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 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.
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -