erlang中http请求

最新推荐文章于 2021-11-18 12:38:56 发布
最新推荐文章于 2021-11-18 12:38:56 发布
阅读量275 收藏
点赞数
文章标签： 数据库 测试
原文链接：http://www.cnblogs.com/weidongprefer/p/6637881.html
版权

1..app文件中

{application,backend,[
  {description,"ebank backend"},
  {vsn,1.0},
  {modules,[]},
  {applications,[kernel,stdlib,yaws]},
  {registered,[backend]},
  {env,[{env,development}]},
  {mod,backend_bootstrap},
  {controllers,[    {{"backend","mbu"},{backend, mbu},[{decrypt, false}, {verify, false}]}
               ]},
  {plugins,[]}]}.

2.erl文件中
handle_xmlResult(Xml_Res)->
    {dict,_,_,_,_,_,_,_,Context} = Xml_Res,
    io:format("==Xml_Res==========~p~n",[Xml_Res]),
    {{[],[],[],[],[],[],[],[],[],[Context1],[],[],[],[],[],[]}} = Context,
    Context2 = Context1 -- ["<?xml version"],
    Context3 = "<?xml version = " ++ Context2,
    Context3.

%%人到人被扫MBU004 C2B附加处理
mbu(Arg) ->
    Xml_Res = ewp_params:from_yaws_arg(Arg),
    try
        Context3 = handle_xmlResult(Xml_Res),
        Msg1 = list_to_binary([Context3]) ,
        log4erl:info(wailian_client, Msg1),
        Xml_ResUT0 = backend_msg:utf8_to_gbk(Context3),
        Xml_ResUT = backend_msg:gbk_to_utf8(Xml_ResUT0),
        Rx = erlang:binary_to_list(Xml_ResUT),
        Res = xml_eng:xml_to_term(Rx),
        Xml_ResBody = proplists:get_value('Body', proplists:get_value('Agw', Res)),
        ReqType = proplists:get_value('reqType', Xml_ResBody,undefined),
        case ReqType of
            "0230000903" ->
                mbu004(Xml_ResBody);
            "0250000903" ->
                mbu005(Xml_ResBody);
          %%  "0000000903" ->  mbu006(Xml_ResBody);
        _ ->
             no_result              end
    catch
        _A:_B ->
            ?ewp_err("=======REQUEST_SAOF_FAIL===========================~p~n~p~n",[_A,_B]),
            throw(?REQUEST_SAOF_FAIL)
    end.

mbu004(Xml_ResBody) ->
        QrNo = proplists:get_value('qrNo', Xml_ResBody),
        %%Xml_lists = proplists:get_value('currencyCode', Xml_ResBody),
        TxnAmt0 = proplists:get_value('txnAmt', Xml_ResBody),
        TxnAmt = list_to_integer(TxnAmt0)/100,
        VOUCHERNUM = proplists:get_value('voucherNum', Xml_ResBody),
        backend_db:update("update MY_PEOPLECODE_STATUSLOGS set money = :1, status = : 2, VOUCHERNUM = : 3 where qrNo = : 4 and tran_time = to_date(sysdate) ",[TxnAmt, "01", VOUCHERNUM, QrNo]),
        Res = "<?xml version='1.0' encoding='utf-8'?><Agw><Head direction='response'><Trade>MBU004</Trade><Channel>05095</Channel><KeyGenerator>001234</KeyGenerator><ErrorCode>00</ErrorCode><ErrorMsg>成功</ErrorMsg></Head><Body><version>1.0.0</version><reqType>0230000903</reqType><respCode></respCode><respMsg></respMsg></Body></Agw>",
        ewp_render_util:render_xml(Res).

