r69315 - in /branches/upstream/libwww-google-auth-clientlogin-perl/current: Changes META.json META.yml Makefile.PL README dist.ini lib/WWW/Google/Auth/ClientLogin.pm
ghedo-guest at users.alioth.debian.org
ghedo-guest at users.alioth.debian.org
Tue Feb 22 11:32:21 UTC 2011
Author: ghedo-guest
Date: Tue Feb 22 11:32:12 2011
New Revision: 69315
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=69315
Log:
[svn-upgrade] new version libwww-google-auth-clientlogin-perl (0.03)
Modified:
branches/upstream/libwww-google-auth-clientlogin-perl/current/Changes
branches/upstream/libwww-google-auth-clientlogin-perl/current/META.json
branches/upstream/libwww-google-auth-clientlogin-perl/current/META.yml
branches/upstream/libwww-google-auth-clientlogin-perl/current/Makefile.PL
branches/upstream/libwww-google-auth-clientlogin-perl/current/README
branches/upstream/libwww-google-auth-clientlogin-perl/current/dist.ini
branches/upstream/libwww-google-auth-clientlogin-perl/current/lib/WWW/Google/Auth/ClientLogin.pm
Modified: branches/upstream/libwww-google-auth-clientlogin-perl/current/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libwww-google-auth-clientlogin-perl/current/Changes?rev=69315&op=diff
==============================================================================
--- branches/upstream/libwww-google-auth-clientlogin-perl/current/Changes (original)
+++ branches/upstream/libwww-google-auth-clientlogin-perl/current/Changes Tue Feb 22 11:32:12 2011
@@ -1,6 +1,52 @@
==============================
9999-99-99 99:99:99 +0000 HEAD
==============================
+
+ commit cdcede7bcb0400d8e87014cc62301c36f63306ca
+ Author: Alessandro Ghedini <al3xbio at gmail.com>
+ Date: Mon Feb 21 22:20:16 2011 +0100
+
+ bump version
+
+ commit b7baa0761480a452074c82d2495c9b171ea0fe24
+ Author: Alessandro Ghedini <al3xbio at gmail.com>
+ Date: Mon Feb 21 22:19:37 2011 +0100
+
+ fix spacing in SYNOPSIS
+
+ commit 7dcfae69316a264b42adc109ae0e8a918fe202c2
+ Author: Alessandro Ghedini <al3xbio at gmail.com>
+ Date: Mon Feb 21 22:18:34 2011 +0100
+
+ add GithubUpdate to dist.ini
+
+ commit 2f13fb1f5c4344d17adfd4d2a586e4e16e9ed9ee
+ Author: Alessandro Ghedini <al3xbio at gmail.com>
+ Date: Mon Feb 21 22:17:36 2011 +0100
+
+ fix 'src' -> 'source' mismatch
+
+ commit d6c0b9d24fa3403d211c009562d980bd9121add4
+ Author: Alessandro Ghedini <al3xbio at gmail.com>
+ Date: Mon Feb 21 22:17:03 2011 +0100
+
+ switch to HTTP::Tiny
+
+ commit 3ff20133b84fa9f6490a2a0aea1f9daba43a7c85
+ Author: Alessandro Ghedini <al3xbio at gmail.com>
+ Date: Mon Feb 21 22:04:13 2011 +0100
+
+ fix typo in DESCRIPTION
+
+ commit cdb22acead16df463cc85d5ffd2b6f9524429554
+ Author: Alessandro Ghedini <al3xbio at gmail.com>
+ Date: Thu Jan 6 16:54:12 2011 +0100
+
+ fix synopsis
+
+===============================
+2011-01-06 13:09:07 +0100 v0.02
+===============================
commit d83630cfe4dbf2c67753544eb7d1a22146aa33cf
Author: Alessandro Ghedini <al3xbio at gmail.com>
Modified: branches/upstream/libwww-google-auth-clientlogin-perl/current/META.json
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libwww-google-auth-clientlogin-perl/current/META.json?rev=69315&op=diff
==============================================================================
--- branches/upstream/libwww-google-auth-clientlogin-perl/current/META.json (original)
+++ branches/upstream/libwww-google-auth-clientlogin-perl/current/META.json Tue Feb 22 11:32:12 2011
@@ -4,7 +4,7 @@
"Alessandro Ghedini <alexbio at cpan.org>"
],
"dynamic_config" : 0,
- "generated_by" : "Dist::Zilla version 4.200000, CPAN::Meta::Converter version 2.102400",
+ "generated_by" : "Dist::Zilla version 4.200003, CPAN::Meta::Converter version 2.102400",
"license" : [
"perl_5"
],
@@ -22,8 +22,7 @@
"runtime" : {
"requires" : {
"Carp" : 0,
- "HTTP::Request::Common" : 0,
- "LWP::UserAgent" : 0
+ "HTTP::Tiny" : 0
}
},
"test" : {
@@ -41,108 +40,108 @@
"web" : "https://github.com/AlexBio/WWW-Google-Auth-ClientLogin"
}
},
- "version" : "0.02",
+ "version" : "0.03",
"x_Dist_Zilla" : {
"plugins" : [
{
"class" : "Dist::Zilla::Plugin::GatherDir",
"name" : "@Basic/GatherDir",
- "version" : "4.200000"
+ "version" : "4.200003"
},
{
"class" : "Dist::Zilla::Plugin::PruneCruft",
"name" : "@Basic/PruneCruft",
- "version" : "4.200000"
+ "version" : "4.200003"
},
{
"class" : "Dist::Zilla::Plugin::ManifestSkip",
"name" : "@Basic/ManifestSkip",
- "version" : "4.200000"
+ "version" : "4.200003"
},
{
"class" : "Dist::Zilla::Plugin::MetaYAML",
"name" : "@Basic/MetaYAML",
- "version" : "4.200000"
+ "version" : "4.200003"
},
{
"class" : "Dist::Zilla::Plugin::License",
"name" : "@Basic/License",
- "version" : "4.200000"
+ "version" : "4.200003"
},
{
"class" : "Dist::Zilla::Plugin::Readme",
"name" : "@Basic/Readme",
- "version" : "4.200000"
+ "version" : "4.200003"
},
{
"class" : "Dist::Zilla::Plugin::ExtraTests",
"name" : "@Basic/ExtraTests",
- "version" : "4.200000"
+ "version" : "4.200003"
},
{
"class" : "Dist::Zilla::Plugin::ExecDir",
"name" : "@Basic/ExecDir",
- "version" : "4.200000"
+ "version" : "4.200003"
},
{
"class" : "Dist::Zilla::Plugin::ShareDir",
"name" : "@Basic/ShareDir",
- "version" : "4.200000"
+ "version" : "4.200003"
},
{
"class" : "Dist::Zilla::Plugin::MakeMaker",
"name" : "@Basic/MakeMaker",
- "version" : "4.200000"
+ "version" : "4.200003"
},
{
"class" : "Dist::Zilla::Plugin::Manifest",
"name" : "@Basic/Manifest",
- "version" : "4.200000"
+ "version" : "4.200003"
},
{
"class" : "Dist::Zilla::Plugin::TestRelease",
"name" : "@Basic/TestRelease",
- "version" : "4.200000"
+ "version" : "4.200003"
},
{
"class" : "Dist::Zilla::Plugin::ConfirmRelease",
"name" : "@Basic/ConfirmRelease",
- "version" : "4.200000"
+ "version" : "4.200003"
},
{
"class" : "Dist::Zilla::Plugin::UploadToCPAN",
"name" : "@Basic/UploadToCPAN",
- "version" : "4.200000"
+ "version" : "4.200003"
},
{
"class" : "Dist::Zilla::Plugin::MetaResources",
"name" : "MetaResources",
- "version" : "4.200000"
+ "version" : "4.200003"
},
{
"class" : "Dist::Zilla::Plugin::MetaConfig",
"name" : "MetaConfig",
- "version" : "4.200000"
+ "version" : "4.200003"
},
{
"class" : "Dist::Zilla::Plugin::MetaJSON",
"name" : "MetaJSON",
- "version" : "4.200000"
+ "version" : "4.200003"
},
{
"class" : "Dist::Zilla::Plugin::AutoPrereqs",
"name" : "AutoPrereqs",
- "version" : "4.200000"
+ "version" : "4.200003"
},
{
"class" : "Dist::Zilla::Plugin::PodVersion",
"name" : "PodVersion",
- "version" : "4.200000"
+ "version" : "4.200003"
},
{
"class" : "Dist::Zilla::Plugin::PkgVersion",
"name" : "PkgVersion",
- "version" : "4.200000"
+ "version" : "4.200003"
},
{
"class" : "Dist::Zilla::Plugin::ChangelogFromGit",
@@ -152,32 +151,37 @@
{
"class" : "Dist::Zilla::Plugin::Git::Tag",
"name" : "Git::Tag",
- "version" : "1.103520"
+ "version" : "1.110500"
},
{
"class" : "Dist::Zilla::Plugin::Git::Push",
"name" : "Git::Push",
- "version" : "1.103520"
+ "version" : "1.110500"
+ },
+ {
+ "class" : "Dist::Zilla::Plugin::GithubUpdate",
+ "name" : "GithubUpdate",
+ "version" : "0.03"
},
{
"class" : "Dist::Zilla::Plugin::FinderCode",
"name" : ":InstallModules",
- "version" : "4.200000"
+ "version" : "4.200003"
},
{
"class" : "Dist::Zilla::Plugin::FinderCode",
"name" : ":TestFiles",
- "version" : "4.200000"
+ "version" : "4.200003"
},
{
"class" : "Dist::Zilla::Plugin::FinderCode",
"name" : ":ExecFiles",
- "version" : "4.200000"
+ "version" : "4.200003"
},
{
"class" : "Dist::Zilla::Plugin::FinderCode",
"name" : ":ShareFiles",
- "version" : "4.200000"
+ "version" : "4.200003"
}
],
"zilla" : {
@@ -185,7 +189,7 @@
"config" : {
"is_trial" : 0
},
- "version" : "4.200000"
+ "version" : "4.200003"
}
}
}
Modified: branches/upstream/libwww-google-auth-clientlogin-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libwww-google-auth-clientlogin-perl/current/META.yml?rev=69315&op=diff
==============================================================================
--- branches/upstream/libwww-google-auth-clientlogin-perl/current/META.yml (original)
+++ branches/upstream/libwww-google-auth-clientlogin-perl/current/META.yml Tue Feb 22 11:32:12 2011
@@ -7,7 +7,7 @@
configure_requires:
ExtUtils::MakeMaker: 6.31
dynamic_config: 0
-generated_by: 'Dist::Zilla version 4.200000, CPAN::Meta::Converter version 2.102400'
+generated_by: 'Dist::Zilla version 4.200003, CPAN::Meta::Converter version 2.102400'
license: perl
meta-spec:
url: http://module-build.sourceforge.net/META-spec-v1.4.html
@@ -15,94 +15,93 @@
name: WWW-Google-Auth-ClientLogin
requires:
Carp: 0
- HTTP::Request::Common: 0
- LWP::UserAgent: 0
+ HTTP::Tiny: 0
resources:
homepage: http://search.cpan.org/dist/WWW-Google-Auth-ClientLogin/
repository: git://github.com/AlexBio/WWW-Google-Auth-ClientLogin.git
-version: 0.02
+version: 0.03
x_Dist_Zilla:
plugins:
-
class: Dist::Zilla::Plugin::GatherDir
name: '@Basic/GatherDir'
- version: 4.200000
+ version: 4.200003
-
class: Dist::Zilla::Plugin::PruneCruft
name: '@Basic/PruneCruft'
- version: 4.200000
+ version: 4.200003
-
class: Dist::Zilla::Plugin::ManifestSkip
name: '@Basic/ManifestSkip'
- version: 4.200000
+ version: 4.200003
-
class: Dist::Zilla::Plugin::MetaYAML
name: '@Basic/MetaYAML'
- version: 4.200000
+ version: 4.200003
-
class: Dist::Zilla::Plugin::License
name: '@Basic/License'
- version: 4.200000
+ version: 4.200003
-
class: Dist::Zilla::Plugin::Readme
name: '@Basic/Readme'
- version: 4.200000
+ version: 4.200003
-
class: Dist::Zilla::Plugin::ExtraTests
name: '@Basic/ExtraTests'
- version: 4.200000
+ version: 4.200003
-
class: Dist::Zilla::Plugin::ExecDir
name: '@Basic/ExecDir'
- version: 4.200000
+ version: 4.200003
-
class: Dist::Zilla::Plugin::ShareDir
name: '@Basic/ShareDir'
- version: 4.200000
+ version: 4.200003
-
class: Dist::Zilla::Plugin::MakeMaker
name: '@Basic/MakeMaker'
- version: 4.200000
+ version: 4.200003
-
class: Dist::Zilla::Plugin::Manifest
name: '@Basic/Manifest'
- version: 4.200000
+ version: 4.200003
-
class: Dist::Zilla::Plugin::TestRelease
name: '@Basic/TestRelease'
- version: 4.200000
+ version: 4.200003
-
class: Dist::Zilla::Plugin::ConfirmRelease
name: '@Basic/ConfirmRelease'
- version: 4.200000
+ version: 4.200003
-
class: Dist::Zilla::Plugin::UploadToCPAN
name: '@Basic/UploadToCPAN'
- version: 4.200000
+ version: 4.200003
-
class: Dist::Zilla::Plugin::MetaResources
name: MetaResources
- version: 4.200000
+ version: 4.200003
-
class: Dist::Zilla::Plugin::MetaConfig
name: MetaConfig
- version: 4.200000
+ version: 4.200003
-
class: Dist::Zilla::Plugin::MetaJSON
name: MetaJSON
- version: 4.200000
+ version: 4.200003
-
class: Dist::Zilla::Plugin::AutoPrereqs
name: AutoPrereqs
- version: 4.200000
+ version: 4.200003
-
class: Dist::Zilla::Plugin::PodVersion
name: PodVersion
- version: 4.200000
+ version: 4.200003
-
class: Dist::Zilla::Plugin::PkgVersion
name: PkgVersion
- version: 4.200000
+ version: 4.200003
-
class: Dist::Zilla::Plugin::ChangelogFromGit
name: ChangelogFromGit
@@ -110,29 +109,33 @@
-
class: Dist::Zilla::Plugin::Git::Tag
name: Git::Tag
- version: 1.103520
+ version: 1.110500
-
class: Dist::Zilla::Plugin::Git::Push
name: Git::Push
- version: 1.103520
+ version: 1.110500
+ -
+ class: Dist::Zilla::Plugin::GithubUpdate
+ name: GithubUpdate
+ version: 0.03
-
class: Dist::Zilla::Plugin::FinderCode
name: ':InstallModules'
- version: 4.200000
+ version: 4.200003
-
class: Dist::Zilla::Plugin::FinderCode
name: ':TestFiles'
- version: 4.200000
+ version: 4.200003
-
class: Dist::Zilla::Plugin::FinderCode
name: ':ExecFiles'
- version: 4.200000
+ version: 4.200003
-
class: Dist::Zilla::Plugin::FinderCode
name: ':ShareFiles'
- version: 4.200000
+ version: 4.200003
zilla:
class: Dist::Zilla::Dist::Builder
config:
is_trial: 0
- version: 4.200000
+ version: 4.200003
Modified: branches/upstream/libwww-google-auth-clientlogin-perl/current/Makefile.PL
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libwww-google-auth-clientlogin-perl/current/Makefile.PL?rev=69315&op=diff
==============================================================================
--- branches/upstream/libwww-google-auth-clientlogin-perl/current/Makefile.PL (original)
+++ branches/upstream/libwww-google-auth-clientlogin-perl/current/Makefile.PL Tue Feb 22 11:32:12 2011
@@ -23,10 +23,9 @@
'NAME' => 'WWW::Google::Auth::ClientLogin',
'PREREQ_PM' => {
'Carp' => '0',
- 'HTTP::Request::Common' => '0',
- 'LWP::UserAgent' => '0'
+ 'HTTP::Tiny' => '0'
},
- 'VERSION' => '0.02',
+ 'VERSION' => '0.03',
'test' => {
'TESTS' => 't/*.t'
}
Modified: branches/upstream/libwww-google-auth-clientlogin-perl/current/README
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libwww-google-auth-clientlogin-perl/current/README?rev=69315&op=diff
==============================================================================
--- branches/upstream/libwww-google-auth-clientlogin-perl/current/README (original)
+++ branches/upstream/libwww-google-auth-clientlogin-perl/current/README Tue Feb 22 11:32:12 2011
@@ -1,7 +1,7 @@
This archive contains the distribution WWW-Google-Auth-ClientLogin,
-version 0.02:
+version 0.03:
Perl module to interact with Google's ClientLogin protocol
Modified: branches/upstream/libwww-google-auth-clientlogin-perl/current/dist.ini
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libwww-google-auth-clientlogin-perl/current/dist.ini?rev=69315&op=diff
==============================================================================
--- branches/upstream/libwww-google-auth-clientlogin-perl/current/dist.ini (original)
+++ branches/upstream/libwww-google-auth-clientlogin-perl/current/dist.ini Tue Feb 22 11:32:12 2011
@@ -1,6 +1,6 @@
name = WWW-Google-Auth-ClientLogin
author = Alessandro Ghedini <alexbio at cpan.org>
-version = 0.02
+version = 0.03
license = Perl_5
copyright_holder = Alessandro Ghedini
copyright_year = 2011
@@ -29,3 +29,5 @@
tag_message = %N %v
[Git::Push]
+
+[GithubUpdate]
Modified: branches/upstream/libwww-google-auth-clientlogin-perl/current/lib/WWW/Google/Auth/ClientLogin.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libwww-google-auth-clientlogin-perl/current/lib/WWW/Google/Auth/ClientLogin.pm?rev=69315&op=diff
==============================================================================
--- branches/upstream/libwww-google-auth-clientlogin-perl/current/lib/WWW/Google/Auth/ClientLogin.pm (original)
+++ branches/upstream/libwww-google-auth-clientlogin-perl/current/lib/WWW/Google/Auth/ClientLogin.pm Tue Feb 22 11:32:12 2011
@@ -1,11 +1,10 @@
package WWW::Google::Auth::ClientLogin;
BEGIN {
- $WWW::Google::Auth::ClientLogin::VERSION = '0.02';
+ $WWW::Google::Auth::ClientLogin::VERSION = '0.03';
}
use Carp;
-use LWP::UserAgent;
-use HTTP::Request::Common;
+use HTTP::Tiny;
use warnings;
use strict;
@@ -16,26 +15,27 @@
=head1 VERSION
-version 0.02
+version 0.03
=head1 SYNOPSIS
use WWW::Google::Auth::ClientLogin;
my $auth = WWW::Google::Auth::ClientLogin -> new(
- email => 'user at gmail.com',
- password => 'UserPassword',
- source => 'MyApp-0.8',
- type => 'GOOGLE',
- service => 'writely');
-
- my $auth_token = $auth -> authenticate -> {'Auth'};
+ email => 'user at gmail.com',
+ password => 'UserPassword',
+ source => 'MyApp-0.8',
+ type => 'GOOGLE',
+ service => 'writely'
+ );
+
+ my $auth_token = $auth -> authenticate -> {'auth_token'};
=head1 DESCRIPTION
Google's ClientLogin is a programmatic method for getting authorized access
to information exchanged with Google services and protected by an user
-account, implemented in the second version of the Goodle Data Protocol.
+account, implemented in the second version of the Google Data Protocol.
WWW::Google::Auth::ClientLogin implements the support to such method
providing an easy-to-use object oriented interface.
@@ -53,11 +53,11 @@
=item B<email>
-Specifies the user's full email address..
+Specifies the user's full email address..
=item B<password>
-Specifies the user's password.
+Specifies the user's password.
=item B<source>
@@ -65,7 +65,7 @@
=item B<type> (default to HOSTED_OR_GOOGLE)
-Specifies the type of the account to request authorization for (optional,
+Specifies the type of the account to request authorization for (optional,
default to HOSTED_OR_GOOGLE).
Possible values are GOOGLE, HOSTED or HOSTED_OR_GOOGLE (default).
@@ -95,9 +95,9 @@
my %params = @_;
my $self = {};
- $self -> {'email'} = $params{'email'} || croak("Err: set a valid email");
- $self -> {'pwd'} = $params{'password'} || croak("Err: set a password");
- $self -> {'src'} = $params{'source'} || __PACKAGE__ . $WWW::Google::Auth::ClientLogin::VERSION;
+ $self -> {'email'} = $params{'email'} || croak("Err: set a valid email");
+ $self -> {'pwd'} = $params{'password'} || croak("Err: set a password");
+ $self -> {'source'} = $params{'source'} || __PACKAGE__ . $WWW::Google::Auth::ClientLogin::VERSION;
my @valid_account_types = ('GOOGLE', 'HOSTED', 'HOSTED_OR_GOOGLE');
@@ -107,8 +107,8 @@
$self -> {'type'} = 'HOSTED_OR_GOOGLE';
}
- my @valid_services = ('analytics', 'apps', 'gbase', 'jotspot',
- 'blogger', 'print', 'cl', 'codesearch', 'cp',
+ my @valid_services = ('analytics', 'apps', 'gbase', 'jotspot',
+ 'blogger', 'print', 'cl', 'codesearch', 'cp',
'writely', 'finance', 'mail', 'health', 'weaver',
'local', 'lh2', 'annotateweb', 'wise', 'sitemaps',
'youtube');
@@ -118,11 +118,11 @@
} else {
croak("Err: set a valid service");
}
-
+
if ($params{'captcha_token'}) {
$self -> {'logintoken'} = $params{'captcha_token'};
}
-
+
if ($params{'captcha_login'}) {
$self -> {'logincaptcha'} = $params{'captcha_login'};
}
@@ -161,7 +161,7 @@
=item B<captcha_url>
-Url pointing to the CAPTCHA image to be show n to user. Must be prefixed
+Url pointing to the CAPTCHA image to be show n to user. Must be prefixed
with 'http://www.google.com/accounts/' (set if error code is 'CaptchaRequired').
=back
@@ -171,22 +171,29 @@
sub authenticate {
my $self = shift;
- my $ua = LWP::UserAgent -> new;
+ my $http = HTTP::Tiny -> new();
my $url = 'https://www.google.com/accounts/ClientLogin';
- my %params = ('accountType', $self -> {'type'},
- 'Email', $self -> {'email'},
- 'Passwd', $self -> {'pwd'},
- 'service', $self -> {'service'},
- 'source', $self -> {'source'});
-
- $params{'logintoken'} = $self -> {'logintoken'} if $self -> {'logintoken'};
- $params{'logincaptcha'} = $self -> {'logincaptcha'} if $self -> {'logincaptcha'};
-
- my $response = $ua -> request(POST $url, [%params]) -> as_string;
-
- my $status = (split / /,(split /\n/, $response)[0])[1];
- my $body = (split /\n\n/, $response)[1];
+ my @params;
+
+ my $account_type = 'accountType='.$self -> {'type'};
+ my $email = 'Email='.$self -> {'email'};
+ my $passwd = 'Passwd='.$self -> {'pwd'};
+ my $service = 'service='.$self -> {'service'};
+ my $src = 'source='.$self -> {'source'};
+
+ push @params, $account_type, $email, $passwd, $service, $src;
+
+ push @params, 'logintoken='.$self -> {'logintoken'} if $self -> {'logintoken'};
+ push @params, 'logincaptcha='.$self -> {'logincaptcha'} if $self -> {'logincaptcha'};
+
+ my $response = $http -> request('POST', $url, {
+ content => join("&", @params),
+ headers => {'content-type' => 'application/x-www-form-urlencoded'}
+ });
+
+ my $status = $response -> {'status'};
+ my $body = $response -> {'content'};
my $out = {};
@@ -222,7 +229,7 @@
=head1 BUGS
Please report any bugs or feature requests at L<http://rt.cpan.org/NoAuth/ReportBug.html?Queue=WWW-Google-Auth-ClientLogin>.
-I will be notified, and then you'll automatically be notified of progress
+I will be notified, and then you'll automatically be notified of progress
on your bug as I make changes.
=head1 SUPPORT
More information about the Pkg-perl-cvs-commits
mailing list