File Coverage

blib/lib/WebService/GData/ClientLogin.pm

Criterion	Covered	Total	%
statement	38	39	97.4
branch	6	8	75.0
condition	6	7	85.7
subroutine	12	12	100.0
pod	2	4	50.0
total	64	70	91.4

package WebService::GData::ClientLogin;
use WebService::GData 'private';
use base 'WebService::GData';
use WebService::GData::Error;
use WebService::GData::Constants;
use LWP;


our $VERSION = 0.01_06;
our $CLIENT_LOGIN_URI = WebService::GData::Constants::CLIENT_LOGIN_URL;
our $CAPTCHA_URL      = WebService::GData::Constants::CAPTCHA_URL;

WebService::GData::install_in_package(
    [qw(type password service source captcha_token captcha_answer email key)],
    sub {
        my $subname = shift;
        return sub {
            my $this = shift;
            $this->{$subname}
          }
    }
);

sub __init {
    my ( $this, %params ) = @_;

    $this->{email}    = $params{email};
    $this->{password} = $params{password};

    die new WebService::GData::Error( 'invalid_parameters',
        'Password and Email are required to log in.' )
      if ( !$params{password} || !$params{email} );

    $this->{service} = $params{service}
      || WebService::GData::Constants::YOUTUBE_SERVICE;

    $this->{type} = $params{type} || 'HOSTED_OR_GOOGLE';

    $this->{source} =
      ( defined $params{source} )
      ? $params{source}
      : __PACKAGE__ . '-' . $VERSION;

    $this->{captcha_token} = $params{captcha_token};

    $this->{captcha_answer} = $params{captcha_answer};

    #youtube related?
    $this->{key} = $params{key};

    $this->{ua} = $this->_create_ua();

    return $this->_clientLogin();
}

sub captcha_url {
    my $this = shift;
    if ( $this->{captcha_url} ) {
        return $CAPTCHA_URL . $this->{captcha_url};
    }
    return undef;
}

sub authorization_key {
    my $this = shift;
    return $this->{Auth};
}

#for developer only
sub set_authorization_headers {
    my ( $this, $subject, $req ) = @_;
    $req->header(
        'Authorization' => 'GoogleLogin auth=' . $this->authorization_key );
}

#youtube
sub set_service_headers {
    my ( $this, $subject, $req ) = @_;
    $req->header( 'X-GData-Key' => 'key=' . $this->key ) if defined $this->key;
}

#private

private _create_ua => sub {
    my $this = shift;
    my $ua   = LWP::UserAgent->new;
    $ua->agent( $this->source );
    return $ua;
};

private _post => sub {
    my ( $this, $uri, $content ) = @_;
    my $req = HTTP::Request->new( POST => $uri );
    $req->content_type('application/x-www-form-urlencoded');
    $req->content($content);
    my $res = $this->{ua}->request($req);
    if ( $res->is_success
        || ( $res->code == 403 && $res->content() =~ m/CaptchaRequired/ ) )
    {
        return $res->content();
    }
    else {
        if (   $res->code == 500
            && $res->content() =~ m/www.google.com:443 \(Invalid argument\)/ )
        {
            die new WebService::GData::Error( 'missing_ssl_module',
                'Crypt::SSLeay must be installed in order to use ssl.' );
        }
        my $error = _parse_response( 'Error', $res->content );
        die new WebService::GData::Error( $error, $res->content );
    }
};

private _parse_response => sub {
    my ( $key, $content ) = @_;
    return ( split( /$key\s*=(.+?)\s{1}/m, $content ) )[1];
};

private _clientLogin => sub {
    my $this = shift;

    my $content = 'Email=' . _urlencode( $this->email );
    $content .= '&Passwd=' . _urlencode( $this->password );
    $content .= '&service=' . $this->service;
    $content .= '&source=' . _urlencode( $this->source );
    $content .= '&accountType=' . $this->type;

    #when failed the first time, add the captcha
    $content .= '&logintoken=' . $this->captcha_token
      if ( $this->captcha_token );
    $content .= '&logincaptcha=' . $this->captcha_answer
      if ( $this->captcha_answer );

    $this->{content} = $content;

    my $ret = $this->_post( $CLIENT_LOGIN_URI, $content );

    $this->{Auth}          = _parse_response( 'Auth',         $ret );
    $this->{captcha_token} = _parse_response( 'CaptchaToken', $ret );
    $this->{captcha_url}   = _parse_response( 'CaptchaUrl',   $ret );
    return $this;

};

private _urlencode => sub {
    my ($string) = shift;
    $string =~ s/(\W)/"%" . unpack("H2", $1)/ge;
    return $string;
};

"The earth is blue like an orange.";

__END__