| line |
stmt |
bran |
cond |
sub |
pod |
time |
code |
|
1
|
|
|
|
|
|
|
sub Mojo::Webqq::Client::logout { |
|
2
|
0
|
|
|
0
|
0
|
|
my $self = shift; |
|
3
|
0
|
|
|
|
|
|
$self->info("正在注销...\n"); |
|
4
|
0
|
|
|
|
|
|
$self->http_get($self->gen_url('https://ptlogin2.qq.com/logout',( |
|
5
|
|
|
|
|
|
|
pt4_token => $self->search_cookie('pt4_token'), |
|
6
|
|
|
|
|
|
|
pt4_hkey => $self->time33($self->skey), |
|
7
|
|
|
|
|
|
|
pt4_ptcz => $self->hash33($self->search_cookie("ptcz")), |
|
8
|
|
|
|
|
|
|
deep_logout => 1 |
|
9
|
|
|
|
|
|
|
)),{Referer => 'http://'. $self->domain . '/'}); |
|
10
|
|
|
|
|
|
|
#my $expire = 0 - time; |
|
11
|
|
|
|
|
|
|
#$self->ua->cookie_jar->add( |
|
12
|
|
|
|
|
|
|
# Mojo::Cookie::Response->new(name=>"superuin",value=>undef,path=>"/",domain=>"qq.com",expires=>$expire), |
|
13
|
|
|
|
|
|
|
# Mojo::Cookie::Response->new(name=>"superkey",value=>undef,path=>"/",domain=>"qq.com",expires=>$expire), |
|
14
|
|
|
|
|
|
|
# Mojo::Cookie::Response->new(name=>"uin",value=>undef,path=>"/",domain=>"qq.com",expires=>$expire), |
|
15
|
|
|
|
|
|
|
# Mojo::Cookie::Response->new(name=>"key",value=>undef,path=>"/",domain=>"qq.com",expires=>$expire), |
|
16
|
|
|
|
|
|
|
#); |
|
17
|
0
|
|
|
|
|
|
$self->ptwebqq(undef); |
|
18
|
0
|
|
|
|
|
|
$self->skey(undef); |
|
19
|
0
|
|
|
|
|
|
$self->save_cookie(); |
|
20
|
0
|
|
|
|
|
|
$self->info("注销完毕\n"); |
|
21
|
0
|
|
|
|
|
|
return 1; |
|
22
|
|
|
|
|
|
|
} |
|
23
|
|
|
|
|
|
|
1; |