mbu005(Xml_ResBody) ->
        OrigReqType  = proplists:get_value('origReqType', Xml_ResBody),
        OrigRespCode = proplists:get_value('origRespCode', Xml_ResBody),
        OrigRespMsg = proplists:get_value('origRespMsg', Xml_ResBody),
        MerName = proplists:get_value('merName', Xml_ResBody),
        VoucherNum = proplists:get_value('voucherNum', Xml_ResBody),
        QrNo = proplists:get_value('qrNo', Xml_ResBody),
        %%交易
        case OrigReqType of
            "0310000903" ->  %%消费交易
                      case OrigRespCode of
                         "00" ->
                            backend_db:update("update MY_PEOPLECODE_STATUSLOGS set merName = : 1, VoucherNum  = : 2 , status = : 3, OrigRespCode  = : 4, OrigRespMsg = : 5, OrigReqType = : 6 where qrNo = : 7 and tran_time = to_date(sysdate)", [MerName,VoucherNum,"05",OrigRespCode,OrigRespMsg,OrigReqType,QrNo]);
                         _ ->
                            backend_db:update("update MY_PEOPLECODE_STATUSLOGS set merName = : 1, VoucherNum  = : 2 , status = : 3, OrigRespCode  = : 4, OrigRespMsg = : 5, OrigReqType = : 6 where qrNo = : 7 and tran_time = to_date(sysdate)", [MerName,VoucherNum,"09",OrigRespCode,OrigRespMsg,OrigReqType,QrNo])
                      end;
            _ ->    %%消费冲正交易0320000903、消费撤销交易0330000903、退货交易0340000903等
                   backend_db:update("update MY_PEOPLECODE_STATUSLOGS set merName = : 1, VoucherNum  = : 2 , status = : 3, OrigRespCode  = : 4, OrigRespMsg = : 5, OrigReqType = : 6 where qrNo = : 7 and tran_time = to_date(sysdate)", [MerName,VoucherNum,"09",OrigRespCode,OrigRespMsg,OrigReqType,QrNo])
        end,
        %%取值如果是报错，存数据库应该是错误码
        Res = "<?xml version='1.0' encoding='utf-8'?><Agw><Head direction='response'><Trade>MBU005</Trade><Channel>05095</Channel><KeyGenerator>001234</KeyGenerator><ErrorCode>00</ErrorCode><ErrorMsg>成功</ErrorMsg></Head><Body><version>1.0.0</version><reqType>0250000903</reqType><respCode></respCode><respMsg></respMsg></Body></Agw>",
        ewp_render_util:render_xml(Res).

%% Created: 2017-3-3
%% Description: http请求对外接口测试
test_interface(RequestBody,Interface) ->
    Host = "127.0.0.1",
    Port = "4003",
    try
          Url = "http://" ++ Host ++ ":" ++ Port ++ "/backend/" ++ Interface,
          Request = {Url, "", "", RequestBody},
          ewp_http_client:request({post, Request, [{timeout, 75000}],[{body_format, binary}]}),
          ok
    catch
      _:_->
       ?ewp_err("request error:~p~n",["Error to delete file."])
    end.

%% Created: 2017-3-3
%% Description: 异步http请求我方接口，测试方法 backend_controller:test_mbu().
test_mbu()->
    %%QrNoTest= "123456",   %%lists:flatten(io_lib:format("~6.10.0B",[random:uniform(999999)])),
    %%RequestBody1 = "<?xml version='1.0' encoding='utf-8'?><Agw><Head direction='response'><Trade>MBU004</Trade><Channel>05095</Channel><KeyGenerator>001234</KeyGenerator><ErrorCode>0000</ErrorCode><ErrorMsg>交易成功</ErrorMsg></Head><Body><version>1.0.0</version><reqType>0230000903</reqType><qrNo>" ++ QrNoTest ++ "</qrNo><currencyCode></currencyCode><txnAmt>299</txnAmt><payerInfo></payerInfo><transAddnInfo></transAddnInfo><reqReserved></reqReserved><voucherNum></voucherNum><upReserved></upReserved><encryptCertId></encryptCertId></Body></Agw>",
    RequestBody2 = "<?xml version='1.0' encoding='UTF-8'?><Agw><Head direction='request'><Trade>MBU005</Trade><ErrorMsg></ErrorMsg></Head><Body><version>1.0.0</version><signature>rrOGNTufHIwmo15Anh94xI7EZ UMMpp/mr6w4Q72ugAYurVp/xgKXzc9SZquYFMYNvZfhGtQ IhknD OW/PV5kbEHPhIgkWipH2u5nMQpQQV5YcpYtCQqvulRFb/EAsd6ObH2oQQXfVduQbihZYm6VzAHJYrvD1cnh3r9/14RBWU6jBCOTCv0NBOAluQxXFvLxJtIVqLzFWqUkngKoY4RJG2b7lqI2fkQCFDmRnOi 7THZoQkEHp4LuI/JHtCFcj/E9 5GU8KZYj0RWE8fmBBb9ner/6lQTUTJ5yL0KVobVdjyNWb1k1nnLEna542W6lZoOHCSXBbCJK6z7R3yigUQ</signature><certId>68759585097</certId><reqType>0250000903</reqType><qrNo>6222806305983432309</qrNo><currencyCode>156</currencyCode><txnAmt>30000</txnAmt><origRespCode>61</origRespCode><origRespMsg>输入的卡号无效，请确认后输入</origRespMsg><merId>777290058135880</merId><merCatCode>5811</merCatCode><merName>商户名称</merName><termId>49000002</termId><voucherNum>20170314381647956089</voucherNum><settleKey></settleKey><settleDate></settleDate><reqReserved>01</reqReserved></Body></Agw>",
    _A = test_interface(RequestBody2,"mbu").
    %%RequestBody2 = "<?xml version='1.0' encoding='utf-8'?><Agw><Head direction='response'><Trade>MBU005</Trade><Channel>05095</Channel><KeyGenerator>001234</KeyGenerator><ErrorCode>0000</ErrorCode><ErrorMsg>交易成功</ErrorMsg></Head><Body><version>1.0.0</version><reqType>0250000903</reqType><origReqType></origReqType><qrNo>" ++ QrNoTest ++ "</qrNo><currencyCode></currencyCode><txnAmt></txnAmt><origRespCode></origRespCode><origRespMsg></origRespMsg><merId></merId><merCatCode></merCatCode>okname<merName></merName><termId></termId><voucherNum>123456</voucherNum><settleKey></settleKey><settleDate></settleDate><reqReserved></reqReserved></Body></Agw>",
    %%B = test_interface(RequestBody2,"mbu"),
    %%io:format("B=============~p~n",[B]).

