Hi Julian
> On 25 Apr 2025, at 11:49 AM, Julian Swagemakers <julian@xxxxxxxxxxxxxxx> wrote:
>
> On Thu Apr 24, 2025 at 8:22 PM CEST, Aditya Garg wrote:
>> I saw the code of perl-authen-sasl and I miserably failed in porting
>> the logic used here to the repo.
>>
>> Perl is not something I am very strong at, so not really feasible for
>> me to work ahead. I do was able to return the formatted base64 encoded
>> string as per the logic, but still I got authentication issues.
>> Currently I aim to have git-send-email working, and a review from an
>> experienced person is needed.
>>
>> I would be happy to be able to test any proposed patch though.
>>
>> Julian, you might be interested here?
>
> I fear I'm also a rookie when it comes to perl, but with your code and
> the comment from Erik I managed to get it working. client_start and
> client_step have to look like this:
>
> sub client_start {
> my $self = shift;
> $self->{stage} = 0;
> # Generate the XOAUTH2 authentication string
> my $username = $self->_call('user');
> my $token = $self->_call('pass'); # OAuth 2.0 access token
> my $auth_string = "user=$username\001auth=Bearer $token\001\001";
> return $auth_string
> }
>
> sub client_step {
> my ($self, $challenge) = @_;
>
> my $stage = ++$self->{stage};
>
> if ($stage == 1) {
> # Handle authentication failure by sending a dummy request
> return "\001"
> } else {
> return $self->set_error("Invalid sequence");
> }
> }
>
> Aditya, do you want to create a pull request on perl-authen-sasl, or
> should I?
I'll do some tests on my end then I can open a PR. If I face issues, I'll ping you again!
Thanks
Aditya
