| Subject: | [CRITICAL] ClientLogin API is no longer available |
Net::Google::AuthSub uses the Google ClientLogin API at https://www.google.com/accounts/ClientLogin
This API is deprecated since April 2012, and it has now completely been removed by Google (since some time between 2015-05-21 and 2015-05-27).
API calls point to this page: https://developers.google.com/accounts/docs/AuthForInstalledApps
Net::Google::AuthSub doesn't work anymore.
Attached is a program that reproduces the issue (requires a Google account).
--
Olivier Mengué - http://perlresume.org/DOLMEN - https://gratipay.com/dolmen/
| Subject: | net-google-authsub.pl |
#!/usr/bin/env perl
use strict;
use warnings;
use feature 'say';
use Net::Google::AuthSub;
use Data::Dumper;
my ($username, $password);
if (@ARGV) {
$username = shift @ARGV;
} else {
print 'Google username: ';
$username = <>;
}
print 'password: ';
system 'stty -echo';
$password = <>;
system 'stty echo';
print "\n";
my $authsub = Net::Google::AuthSub->new(
source => 'Net::Google::Spreadsheets-0.1501',
service => 'wise',
account_type => 'HOSTED_OR_GOOGLE',
);
my $res = $authsub->login($username, $password);
say Dumper($res);