| line |
stmt |
bran |
cond |
sub |
pod |
time |
code |
|
1
|
|
|
|
|
|
|
sub Mojo::Weixin::_logout { |
|
2
|
0
|
|
|
0
|
|
|
my $self = shift; |
|
3
|
0
|
|
|
|
|
|
$self->info("客户端正在注销..."); |
|
4
|
0
|
|
0
|
|
|
|
my $type = shift || 0; |
|
5
|
0
|
|
|
|
|
|
my $api = "https://". $self->domain ."/cgi-bin/mmwebwx-bin/webwxlogout"; |
|
6
|
0
|
|
|
|
|
|
my @query_string = ( |
|
7
|
|
|
|
|
|
|
redirect => 1, |
|
8
|
|
|
|
|
|
|
type => $type, |
|
9
|
|
|
|
|
|
|
skey => $self->url_escape($self->skey), |
|
10
|
|
|
|
|
|
|
); |
|
11
|
0
|
|
|
|
|
|
my $post = { |
|
12
|
|
|
|
|
|
|
sid => $self->wxsid, |
|
13
|
|
|
|
|
|
|
uin => $self->wxuin, |
|
14
|
|
|
|
|
|
|
}; |
|
15
|
0
|
|
|
|
|
|
$self->http_post($self->gen_url($api,@query_string),{ua_debug_res_body=>0,Referer=>"https://". $self->domain . "/"},form=>$post,); |
|
16
|
0
|
|
|
|
|
|
$self->clear_cookie(); |
|
17
|
0
|
|
|
|
|
|
return 1; |
|
18
|
|
|
|
|
|
|
} |
|
19
|
|
|
|
|
|
|
1; |