微信内网页开发 - 公众号发红包
接口文档：
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;
}