转载于:https://www.cnblogs.com/weidongprefer/p/6637881.html

weixin_34085658
关注
  • 0
    点赞
  • 踩
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
erlang http
牛逼！
04-16 1651
http协议基础
hackney：Erlang中的简单HTTP客户端
02-03
1. **Erlang语言特性**：Erlang的并发模型（进程）、轻量级线程、热代码升级、错误恢复机制等在hackney库中是如何体现的，以及如何利用这些特性来实现高效、可靠的HTTP请求。 2. **HTTP协议支持**：hackney支持的...
Erlang发送HTTP请求(Get,Post)
EnskDeCode
09-02 2338
在开发项目Erlang程序项目中 , 用到了HTTP请求 , 主要是Get和Post , 其他的类似Put和Post请求模式一样 ; 现将代码总结如下 : 发送HTTP-Get请求 inets:start(), ReqUrl = string:join(["http://www.example.com/user?access=",binary_to_list(Access)],""), R
通过 erlang 向服务器发送 http post 请求
weixin_30606669的博客
08-23 325
1 -module(t). 2 3 -export([test/0]). 4 5 test()-> 6 Method = post, 7 URL = "http://192,168.124.10:3000/node/2.0/new", 8 Header = [], 9 Type = "applica...
Erlang cowboy 处理简单的HTTP请求
恒
10-31 3923
Handling plain HTTP requestsThe simplest way to handle a request is by writing a plain HTTP handler. It is modeled after Erlang/OTP's gen_server behaviour, although simplified, as Cowboy will simply c
erlang http post and get 请求【转】
shareinfo2018
05-10 596
来自：http://blog.csdn.net/yangzm/article/details/51506384 get  请求： ％同步请求 createid() -> inets:start(), Rui = "http://some..../.php", {ok,Result}=httpc:request(get,{Rui,[]},[],[]), ine
erlang 中文乱码
03-27
6. **网络传输**：如果涉及到网络传输，如HTTP请求，确保HTTP头信息中的`Content-Type`字段指定了正确的字符集，如`charset=utf-8`。 通过上述步骤，你应该能够解决Erlang中的中文乱码问题。如果你仍然遇到困难，...
webdrv:Erlang 中的 WebDriver 实现
06-26
WebDriver API 通过 http 请求访问，数据使用 JSON 序列化。 这个包包含两个级别； 一个纯粹的功能级别，其中可以生成单独的 WebDriver 命令，以及一个基于 gen_server 的级别，包含 WebDriver 会话的概念（即与...
bookish_spork：用于测试http请求的Erlang库
02-05
`bookish_spork`利用Erlang的并发特性和强大的网络功能，帮助开发者创建模拟的HTTP服务器，这些服务器可以响应各种HTTP请求，并返回预设的响应，从而在测试中模拟真实环境。 ### Elixir与Web开发 Elixir是基于...
erlang mochiweb-test demo
01-13
Mochiweb 是一个用 Erlang 编写的轻量级 Web 服务器和 HTTP 客户端库，它提供了处理 HTTP 请求和响应的能力。这个 "erlang mochiweb-test demo" 压缩包很可能是为了展示如何使用 Mochiweb 在 Erlang 中构建一个简单...
erltunnel:用 Erlang 编写的 HTTP 隧道客户端和服务器，用于通过 HTTP 隧道传输 TCP 连接
06-10
隧道 当由于限制性防火墙而不允许直接连接服务器时，HTTP 隧道允许客户端应用程序建立到远程服务器的虚拟 TCP 连接。 从防火墙后面的客户端到位于 Internet 上的服务器的访问通常由中间 Web 代理控制，该代理根据一组单独定义的访问规则允许或拒绝传出连接。 例如，Squid 是一种广泛使用的 Web 代理，可以细粒度控制允许客户端连接的远程主机和端口。 此外，Squid 可以通过检查 HTTP 请求或响应的标头来阻止它们。 大多数代理可能允许在其标准端口上访问 HTTP、HTTPS 和 FTP 服务器，但在最严格的情况下，可能只允许在标准端口 80 上访问 HTTP。 如果您的客户端应用程序需要访问某个远程服务器但无法通过防火墙并且调整访问规则不是一个选项（由于配置成本或缺乏权限），则连接到服务器的唯一方法是通过隧道将预期连接通过通过防火墙的连接。 HTTP 隧道软件由隧道客户
erlang使用post方式发送json数据
05-28
学习erlang的时候尝试编写的小例子，使用post方式发送json数据来进行http请求，希望能帮到大家~
erlang HTTP 客户端 使用实例
weixin_34006965的博客
09-28 303
HTTPC的请求范式 HTTPC(Method(),Request(),Httoptions().Options()) 其中 Method=head|get|put|psot|trace|options|delete (一般主要用 get ,post ,put ,delete) Request= {url(),headers()}|{url(),headers(),content_...
erlang http post 发送数据请求
weixin_30872789的博客
11-13 155
ibrowse:send_req("http://127.0.0.1/NativePhone.ashx", [{"Content-Type", "application/x-www-form-urlencoded"}], post, "op=parms"),httpc:request(post,{"http://127.0.0.1/NativePhone.ashx",[],"text/plain"...
Erlang实现的简易HTTP服务器
【昆山人在上海】
12-22 1548
-module(hello). -export([start/2]). start(Port, Doc) -> spawn(fun () -> {ok, Sock} = gen_tcp:listen(Port, [{active, false}]), loop(Sock, Doc) end). loop(Sock, Doc) -> {ok, Conn} = gen_tcp:ac
erlang http post请求之 text json xml方式
闲人一小枚
01-21 889
xml请求 XmlList = xmlencode(ParamList), ContentType = "application/xml", HTTPOptions = [{timeout, 3000}], Options = [],  httpc:request(post, {"www.baidu.com", [], ContentType, XmlList}, HTTPOptions,...
erlang http post and get 请求
yangzm的专栏
05-26 3527
参考： http://erlang.org/doc/apps/inets/http_client.html get  请求： ％同步请求 createid() -> inets:start(), Rui = "http://some..../.php", {ok,Result}=httpc:request(get,{Rui,[]},[],[]),
【erlang】 http get post
钟离彧
11-18 350
erlang http get post
[Erlang 学习笔记] 通过 erlang 向服务器发送 http post 请求
热门推荐
lqg1122
11-03 1万+
由于项目测试需要，在写机器人的时候用到了erlang的httpc来向server端发送post请求，自己做个记录，日后忘记了 可以查看，一下是使用实例： t.erl -module(t). -export([t/0]). -define(Name,"hosr"). -define(Passwd,112233). t()-> inets:start(), ssl:start(),
Erlang中还有其他办法吗
最新发布
06-09
在 Erlang 中，可以使用 Erlang 的进程间通信机制来实现不同进程之间的数据共享。Erlang 的进程间通信主要有以下几种方式： 1. 消息传递：使用消息传递机制，将数据从一个进程发送到另一个进程。发送进程和接收进程...

“相关推荐”对你有帮助么？

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值