erlang httpc

1,set proxy 10.100.1.76 :8888

httpc:set_options([{proxy,{{"10.100.1.76",8888},[]}}]).

2,set cookie enabled

> httpc:set_options([{cookies,enabled}]).
ok

3,login and create team

 application:start(inets).

 httpc:set_options([{cookies,enabled}]).

 httpc:request("http://1.1.13.4/user/login").

 httpc:request(post,{"post url --remember add v2",[],"application/x-www-form-urlencoded", lists:concat(["post string curl use -d"])},[],[]).

 httpc:request(post,{"post url",[],"application/x-www-form-urlencoded", lists:concat(["post string curl use -d "])},[],[]).

 httpc:which_cookies().

 [{session_cookies,[{http_cookie,"1.1.13.4",true,

                                 "JSESSIONID","aaa6JQwGALt04aTzzID1u",undefined,session,"/",

                                 false,false,"0"},

                    {http_cookie,"1.1.13.4",true,"X-XX-SESS-ID",   %% u know what XX is

                                 "f9vl028l6seblbh7v9i03ico02",undefined,session,"/",false,

                                 false,"0"},

                    {http_cookie,"1.1.13.4",true,"language","zh",undefined,

                                 session,"/",false,false,"0"}]}]

4,e.z test case

 File Edit Options Buffers Tools Help

 -module(tt).

 -export([max/1]).

 max(N)->

 Max=erlang:system_info(process_limit),

 io:format("Maximum allowd processes:~p~n",[Max]),

 statistics(runtime),

 statistics(wall_clock),

 L=for(1,N,fun()-> spawn(fun()->wait() end) end),

 {_,Time1}=statistics(runtime),

 {_,Time2}=statistics(wall_clock),

 lists:foreach(fun(Pid)->Pid ! die end, L),

 U1=Time1 * 1000 / N ,

 U2=Time2 * 1000 / N ,

 io:format("Process spawn time=~p(~p) microseconds~n",

 [U1,U2]).

 wait()->

         receive

                 die -> httpc:request("http://192.168.1.51")

         end.

 for(N,N,F)->[F()];

 for(I,N,F)->[F()|for(I+1,N,F)].