Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl: the Markov chain saw
 
PerlMonks  

Re^20: Need to know the process to implement perl script into web application server.

by chandantul (Scribe)
on Jul 20, 2021 at 04:46 UTC ( [id://11135191]=note: print w/replies, xml ) Need Help??


in reply to Re^19: Need to know the process to implement perl script into web application server.
in thread Need to know the process to implement perl script into web application server.

Yes, Thanks, I have dereferenced the email and everything looks fine. but i would like to know if any one has worked on the Net::Oauth2::client. I will need to send multi values scopes instead of single valued scopes. Can you let me know if you have fixed this single values scopes vs multivalued scopes issues in Net::Oauth2:Client? I am getting 400 BAD request from authorization server. It does mean client unable to send required parameters to Authorization server.

How can I use multi-values scopes in your Net::OAUTH2::Client? Below Subroutine is working fine.

sub client ($){ $id = route_parameters->get('site_id'); $site_id = $id; #my $site_config = config->{sites}{$site_id} || {}; my $redirect = uri_for("/got/$site_id"); $redirect =~ s,/dispatch\.cgi,,; Net::OAuth2::Profile::WebServer->new( client_id => 'xxxxxxxxxxxxxxxxxxxxx', client_secret => 'xxxxxxxxxxxxxx +xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx', authorize_url => 'https:// dev.oktapreview.com/oauth2 +/v1/authorize', access_token_url => 'https:// dev.oktapreview.com/oauth2 +/v1/token', response_type => 'code', grant_type => 'authorization_code', scope => 'okta.users.read', state => '1234', redirect_uri => $redirect );

But below subroutines is not working but my requirement is to send multivalued as scope. Its throwing 400 BAD request.

sub client ($){ $id = route_parameters->get('site_id'); $site_id = $id; #my $site_config = config->{sites}{$site_id} || {}; my $redirect = uri_for("/got/$site_id"); $redirect =~ s,/dispatch\.cgi,,; my @scopeval = ('okta.users.read', 'okta.apps.read'); Net::OAuth2::Profile::WebServer->new( client_id => 'xxxxxxxxxxxxxxxxxxxxxxxxxxx', client_secret => 'xxxxxxxxxxxxxx +xxxxxxxxxxxxxxxxxxxxxxxxx', authorize_url => 'https:// dev.oktapreview.com/oauth2 +/v1/authorize', access_token_url => 'https://dev.oktapreview.com/oauth2/ +v1/token', response_type => 'code', grant_type => 'authorization_code', scope => @scopeval, state => '1234', redirect_uri => $redirect ); }

Replies are listed 'Best First'.
Re^21: Need to know the process to implement perl script into web application server.
by choroba (Cardinal) on Jul 20, 2021 at 08:18 UTC
    Do you understand how list context works in Perl?

    my @scopeval = qw( okta.users.read alternative.auth ); my %args = (scope => @scopeval);

    This leads to

    Odd number of elements in hash assignment at ...

    map{substr$_->[0],$_->[1]||0,1}[\*||{},3],[[]],[ref qr-1,-,-1],[{}],[sub{}^*ARGV,3]
    A reply falls below the community's threshold of quality. You may see it by logging in.

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://11135191]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this?Last hourOther CB clients
Other Users?
Others avoiding work at the Monastery: (6)
As of 2024-03-29 05:44 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found