File Coverage

blib/lib/Mojolicious/Plugin/MozPersona.pm

Criterion	Covered	Total	%
statement	18	71	25.3
branch	0	30	0.0
condition	0	6	0.0
subroutine	6	8	75.0
pod	1	1	100.0
total	25	116	21.5

package Mojolicious::Plugin::MozPersona;
{
  $Mojolicious::Plugin::MozPersona::VERSION = '0.04';
}

# ABSTRACT: Minimalistic integration of Mozillas "Persona" authentication system in Mojolicious apps

use strict;
use warnings;


use Mojo::Base 'Mojolicious::Plugin';

use File::Basename 'dirname';
use File::Spec::Functions 'catdir';

use Mojolicious::Plugin::MozPersona::Controller;


my %defaults = (
    audience       => '',
    siteName       => '',
    service        => 'https://verifier.login.persona.org/verify',
    namespace      => 'Mojolicious::Plugin::MozPersona::Controller',
    signinId       => 'personaSignin',
    signinPath     => '/_persona/signin',
    signoutId      => 'personaSignout',
    signoutPath    => '/_persona/signout',
    autoHook       => { css => 0, jquery => 1, persona => 1, local => 1, uid => 1 },
    localJsPath    => '/_persona/localjs',
    localJsTpl     => '_persona/local_js.txt.ep',
    personaJsPath  => 'https://login.persona.org/include.js',
);


sub register {
    my ( $self, $app ) = @_;

    my $defaultHooks = delete $defaults{'autoHook'};
    my (%conf) = ( %defaults, %{ $_[2] || {} } );

    $conf{'autoHook'} = {} unless exists $conf{'autoHook'};
    foreach my $h ( keys %{$defaultHooks} ) {
        if ( ref $conf{'autoHook'} && ! exists $conf{'autoHook'}->{$h} ) {
            $conf{'autoHook'}->{$h} = $defaultHooks->{$h};
        }
    }

    $conf{'siteName'}       =~ tr/"'//d;
    $conf{'signinPath'}     =~ tr/"'//d;
    $conf{'signoutPath'}    =~ tr/"'//d;
    $conf{'signinId'}       =~ tr/"'#//d;
    $conf{'signoutId'}      =~ tr/"'#//d;

    die "Missing required configuration parameter: 'audience'!" unless $conf{'audience'};
    die "Missing required configuration parameter: 'siteName'!" unless $conf{'siteName'};

    # Append "templates" and "public" directories
    my $base = catdir( dirname(__FILE__), 'MozPersona' );
    push @{ $app->renderer->paths }, catdir( $base, 'templates' );
    push @{ $app->static->paths },   catdir( $base, 'public' );

    push @{ $app->renderer->classes }, __PACKAGE__;
    push @{ $app->static->classes },   __PACKAGE__;

    $app->routes->route( $conf{signinPath} )->via('POST')->to(
        namespace         => $conf{namespace},
        action            => 'signin',
        _persona_audience => $conf{audience},
        _persona_service  => $conf{service},
    );
    $app->routes->route( $conf{signoutPath} )->via('POST')->to(
        namespace         => $conf{namespace},
        action            => 'signout',
        _persona_audience => $conf{audience},
        _persona_service  => $conf{service},
    );
    $app->routes->route( $conf{localJsPath} )->via('GET')->to(
        namespace     => $conf{namespace},
        action        => 'js',
        _persona_conf => \%conf,
    );

    if ( $conf{'autoHook'} ) {

        my $head_block = '';
        if ( $conf{'autoHook'}->{'css'} ) {
            $head_block .= '';
        }
        if ( $conf{'autoHook'}->{'jquery'} ) {
            $head_block .= '';
        }

        my $end_block = '';
        if ( $conf{'autoHook'}->{'persona'} ) {
            $end_block .= qq||;
        }
        if ( $conf{'autoHook'}->{'local'} ) {
            $end_block .= qq||;
        }

        $app->hook(
            after_dispatch => sub {
                my ($c) = @_;
                return unless index( $c->res->headers->content_type, 'html' ) >= 0;

                my $body = $c->res->body;

                if ( $conf{'autoHook'}->{'uid'} ) {
                    if ( defined( $c->session('_persona') )
                        && $c->session('_persona')->{'status'} eq 'okay'
                    )
                    {
                        my $email = $c->session('_persona')->{'email'};
                        $body
                            =~ s!!var personaCurrentUser = "$email";$head_block!o;
                    }
                    else {
                        $body
                            =~ s!!var personaCurrentUser = null;$head_block!o;
                    }
                }
                elsif ($head_block) {
                    $body =~ s!!$head_block!o;
                }

                if ($end_block) {
                    $body =~ s!!$end_block!o;
                }
                $c->res->body($body);
            }
        );
    } ## end if ( $conf{'autoHook'})

    return;
} ## end sub register


1;

__END__