package webapp; use Dancer2; use Op; use Op1; use URI; use Net::OAuth2::Client; use HTML::Entities; sub client { Net::OAuth2::Client->new( config->{'xxxxxxxxxxxxxxxxx'}, config->{'xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx'}, authorize_url => 'https://dev.oktapreview.com/oauth2/v1/authorize', access_token_url => 'https:// dev.oktapreview.com/oauth2/v1/token', response_type => 'code', redirect_uri => uri_for ("https://testchandan.com:5001"), grant_type => 'authorization_code', scope => 'openid', state => '1234', ); } get '/:site_id' => sub { my $id = route_parameters->get('site_id'); print "$id" . "\n"; redirect client(params->{$id})->authorize; template 'query2' => { 'title' => 'webapp' }; }; post '/'=> sub { my $r2 = Op::result4({OKTAUsersList => param('OKTA-Users-List'), Email => param('Email')}); template result2 => { title => 'webapp', result2 => $r2 } }; true;