微信内网页开发 - 公众号发红包_lzqustc的博客-CSDN博客

来源: 微信内网页开发 – 公众号发红包_lzqustc的博客-CSDN博客

接口文档:

https://pay.weixin.qq.com/wiki/doc/api/tools/cash_coupon.php?chapter=13_4&index=3

 

一、开通现金红包权限

二、下载API证书

三、充值

以上步骤请参考:https://pay.weixin.qq.com/wiki/doc/api/tools/cash_coupon.php?chapter=13_3&index=2

 

服务端逻辑:

1、服务端先根据用户在APP中获得的红包金额,创建一条数据库记录(分配红包兑换码,用户信息,金额等等)

2、用户关注公众号,点击公众号菜单:红包兑换,菜单的链接可以是授权登录的链接,点击菜单经过服务器授权登录,获得用户的openid,然后重定向到H5兑换页面(openid作为页面参数)

 

3、用户输入兑换码,H5页面把openid和兑换码信息提交给服务器的Perl CGI脚本,例如https:/xxxx/cgi-bin/pay.pl?do=GetRedPack&redpack_code=xxxxxxx&openid=xxxxxx

 

脚本处理

if ($cgi->param(‘do’) eq “GetRedPack”) {

}

4、CGI脚本根据兑换码,调用服务端接口获取数据库记录,然后组合相关参数调用微信普通红包接口,给用户发红包

 

代码片段:

use CGI;

use warnings;

use JSON;

use utf8;

use Digest::MD5 qw/md5_hex/;

use HTTP::Request;

use HTTP::Headers;

use LWP::UserAgent;

use Encode;

use XML::Simple;

use Data::Dumper;

 

if ($cgi->param(‘do’) eq “GetRedPack”) { # ?do=GetRedPack&openid=xxx&redpack_code=xxx

my $openid = $cgi->param(‘openid’);

my $redpack_code=$cgi->param(‘redpack_code’);

 

my $redpack_info = get_redpack_by_code($redpack_code);

 

my $now_t = time();

my $wx_order_info;

$wx_order_info->{mch_id}=$MCH_ID;

$wx_order_info->{nonce_str}=nonce_str();

my $mch_billno=$MCH_ID.formateTime($now_t).$now_t;

if (length($mch_billno) > 28) {

$mch_billno = substr($mch_billno, 0, 28);

}

my $total_rmb = $redpack_info->{money_rmb} + 0;

my $total_num = $redpack_info->{total_num} + 0;

$wx_order_info->{mch_billno} = $mch_billno;

$wx_order_info->{wxappid}=$APPID;

$wx_order_info->{send_name}=”Tester”;

$wx_order_info->{re_openid}=$openid;

$wx_order_info->{total_amount}=100*$total_rmb;

$wx_order_info->{total_num}=1;

$wx_order_info->{wishing}=$redpack_info->{wishing}; #”happy new year”;

$wx_order_info->{client_ip}=”1.1.1.1″; #需要填写服务器ip

$wx_order_info->{act_name}=$redpack_info->{act_name};

$wx_order_info->{remark}=$redpack_info->{remark}; #”throw more get more”;

 

#红包金额大于200时,请求参数scene_id必传

$wx_order_info->{scene_id}=”PRODUCT_3″;

#write_log(“req_json:”.Dumper($wx_order_info));

 

$wx_order_info->{sign} = sign($wx_order_info, “false”);

#write_log(“req_sign:”.Dumper($wx_order_info));

 

my $request_xml = create_xml_data($wx_order_info);

#write_log(“req_xml:”.$request_xml);

my $header = HTTP::Headers->new( Content_Type => ‘text/xml; charset=utf8’, );

my $http_request = HTTP::Request->new( POST => “https://api.mch.weixin.qq.com/mmpaymkttransfers/sendredpack”, $header, $request_xml);

my $ua = LWP::UserAgent->new(

ssl_opts => {

verify_hostname => 0,

#SSL_verify_mode => 0x00,

#SSL_ca_file => ‘/var/redpack/rootca.pem’

SSL_use_cert => 1,

SSL_cert_file => ‘/var/redpack/apiclient_cert.pem’,

SSL_key_file => ‘/var/redpack/apiclient_key.pem’,

SSL_passwd_cb => sub { $MCH_ID },

},

); #本接口需要上传证书

my $response = $ua->request($http_request);

my $response_json;

if ($response->message ne “OK” && $response->is_success ne “1”) { #出错,或者timeout了

$response_json->{return_code} = “99999”;

$response_json->{return_msg} = $response->message;

$response_json->{err_code} = $response->is_success;

} else {

my $decode_rsp = $response->decoded_content();

write_log(“\nrsp_xml_utf8:”.$decode_rsp);

$response_json = parse_xml_response( $decode_rsp);

}

 

my $ret = update_redpack_by_code($redpack_code);

print_html_notify_rsp(“success”);

if ($response_json->{return_code} eq “SUCCESS” && $response_json->{result_code} eq “SUCCESS”) {

$redirect_url = “http://xxxx/redpack_success.html?redpack_code=$redpack_code”;

print $cgi->redirect($redirect_url); #发送成功,跳转到成功页面

} else {

$redirect_url = “http://xxxx/redpack_failed.html?redpack_code=$redpack_code”;

print $cgi->redirect($redirect_url); #发送失败,跳转到成功页面

}

exit;

}
————————————————
版权声明:本文为CSDN博主「lzqustc」的原创文章,遵循CC 4.0 BY-SA版权协议,转载请附上原文出处链接及本声明。
原文链接:https://blog.csdn.net/lzqustc/article/details/84878304

赞(0) 打赏
分享到: 更多 (0)

觉得文章有用就打赏一下文章作者

支付宝扫一扫打赏

微信扫一扫打赏