view release on metacpan or  search on metacpan

lib/Authen/SASL/Perl/OAUTHBEARER.pm  view on Meta::CPAN

    my $host     = $self->_call('host');
    my $port     = $self->_call('port');
    my $token    = $self->_call('pass'); # OAuth 2.0 access token
    my $auth_string;
    if (defined $host && defined $port) {
      $auth_string = "n,a=$username,\001host=$host\001port=$port\001auth=Bearer $token\001\001";
    } elsif (defined $host) {
      $auth_string = "n,a=$username,\001host=$host\001auth=Bearer $token\001\001";
    } elsif (defined $port) {
      $auth_string = "n,a=$username,\001port=$port\001auth=Bearer $token\001\001";
    } else {
      $auth_string = "n,a=$username,\001auth=Bearer $token\001\001";
    }

    return $auth_string;
}

sub client_step {
    my ($self, $challenge) = @_;
    my $json = JSON::PP->new;
    my $payload = $json->decode( $challenge );
    $self->set_error( $payload );
    # Send dummy request on authentication failure according to rfc7628.
    # https://datatracker.ietf.org/doc/html/rfc7628#section-3.2.3
    return "\001";
}

1;

__END__

=head1 NAME

Authen::SASL::Perl::OAUTHBEARER - OAUTHBEARER Authentication class

=head1 VERSION

version 2.2000

=head1 SYNOPSIS

  use Authen::SASL qw(Perl);

  $sasl = Authen::SASL->new(
    mechanism => 'OAUTHBEARER',
    callback  => {
      user => $user,
      host => $hostname, #optional
      port => $port, #optional
      pass => $access_token
    },
  );

=head1 DESCRIPTION

This module implements the client side of the OAUTHBEARER SASL mechanism,
which is used for OAuth 2.0-based authentication.

=head2 CALLBACK

The callbacks used are:

=head3 Client

=over 4

=item user

The username to be used for authentication.

=item host

The hostname to which the client will connect to. It is optional and can be omitted.

=item port

The destination port that the client will connect to. It should be a decimal positive integer string without leading zeros. It is optional and can be omitted.

=item pass

The OAuth 2.0 access token to be used for authentication.

=back

=head1 SEE ALSO

L<Authen::SASL>,
L<Authen::SASL::Perl>

=head1 AUTHORS

Written by Aditya Garg and Julian Swagemakers.

=head1 COPYRIGHT

Copyright (c) 2025 Aditya Garg.

Copyright (c) 2025 Julian Swagemakers.

All rights reserved. This program is free software; you can redistribute 
it and/or modify it under the same terms as Perl itself.
=cut