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;