Hi Master, I was able to fix the issue and able to generate the access token successfully

Please check the code in webapp.pm


#!/usr/bin/env perl

use strict;
use warnings;
use FindBin;
use lib "$FindBin::Bin/../lib";
use webapp;
use Net::OAuth2::Client;
use Dancer2;
use URI;
use HTML::Entities;
use Data::Dumper;





get '/:site_id' => sub {
        my $id = route_parameters->get('site_id');
        redirect client(params->{$id})->authorize;
                
};

get '/got/:site_id' => sub {
    
    my $p = params->{code};
    #template 'query2' => { 'title' => 'webapp' };
    
    defined params->{code}
        or print "Error: Missing access code";
        my $id = route_parameters->get('site_id');
 
    my $site_id      = params->{$id};
    #my $site_id      = params->{site_id};
    my $access_token = client($site_id)->get_access_token(params->{cod
+e});
  
     print "Error: " . $access_token->to_string if $access_token->{err
+or};
     
    my $accestk = $access_token->to_string;
        my $content = "<h2>Access token retrieved successfully!</h2>\n
+"
                . '<p>'.encode_entities($access_token->to_string)."</p
+>\n";
                
                #template 'query2' => { 'title' => 'webapp' };
   
    $content =~ s[\n][<br/>\n]g;
    print "My content: $content" . "\n";
};

 sub client ($){
     
     my $id = route_parameters->get('site_id');
     my $site_id     = $id;
    #my $site_config = config->{sites}{$site_id} || {};
 
    my $redirect    = uri_for("/got/$site_id");
   
    
      Net::OAuth2::Profile::WebServer->new(
              client_id => 'xxxxxxxxxxxxxxxxxxxxx',
              client_secret => 'xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
+xx',
              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            => 'openid',
        state       =>       '1234', redirect_uri => $redirect
                   );
}

[download]

Thank you for helping me hope this code snippet will help others. Its not the best way but , yes we can achieve it. Please try to modify the source Webserver.pm as per your requirement.

In reply to Re^16: How can i capture the site_id in Dancer 2 app? by chandantul
in thread How can i capture the site_id in Dancer 2 app? by chandantul

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.