File Coverage

blib/lib/Mojolicious/Plugin/MozPersona.pm

Criterion	Covered	Total	%
statement	18	73	24.6
branch	0	34	0.0
condition	0	9	0.0
subroutine	6	8	75.0
pod	1	1	100.0
total	25	125	20.0

package Mojolicious::Plugin::MozPersona;
$Mojolicious::Plugin::MozPersona::VERSION = '0.05';
# 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 => 'bundled', 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 ( my $jq = $conf{'autoHook'}->{'jquery'} ) {
			if ( $jq eq 'cdn' ) {
				$head_block
					.= '';
			}
			elsif ( $jq eq 'bundled' or $jq ) {
				$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__