QQ-weixin-work/lib/QQ/weixin/work/security/vip.pm
package QQ::weixin::work::security::vip;
=encoding utf8
=head1 Name
QQ::weixin::work::security::vip
=head1 DESCRIPTION
高级功能账号管理
=cut
use strict;
use base qw(QQ::weixin::work::security);
use Encode;
use LWP::UserAgent;
use JSON;
use utf8;
our $VERSION = '0.10';
our @EXPORT = qw/ submit_batch_add_job batch_add_job_result
submit_batch_del_job batch_del_job_result list /;
=head1 FUNCTION
=head2 submit_batch_add_job(access_token, hash);
分配高级功能账号
最后更新：2024/01/24
=head2 SYNOPSIS
L<https://developer.work.weixin.qq.com/document/path/99503>
=head3 请求说明：
该接口用于分配应用可见范围内企业成员的高级功能。
=head4 请求包结构体为：
{
"userid_list": ["zhangsan","lisi","wangwu","zhaoliu"]
}
=head4 参数说明：
参数 必须 说明
access_token 是 调用接口凭证
userid_list 是 要分配高级功能的企业成员userid列表，单次操作最大限制100个
=head4 权限说明：
应用类型 权限要求
自建应用 配置到「安全与管理 - 可调用接口的应用」中
代开发应用 暂不支持
第三方应用 暂不支持
=head3 RETURN 返回结果：
{
"errcode": 0,
"errmsg": "ok",
"jobid": "xxx",
"invalid_userid_list":["zhaoliu"]
}
=head4 RETURN 参数说明：
参数 说明
errcode 返回码
errmsg 对返回码的文本描述内容
jobid 批量分配高级功能的任务id
invalid_userid_list 非法的userid 列表，不在应用可见范围的useri以及无法识别的userid
=cut
sub submit_batch_add_job {
if ( @_ && $_[0] && ref $_[1] eq 'HASH' ) {
my $access_token = $_[0];
my $json = $_[1];
my $ua = LWP::UserAgent->new;
$ua->timeout(30);
$ua->env_proxy;
my $response = $ua->post("https://qyapi.weixin.qq.com/cgi-bin/security/vip/submit_batch_add_job?access_token=$access_token",Content => to_json($json,{allow_nonref=>1}),Content_type =>'application/json');
if ($response->is_success) {
return from_json($response->decoded_content,{utf8 => 1, allow_nonref => 1});
}
}
return 0;
}
=head2 batch_add_job_result(access_token, hash);
查询分配高级功能账号结果
最后更新：2024/01/24
=head2 SYNOPSIS
L<https://developer.work.weixin.qq.com/document/path/99503>
=head3 请求说明：
该接口用于分配应用可见范围内企业成员的高级功能。
=head4 请求包结构体为：
{
"jobid": "xxx"
}
=head4 参数说明：
参数 必须 说明
access_token 是 调用接口凭证
jobid 是 批量分配高级功能的任务id
=head4 权限说明：
应用类型 权限要求
自建应用 配置到「安全与管理 - 可调用接口的应用」中
代开发应用 暂不支持
第三方应用 暂不支持
=head3 RETURN 返回结果：
{
"errcode": 0,
"errmsg": "ok",
"jobid": "xxx",
"invalid_userid_list":["zhaoliu"]
}
=head4 RETURN 参数说明：
参数 说明
errcode 返回码
errmsg 对返回码的文本描述内容
job_result 执行任务结果详情
succ_userid_list 分配成功的用户列表，包括之前已经分配过的用户
fail_userid_list 分配失败的用户列表
=cut
sub batch_add_job_result {
if ( @_ && $_[0] && ref $_[1] eq 'HASH' ) {
my $access_token = $_[0];
my $json = $_[1];
my $ua = LWP::UserAgent->new;
$ua->timeout(30);
$ua->env_proxy;
my $response = $ua->post("https://qyapi.weixin.qq.com/cgi-bin/security/vip/batch_add_job_result?access_token=$access_token",Content => to_json($json,{allow_nonref=>1}),Content_type =>'application/json');
if ($response->is_success) {
return from_json($response->decoded_content,{utf8 => 1, allow_nonref => 1});
}
}
return 0;
}
=head2 submit_batch_del_job(access_token, hash);
取消高级功能账号
最后更新：2024/01/24
=head2 SYNOPSIS
L<https://developer.work.weixin.qq.com/document/path/99505>
=head3 请求说明：
该接口用于撤销分配应用可见范围企业成员的高级功能。
=head4 请求包结构体为：
{
"userid_list": ["zhangsan","lisi","wangwu","zhaoliu"]
}
=head4 参数说明：
参数 必须 说明
access_token 是 调用接口凭证
userid_list 是 要撤销分配高级功能的企业成员userid列表，单次操作最多限制100个
=head4 权限说明：
应用类型 权限要求
自建应用 配置到「安全与管理 - 可调用接口的应用」中
代开发应用 暂不支持
第三方应用 暂不支持
=head3 RETURN 返回结果：
{
"errcode": 0,
"errmsg": "ok",
"jobid": "xxx",
"invalid_userid_list":["zhaoliu"]
}
=head4 RETURN 参数说明：
参数 说明
errcode 返回码
errmsg 对返回码的文本描述内容
job_result 执行任务结果详情
jobid 批量取消高级功能的任务id
invalid_userid_list 非法的userid 列表，不在应用可见范围的useri以及无法识别的userid
=cut
sub submit_batch_del_job {
if ( @_ && $_[0] && ref $_[1] eq 'HASH' ) {
my $access_token = $_[0];
my $json = $_[1];
my $ua = LWP::UserAgent->new;
$ua->timeout(30);
$ua->env_proxy;
my $response = $ua->post("https://qyapi.weixin.qq.com/cgi-bin/security/vip/submit_batch_del_job?access_token=$access_token",Content => to_json($json,{allow_nonref=>1}),Content_type =>'application/json');
if ($response->is_success) {
return from_json($response->decoded_content,{utf8 => 1, allow_nonref => 1});
}
}
return 0;
}
=head2 batch_del_job_result(access_token, hash);
查询取消高级功能账号结果
最后更新：2024/01/24
=head2 SYNOPSIS
L<https://developer.work.weixin.qq.com/document/path/99505>
=head3 请求说明：
=head4 请求包结构体为：
{
"jobid": "xxx"
}
=head4 参数说明：
参数 必须 说明
access_token 是 调用接口凭证
jobid 是 批量取消高级功能的任务id
=head4 权限说明：
应用类型 权限要求
自建应用 配置到「安全与管理 - 可调用接口的应用」中
代开发应用 暂不支持
第三方应用 暂不支持
=head3 RETURN 返回结果：
{
"errcode": 0,
"errmsg": "ok",
"job_result": {
"succ_userid_list":["zhangsan","lisi"],
"fail_userid_list":["wangwu"]
}
}
=head4 RETURN 参数说明：
参数 说明
errcode 返回码
errmsg 对返回码的文本描述内容
job_result 执行任务结果详情
succ_userid_list 撤销分配成功的用户列表
fail_userid_list 撤销分配失败的用户列表
=cut
sub batch_del_job_result {
if ( @_ && $_[0] && ref $_[1] eq 'HASH' ) {
my $access_token = $_[0];
my $json = $_[1];
my $ua = LWP::UserAgent->new;
$ua->timeout(30);
$ua->env_proxy;
my $response = $ua->post("https://qyapi.weixin.qq.com/cgi-bin/security/vip/batch_del_job_result?access_token=$access_token",Content => to_json($json,{allow_nonref=>1}),Content_type =>'application/json');
if ($response->is_success) {
return from_json($response->decoded_content,{utf8 => 1, allow_nonref => 1});
}
}
return 0;
}
=head2 list(access_token, hash);
获取高级功能账号列表
最后更新：2024/01/24
=head2 SYNOPSIS
L<https://developer.work.weixin.qq.com/document/path/99506>
=head3 请求说明：
该接口用于查询企业已分配高级功能且在应用可见范围的账号列表。
=head4 请求包结构体为：
{
"cursor":"CURSOR",
"limit":2
}
=head4 参数说明：
参数 必须 说明
access_token 是 调用接口凭证
cursor 否 用于分页查询的游标，字符串类型，由上一次调用返回，首次调用可不填
limit 否 用于分页查询，每次请求返回的数据上限。默认100，最大200
注意：不保证每次返回的数据刚好为指定limit，必须用返回的has_more判断是否继续请求
=head4 权限说明：
应用类型 权限要求
自建应用 配置到「安全与管理 - 可调用接口的应用」中
代开发应用 暂不支持
第三方应用 暂不支持
=head3 RETURN 返回结果：
{
"errcode": 0,
"errmsg": "ok",
"has_more":true,
"next_cursor":"GNIJIGEO",
"userid_list":["zhangsan","lisi"]
}
=head4 RETURN 参数说明：
参数 说明
errcode 返回码
errmsg 对返回码的文本描述内容
has_more 是否还有更多数据未获取
next_cursor 下一次请求的cursor值
userid_list 符合条件的企业成员userid列表
=cut
sub list {
if ( @_ && $_[0] && ref $_[1] eq 'HASH' ) {
my $access_token = $_[0];
my $json = $_[1];
my $ua = LWP::UserAgent->new;
$ua->timeout(30);
$ua->env_proxy;
my $response = $ua->post("https://qyapi.weixin.qq.com/cgi-bin/security/vip/list?access_token=$access_token",Content => to_json($json,{allow_nonref=>1}),Content_type =>'application/json');
if ($response->is_success) {
return from_json($response->decoded_content,{utf8 => 1, allow_nonref => 1});
}
}
return 0;
}
1;
__END__