#!/usr/bin/env perl

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


builder {


#get '/:site_id' => sub {
  #  my $id = route_parameters->get('site_id');
  #  print "$id" . "\n";
#};

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->{code});
  
	 print "Error: " . $access_token->to_string if $access_token->{error};
	 
	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 => 'xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx',
              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
                   );
}




webapp->to_app;

}