package solid; use v5.10; use Dancer ':syntax'; use Web::Solid::Auth; sub session { state $state = {}; $state; } get '/' => sub { my $auth = session()->{auth}; if ($auth && $auth->has_access_token) { my $webid = $auth->webid; my $inbox = $webid; $inbox =~ s{(https://[^/]+).*}{$1/inbox/}; my $headers = $auth->make_authentication_headers($inbox,'GET'); my $response = $auth->get($inbox,%$headers); return <

You are logged in :)

$webid

Here is your private $inbox

  $response

EOF } else { return <

Demo Login

Please provide your webid.
E.g. https://hochstenbach.solidcommunity.net/profile/card#me
EOF } }; get '/login' => sub { my $webid = params->{webid}; redirect("/") unless $webid; my $auth = Web::Solid::Auth->new( webid => $webid , redirect_uri => 'http://localhost:3000/cb' ); $auth->make_clean; session()->{auth} = $auth; redirect $auth->make_authorization_request; }; get '/cb' => sub { my $code = params->{code}; my $state = params->{state}; my $data = session()->{auth}->make_access_token($code); redirect("/") }; true;