| line |
stmt |
bran |
cond |
sub |
pod |
time |
code |
|
1
|
1
|
|
|
1
|
|
6
|
use strict; |
|
|
1
|
|
|
|
|
2
|
|
|
|
1
|
|
|
|
|
127
|
|
|
2
|
|
|
|
|
|
|
sub Mojo::Webqq::Model::_set_group_admin{ |
|
3
|
0
|
|
|
0
|
|
|
my $self = shift; |
|
4
|
0
|
|
|
|
|
|
my($uid,@qq) = @_; |
|
5
|
0
|
|
|
|
|
|
my $api = "http://qinfo.clt.qq.com/cgi-bin/qun_info/set_group_admin"; |
|
6
|
0
|
|
|
|
|
|
my $json = $self->http_post( |
|
7
|
|
|
|
|
|
|
$api,{Referer=>"http://qinfo.clt.qq.com/member.html",json=>1}, |
|
8
|
|
|
|
|
|
|
form=>{src=>"qinfo_v2",gc=>$uid,u=>join("|",$qq[0]),op=>1,bkn=>$self->get_csrf_token} |
|
9
|
|
|
|
|
|
|
); |
|
10
|
0
|
0
|
|
|
|
|
return if not defined $json; |
|
11
|
0
|
0
|
|
|
|
|
return if $json->{ec}!=0; |
|
12
|
0
|
|
|
|
|
|
return 1; |
|
13
|
|
|
|
|
|
|
} |
|
14
|
|
|
|
|
|
|
1; |