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]).

erlang中http请求的更多相关文章

  1. Socket的UDP协议在erlang中的实现

    现在我们看看UDP协议(User Datagram Protocol,用户数据报协议).使用UDP,互联网上的机器之间可以互相发送小段的数据,叫做数据报.UDP数据报是不可靠的,这意味着如果客户端发送 ...

  2. charles 抓取eclipse中的请求

    charles抓取eclipse中的请求 有时候,想要监测eclipse中发送get获取post请求,一样可以使用代理方式: 1.eclipse代码设置 代码中添加,可以就写在主函数中,然后再调用请求 ...

  3. web过滤器中获取请求的参数(content-type:multipart/form-data)

    1.前言: 1.1 在使用springMVC中,需要在过滤器中获取请求中的参数token,根据token判断请求是否合法: 1.2 通过requst.getParameter(key)方法获得参数值; ...

  4. 在内核中异步请求设备固件firmware的测试代码

    在内核中异步请求设备固件firmware的测试代码 static void ghost_load_firmware_callback(const struct firmware *fw, void * ...

  5. struts中的请求数据自动封装

    Struts 2框架会将表单的参数以同名的方式设置给对应Action的属性中.该工作主要是由Parameters拦截器做的.而该拦截器中已经自动的实现了String到基本数据类型之间的转换工作.在st ...

  6. 关于struts2中action请求会执行两次的问题

    关于struts2中action请求会执行两次的问题     在struts2中发现,调用action中的方法,方法会被执行两次,后来发现调用的方法是get开头的,把它改为其他名称开头的后,就不会执行 ...

  7. Python中http请求方法库汇总

    最近在使用python做接口测试,发现python中http请求方法有许多种,今天抽点时间把相关内容整理,分享给大家,具体内容如下所示: 一.python自带库----urllib2 python自带 ...

  8. AJAX中的请求方式以及同步异步的区别

    AJAX中的请求方式以及同步异步的区别请求方式,分为GET与POST: GET 最为常见的HTTP请求,普通上网浏览页面就是GET.GET方式的参数请求直接跟在URL后,以问号开始.(JS中用wind ...

  9. jenkins 执行可执行jar包测试中，请求乱码解决办法

    自动化脚本在eclipse中执行,没有问题.jenkins构建打包自动化脚本,在执行脚本时,遇到了脚本中发送的请求的参数为乱码,实现了如下一些解决办法: 1.设置操作系统环境JAVA_TOOL_OPT ...

随机推荐

  1. 什么是MTBF测试【转】

    本文转载自:https://blog.csdn.net/liuhaoemail/article/details/50531489 MTBF测试 目前,终端侧的可靠性测试基本上是采用称为”MTBF测试” ...

  2. Springboot中Jackson的操作

    有一段时间没写博客了,虽然是菜鸟一枚但毕竟总要有东西记录学习的,我相信有志者事竟成.今天在工作中使用Jackson转换了一个javabean,传到测试服上之后发现日期少了一天,使用的是@JsonFor ...

  3. 承接Unity外包 U3D外包 Unity3D外包 小型Unity项目外包用Unity还是UE4

    转自mobilehub公众号(ID: mobilehub),作者:屠敏 VR浪潮席卷而来,相对于资本的狂热,现实中真正需要的是有实力的VR硬件研发团队和专业内容制作队伍.对于入门级的开发者而言,游戏引 ...

  4. 解决IE11安装时需要“获取更新”（IE11离线安装）

    方法一:说明:目前是针对Windows7 64位操作系统安装! 1. 在C盘下新建文件夹,取名为“IE11”. 2. 将官网下载的IE11离线包放到此文件夹中. 3. win + r 打开运行窗口,输 ...

  5. 基于三层架构项目下的Ado【六】

    一.基于三层架构项目下的Ado增删改查总结,提示:现在一般都是使用EF框架操作. 1. 先在model层创建出一个和你将会查询出一样类型的表,比如你将查询出的有五个字段,那么你就需要创建出一个和你查询 ...

  6. PHP常用工具类

    <?php namespace isslib\Util; use think\Config; /** * 常用工具类 * User: xaxiong * Date: 2016/12/19 * T ...

  7. idea在本地调试，spark创建hiveContext的时候报错

    spark版本:1.6.1 scala版本:2.10 问题呢场景: 在idea调试本地程序的时候创建hiveContext报错,上午的时候是没有这个问题的,下午在项目中写了一个小deamon,出现了而 ...

  8. WPF界面假死

    首先要检查那些滥用 Timer.Dispacher Timer 或者滥用什么“线程+死循环+阻塞”轮询的代码. 这种是编程大忌,有些人不会设计事件驱动程序,而是滥用轮询. 若是:触发事件后的假死,搜W ...

  9. Nginx缓存

    一.基于proxy_cache的缓存 worker_processes ; events { worker_connections ; } http { include mime.types; def ...

  10. 【图论】最短路问题之spfa

    写在算法前面: 前向星存图(一个神奇的超越邻接矩阵的存在) 首先讲一下需要定义的一些东西?? 1.head数组:head[点数]:head[i]表示以当前点i为起点的最后一条边(这里的最后指的是编号[ ...