Des_Utf8 =
lists:foldl(fun(Change,Acc) ->
case Change of
[Term] when Term >= $a, Term =< $z ->
Acc ++ Change;
[Term] when Term >= $A, Term =< $Z ->
Acc ++ Change;
[Term] when Term >= $0, Term =< $9 ->
Acc ++ Change;
[Term] when Term =:= $. ->
Acc ++ Change;
[Term] when Term =:= $_ ->
Acc ++ Change;
[Term] when Term =:= $- ->
Acc ++ Change;
_ ->
Acc ++ list_to_hex_s(Change)
end
end,[],DChanges),
StrValue = escape_uri(Str0) ++ Title_Utf8 ++ escape_uri(Str1) ++ Des_Utf8 ++ escape_uri(Str2),
Md5Str = md5_hex(StrValue),
Sign = "sign=" ++ Md5Str,
PostInfo = ApiKey ++ "&" ++ Sign ++ "&" ++ User_Id ++ "&"
++ Channel_Id ++ "&" ++ Device_Type ++ "&" ++ Message_Type ++ "&" ++ Messages
++ "&" ++ Method ++ "&" ++ Msg_keys ++ "&" ++ Push_Type ++ "&" ++ Time,
timer:sleep(30*1000),
Result = httpc:request(post,{Url,[],"application/x-www-form-urlencoded",PostInfo},[],[]),
case Result of
{ok,{{"HTTP/1.1",200,"OK"},_,_}} ->
nothing;
_ ->
io:format("Result:~p~n",[Result])
end.
