NAME

WWW::Google::Login - log a mechanize object into Google

SYNOPSIS

    my $mech = WWW::Mechanize::Chrome->new(
        headless => 1,
        data_directory => tempdir(CLEANUP => 1),
        user_agent => 'Mozilla/5.0 (X11; Linux x86_64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/64.0.3282.39 Safari/537.36+',
    );
    $mech->viewport_size({ width => 480, height => 640 });

    $mech->get('https://keep.google.com');

    my $login = WWW::Google::Login->new(
        mech => $mech,
    );

    if( $login->is_login_page()) {
        my $res = $login->login(
            user => 'a.u.thor@gmail.com',
            password => 'my-secret-password',
            headless => 1
        );

        if( $res->wrong_password ) {
            # ?
        } elsif( $res->logged_in ) {
            # yay
        } else {
            # some other error
        }
    };

DESCRIPTION

This module automates logging in a (Javascript capable) WWW::Mechanize object into Google. This is useful for scraping information from Google applications.

Currently, this module only works in conjunction with WWW::Mechanize::Chrome, but ideally it will evolve to not requiring Javascript or Chrome at all.

->is_password_page

    if( $login->is_password_page ) {
        $login->login( user => $user, password => $password );
    };

->is_login_page

    if( $login->is_login_page ) {
        $login->login( user => $user, password => $password );
    };

->is_login_page_headless

->is_login_page_headfull

->login

    my $res = $login->login(
        user => 'example@gmail.com',
        password => 'supersecret',
    );
    if( $res->logged_in ) {
        # yay
    }

FUTURE IMPROVEMENTS

API usage

Ideally, this module would switch away from screen scraping to directly automating the API below https://accounts.google.com/signin/v2/sl/pwd. This would make it possible to switch away from WWW::Mechanize::Chrome to a plain HTTP client like HTTP::Tiny or WWW::Mechanize.

Two-factor authentication

Two-factor authentication is not supported at all.

SEE ALSO

https://developers.google.com/my-business/reference/rest/ - Google Business API

This allows a more direct administration of (business) accounts without screen scraping.

REPOSITORY

The public repository of this module is https://github.com/Corion/WWW-Google-Login.

SUPPORT

The public support forum of this module is https://perlmonks.org/.

AUTHOR

Max Maischein corion@cpan.org

COPYRIGHT (c)

Copyright 2016-2018 by Max Maischein corion@cpan.org.

LICENSE

This module is released under the same terms as Perl itself.

cpanm WWW::Google::Login

perl -MCPAN -e shell
install WWW::Google::Login