#!/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][