package webapp;
use Dancer2;
use Op;
use Op1;
use URI;
use Net::OAuth2::Client;
use HTML::Entities;

our $VERSION = '0.1';

 sub client {
      Net::OAuth2::Profile::WebServer->new(
              client_id => 'xxxxxxxxxxxxxxxxxx',
			  client_secret => 'xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx',
              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 ("/"),
	  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;
		
			my $code = params->{code};
		print "$code" . "\n";
		
};

get '/got/:site_id' => sub {
	
    defined params->{code}
        or return html_page("Error: Missing access code");
		my $id = route_parameters->get('site_id');
 
   my $site_id      = params->{$id};
	my $site_id      = params->{$id};
    my $access_token = client($site_id)->get_access_token(params->{code});
    return html_page("Error: " . $access_token->to_string)
        if $access_token->{error};
 
    my $content = "<h2>Access token retrieved successfully!</h2>\n"
                . '<p>'.encode_entities($access_token->to_string)."</p>\n";
    $content   .= "<h2>State passthru</h2>" . encode_entities(params->{state})
        if params->{state};
    $content   .= "<h2>HD passthru</h2>" . encode_entities(params->{hd})
        if params->{hd};
 
    my $this_site = config->{sites}{$site_id};
    my $response  = $access_token->get($this_site->{protected_resource_url}
                 || $this_site->{protected_resource_path});
 
    if ($response->is_success)
    {   $content .= "<h2>Protected resource retrieved successfully!</h2>\n"
                 .  '<p>'.encode_entities($response->decoded_content).'</p>';
    }
    else {
        $content .= '<p>Error: '. $response->status_line."</p>\n";
    }
    $content =~ s[\n][<br/>\n]g;
    html_page($content);
};

get '/' => sub {
	
    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;


##</code><code>##

General 
Request URL: https://testchandan.com:5001/?code=PVPDqlmasALToCPMZJJVb64rP4SY9cxO2Bu7YzGQqcg&state=1234
Request Method: GET
Status Code: 200 OK
Remote Address: 192.168.1.6:5001
Referrer Policy: strict-origin-when-cross-origin

Response Header
Content-Length: 1252
Content-Type: text/html; charset=UTF-8
Date: Fri, 18 Jun 2021 06:32:58 GMT
Server: HTTP::Server::PSGI
Server: Perl Dancer2 0.301004

Request Headers

Accept: text/html,application/xhtml+xml,application/xml;q=0.9,image/avif,image/webp,image/apng,*/*;q=0.8,application/signed-exchange;v=b3;q=0.9
Accept-Encoding: gzip, deflate, br
Accept-Language: en-US,en;q=0.9
Connection: keep-alive
Cookie: plack_session=ba1d0d240ba3ed6c6fca13c240c758a6c812200d
Host: testchandan.com:5001
Sec-Fetch-Dest: document
Sec-Fetch-Mode: navigate
Sec-Fetch-Site: none
Sec-Fetch-User: ?1
Upgrade-Insecure-Requests: 1
User-Agent: Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/88.0.4324.104 Safari/537.36

Query String parameters

code: PVPDqlmasALToCPMZJJVb64rP4SY9cxO2Bu7YzGQqcg
state: 1234

##</code><code>##

Error 500 - Internal Server Error
Runtime Error

Undefined subroutine &webapp::html_page called at C:/Users/503004671/Documents/Perl/Synchrony-Perl/webapp/bin/../lib/webapp.pm line 67.

C:/Users/503004671/Documents/Perl/Synchrony-Perl/webapp/bin/../lib/webapp.pm around line 67


62	};

63	

64	get '/got/:site_id' => sub {

65		

66	    defined params->{code}

67	        or return html_page("Error: Missing access code");

68			my $id = route_parameters->get('site_id');

69	 

70	   my $site_id      = params->{$id};

71		

72	    my $access_token = client($site_id)->get_access_token(params->{code});