File Coverage

blib/lib/Webqq/Client/Method/_relink.pm

Criterion	Covered	Total	%
statement	6	35	17.1
branch	0	20	0.0
condition			n/a
subroutine	2	3	66.6
pod			n/a
total	8	58	13.7

use JSON;
use Webqq::Client::Util qw(console);
sub Webqq::Client::_relink{
    my $self = shift;
    $self->{login_state} = 'relink';
    console "正在进行重新连接...\n";
    my $ua = $self->{ua};
    my $api_url = 'http://d.web2.qq.com/channel/login2';
    my @headers = $self->{type} eq 'webqq'? (Referer=>'http://d.web2.qq.com/proxy.html?v=20110331002&callback=1&id=3')
                :                           (Referer=>'http://d.web2.qq.com/proxy.html?v=20130916001&callback=1&id=2')
                ;
    my %r = (
        status      =>  $self->{qq_param}{status},
        key         =>  "",
        ptwebqq     =>  $self->{qq_param}{ptwebqq},
        clientid    =>  $self->{qq_param}{clientid},
        psessionid  =>  $self->{qq_param}{psessionid},
    );

    if($self->{type} eq 'webqq'){
        $r{passwd_sig} = $self->{qq_param}{passwd_sig};
    }

    for(my $i=0;$i<=$self->{ua_retry_times};$i++){
        my $response = $ua->post($api_url,[r=>JSON->new->utf8->encode(\%r)], @headers);
        if($response->is_success){
            print $response->content() if $self->{debug};
            my $content = $response->content();
            my $data = JSON->new->utf8->decode($content);
            if($data->{retcode} ==0){
                $self->{qq_param}{psessionid} = $data->{result}{psessionid} if $data->{result}{psessionid};
                $self->{qq_param}{vfwebqq} = $data->{result}{vfwebqq} if $data->{result}{vfwebqq};
                $self->{qq_param}{clientid} = $data->{result}{clientid} if $data->{result}{clientid};
                $self->{qq_param}{ptwebqq} = $data->{result}{ptwebqq} if $data->{result}{ptwebqq};
                $self->{qq_param}{skey} = $data->{result}{skey} if $data->{result}{skey};
                $self->{cookie_jar}->set_cookie(0,"ptwebqq",$data->{result}{ptwebqq},"/","qq.com");
                $self->_cookie_proxy();
                $self->{login_state} = 'success';
                return 1;
            }
            else{
                $self->relogin();
                return 0;
            }
        }
    }
    $self->relogin();
    return 0;
}
1;