zydronium/imapsync
1
0
Fork 0
mirror of https://github.com/imapsync/imapsync.git synced 2025-06-07 21:25:23 +02:00
Code Issues Projects Releases Packages Wiki Activity

2.140

Browse source
This commit is contained in:
Nick Bebout 2021-08-04 14:14:36 -05:00
parent 4ce248c075
commit f26b2573c3
370 changed files with 14441 additions and 136699 deletions
Download patch file Download diff file Expand all files Collapse all files

35
oauth2/oauth2_imap_from_token Executable file
View file

@ -0,0 +1,35 @@
#!/usr/bin/perl
use Mail::IMAPClient ;
use MIME::Base64;
my $access_token ;
$access_token = $ARGV[1];
my $username;
$username = $ARGV[0]; # "imapsync.gl0@gmail.com" ;
my $oauth_string = "user=" . $username . "\x01auth=Bearer ". $access_token . "\x01\x01" ;
print "oauth_string: $oauth_string\n" ;
#my $oauth_string_base64 = $access_token ;
my $oauth_string_base64 = encode_base64( $oauth_string , '' ) ;
print "oauth_string_base64: $oauth_string_base64\n" ;
my $imap = Mail::IMAPClient->new(
Server => 'imap.gmail.com',
Port => 993,
Ssl => 1,
Uid => 1,
Showcredentials => 1,
) or die("Can't connect to imap server.");
$imap->Debug(1) ;
$imap->authenticate('XOAUTH2', sub { return $oauth_string_base64 }) or die("Auth error: ". $imap->LastError);
print join(", ",$imap->folders),".\n" or die("List folders error: ". $imap->LastError);