के साथ विफल रहा है पर्ल में यह कोड वर्षों से काम कर रहा था और अब मेरे स्प्रेडशीट लॉग इन विफल हो गए, जब मैंने अपने खाते में लॉग इन किया तो मैंने देखा कि एक नए ड्राइव संस्करण पर स्विच किया गया है। शायद कुछ प्रमाणीकरण विधियों को हटा दिया गया है?नेट :: Google :: AuthSub लॉगिन नए Google ड्राइव संस्करण
my $auth = Net::Google::AuthSub->new;
my $response = $auth->login('[email protected]', 'PASS');
if ($response->is_success) {
print "Hurrah! Logged in\n";
} else {
die "Login failed: ".$response->error."\n";
}
परिणाम है:
Login failed:
और कोड:
use Net::Google::Spreadsheets;
my $service = Net::Google::Spreadsheets->new(
username => '[email protected]',
password => 'PASS'
);
परिणाम है:
Net::Google::AuthSub login failed at /usr/local/share/perl/5.18.2/Net/Google/Spreadsheets.pm line 42.
के रूप में कहीं सुझाव दिया मैं SSL प्रमाणपत्र जाँच को छोड़ करने की कोशिश की के साथ:
$ENV{PERL_LWP_SSL_VERIFY_HOSTNAME} = 0;
लेकिन इससे भी मदद नहीं मिलती है। इसे काम करने के लिए मैं क्या कर सकता हूं? धन्यवाद।
ClientLogin API गूगल द्वारा हटा दिया गया है। यह 2 साल के लिए बहिष्कृत किया गया था। मैंने टिकट भर दिया है ([आरटी # 104767] (https://rt.cpan.org/Ticket/Display.html?आईडी = 104767)), लेकिन नेट :: Google :: AuthSub को पिछले 5 वर्षों के दौरान कोई अपडेट नहीं मिला ... – dolmen