unit module Net::Google::Sheets:ver<0.0.1>:auth<Steve Roe (librasteve@furnival.net)>;

use OAuth2::Client::Google;
use JSON::Fast;
use HTTP::UserAgent;
use URI::Encode;

#viz. https://developers.google.com/drive
#viz. https://developers.google.com/sheets

my $debug = 0;

our $drive-base = 'https://www.googleapis.com/drive/v3/files';
our $sheet-base = 'https://sheets.googleapis.com/v4/spreadsheets';

constant $creds-file = "$*HOME/.rang-config/client_id.json";
constant $token-file = "$*HOME/.rang-config/token.txt";

sub q-enc( $q ) { uri_encode_component($q) }

my $ua = HTTP::UserAgent.new;

class Session is export {
    has $.token;

    sub reload-token {

        # we need a web browser to receive the request.
        my $browser = %*ENV<BROWSER> || qx{which xdg-open} || qx{which x-www-browser} || qx{which open};
        $browser .= chomp;

        # use a localhost URL from the config file.
        my $type = 'web'; # or it could be 'installed' depending on your credentials

        $creds-file.IO.e or die "No $creds-file";
        my $config = $creds-file.IO.slurp.&from-json;

        my $uri = $config{$type}<redirect_uris>.first({ /localhost/ }) or
                die "no localhost in redirect_uris: add one and update $creds-file";

        $uri ~~ / 'http://localhost:' $<port>=[(<[0..9]>+)]? $<path>=('/' \N+)? $ / or die "couldn't parse $uri";
        my $port = $<port> // 80;
        my $path = $<path> // '/';
        say "using $uri from config file";

        # set up Oauth request
        my $oauth = OAuth2::Client::Google.new(
                type => 'web',
                config => $config,
                redirect-uri => $uri,
                scope => "https://www.googleapis.com/auth/drive https://www.googleapis.com/auth/spreadsheets",
                );
        my $auth-uri = $oauth.auth-uri;

        # start browser
        say "starting web server at localhost:$port";
        say "opening browser to $auth-uri";
        my $proc = run($browser,$auth-uri);

        # then start server
        my $response = q:to/HERE/.encode("UTF-8");
        HTTP/1.1 200 OK
        Content-Length: 7
        Connection: close
        Content-Type:text/plain

        all set!
        HERE

        my $in;
        my $done;
        my $sock = IO::Socket::Async.listen('localhost', $port);

        # and wait for code
        $sock.tap( -> $connection {
            $connection.Supply.tap( -> $str {
                $in ~= $str;
                if $str ~~ /\r\n\r\n/ {
                    $connection.write($response);
                    $connection.close;
                    $done = True;
                }
            });
        });
        loop { last if $done; };

        $in ~~ / 'GET' .* 'code=' $<code>=(<-[&]>+) /;
        my $code = $<code> or die "did not get code in query params";
        say "Got code $code";

        # convert code to a token
        my $access = $oauth.code-to-token(:$code);
        my $token  = $access<access_token> or die "could not get access token : { $access.gist } ";
        $token-file.IO.spurt: $token;
        say "Got access token $token";

        $token;
    }

    submethod check-token {
        # check token is still valid

        my $query = q|mimeType != 'application/vnd.google-apps.folder' and 'root' in parents|;

        my $got-check = $ua.get(
            "$drive-base?q={q-enc($query)}",
            Authorization => "Bearer {$!token}",
        );

        given $got-check.decoded-content {
            when /Error/               { False }
            when .&from-json<error>.so { False }
            default                    { True  }
        }
    }

    submethod TWEAK {
        # persist token in local file
        $!token = $token-file.IO.slurp or say 'no token file, loading oauth permissions';

        if ! $!token || ! self.check-token || $debug {
            $!token = reload-token
        }
    }

    method sheets {
        my $query = q|mimeType = 'application/vnd.google-apps.spreadsheet' and 'root' in parents|;

        my $got-drive = $ua.get(
            "$drive-base?q={q-enc($query)}",
            Authorization => "Bearer $!token",
        );

        $got-drive.decoded-content.&from-json<files>.map: {$^file<name> => $^file<id>};
    }
}

