#!/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 = "
'.encode_entities($access_token->to_string)."
\n"; #template 'query2' => { 'title' => 'webapp' }; $content =~ s[\n][##
package webapp;
use Dancer2;
use Op;
use Op1;
use URI;
use Net::OAuth2::Client;
use HTML::Entities;
use Data::Dumper;
our $VERSION = '0.1';
get '/:site_id' => sub {
route_parameters->get('site_id');
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;
##
##