The Perl and Raku Conference 2025: Greenville, South Carolina - June 27-29 Learn more

HAYAJO / Mojolicious-Plugin-Web-Auth-0.17 / examples / AuthFacebook 

            

              
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77

              
#!/usr/bin/env perl
use FindBin;
BEGIN { unshift @INC, "$FindBin::Bin/../lib" }
use Mojolicious::Lite;
use Config::Pit;
print STDERR "[NOTICE] should be used in domains other than 'localhost' (e.g. local.example.com)\n";
my $site = 'Facebook';
helper site => sub { $site };
my $pit = pit_get(
    lc($site),
    require => {
        key    => "Facebook App ID",
        secret => "Facebook App Secret",
    }
);
plugin 'Mojolicious::Plugin::Web::Auth',
    module      => ucfirst( lc $site ),
    key         => $pit->{key},
    secret      => $pit->{secret},
    scope       => 'email,user_birthday',
    on_finished => sub {
        my ($c, $access_token, $account_info) = @_;
        $c->session('access_token' => $access_token);
        $c->session('account_info' => $account_info);
        return $c->redirect_to('index');
    };
get '/' => sub {
    my ($c) = @_;
    unless ( $c->session('account_info') ) {
        return $c->redirect_to('login');
    }
} => 'index';
any [qw/get post/] => '/login' => sub {
    my ($c) = @_;
    if (uc $c->req->method eq 'POST') {
        return $c->redirect_to( sprintf( "/auth/%s/authenticate", lc $site ) );
    }
} => 'login';
post '/logout' => sub {
    my ($c) = @_;
    $c->session( expires => 1 );
    $c->redirect_to('index');
} => 'logout';
app->start;
__DATA__
@@ index.html.ep
% layout 'default';
Hello <%= session('account_info')->{name} %>@<%= site %>
<form method="post" action="/logout">
<button type="submit">Logout</button>
</form>
@@ login.html.ep
% layout 'default';
<form method="post">
<button type="submit">Login with <%= site %></button>
</form>
@@ layouts/default.html.ep
% title 'Auth' . ucfirst(lc site);
<!DOCTYPE html>
<html>
  <head><title><%= title %></title></head>
  <body><%= content %></body>
</html>