class Sheet is export {
    has $.session;
    has $.id;
    has $.range;

    method url {
        "$sheet-base/{$!id}/values/{$!range}"
    }

    multi method values {

        my $request = HTTP::Request.new(
            GET => $.url,
            Authorization => "Bearer {$.session.token}",
        );

        $ua.request($request).decoded-content.&from-json<values>;
    }

    multi method values( $data ) {

        my %json-hash := {
            range => $!range,
            majorDimension => 'ROWS',
            values => $data,
        };

        my $request = HTTP::Request.new(
            PUT => "{$.url}?valueInputOption

",
            Authorization => "Bearer {$.session.token}",
        );


USER_ENTERED


        $request.add-content( %json-hash.&to-json );
        $ua.request( $request );
    }
}



root

README

React

=begin React :component<HeaderCol> :id<menu> 
=para L<Documentation|/doc/introduction>
=para L<Modules| /mods>
=para L<Examples| file:../examples/index.podlite>
=para L<Download |file:../download/index.podlite>
=para L<About|file:../about/index.podlite>
=para 🔍 K<⌘K>/K<ctrl-K>
=end React


=begin React :component<HeaderCol> :id<footer>  
=begin nested :!nested
=item1 B<Language>
    =item2 L<Get started|file:../getting-started/getting-started.podlite>
    =item2 L<Why Raku?|/doc/language/faq#Why-should-I-learn-Raku-What's-so-great-about-it>
    =item2 L<Try Raku|https://glot.io/new/raku>
    =item2 L<Raku cheat sheet|https://github.com/Raku/mu/blob/master/docs/Perl6/Cheatsheet/cheatsheet.txt>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<Raku on Exercism|https://exercism.org/tracks/raku>
    =item2 L<Wikipedia|https://en.wikipedia.org/wiki/Raku_(programming_language)>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>

=end nested
=begin nested :!nested

=item1 B<L<Documentation|/doc>>
    =item2 L<Getting started, Migration guides from other languages, & Tutorials | file:../doc/introduction.podlite>
    =item2 L<Language References|file:../doc/reference.podlite>
    =item2 L<Type Reference| file:../doc/types.podlite>
    =item2 L<Miscellaneous| file:../doc/miscellaneous.podlite>
    =item2 L<FAQs (Frequently Asked Questions)|/doc/language/faq>
    =item2 L<Community|/doc/language/community>
    =item2 L<The list of all documents|file:../doc/index.podlite>

=item1 B<Resources>
    =item2 L<The Raku Guide|https://raku.guide/>
    =item2 L<Books |https://perl6book.com/>
    =item2 L<Rosetta Code | https://www.raku.org/community/rosettacode>

=end nested
=begin nested :!nested

=item1 B<Resoures>
    =item2 L<Download | file:../download/index.podlite>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>

=item1 B<Learning>
    =item2 L<The Raku Guide|https://raku.guide/>
    =item2 L<Wikibook |https://en.wikibooks.org/wiki/Raku_Programming>
    =item2 L<Books |https://perl6book.com/>
    =item2 L<Rosetta Code | https://www.raku.org/community/rosettacode>
    =item2 L<Learn Raku in Y minutes|https://learnxinyminutes.com/docs/raku/>
    =item2 L<Golfing |https://github.com/AlexDaniel/raku-golf-cheatsheet>
=end nested
=begin nested :!nested

=item1 B<Explore>
    =item2 L<Raku Blog Aggregator|https://planet.raku.org/>
    =item2 L<Rakudo Weekly|https://rakudoweekly.blog/>
    =item2 L<The Weekly Challenge |https://perlweeklychallenge.org/>
    =item2 L<Raku Advent Calendar|https://raku-advent.blog/>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>

=end nested
=end React


=begin React :component<CookieConsent> :id<CookieConsent> :buttonCaption("Got it!")
=para
This website uses cookies for analytics.
=end React


Sheets

USER_ENTERED

Net::Google::Sheets v0.0.1

Authors

License

Dependencies

Test Dependencies

Provides

Documentation