Commit 036ef592 authored by Xavier Guimard's avatar Xavier Guimard

CAS in progress (#595)

parent 51e7e6bc
......@@ -44,7 +44,7 @@ sub init {
CAFile => $self->conf->{CASCAFile},
)
);
return ( $self->SUPER::init );
return 1;
}
# RUNNING METHODS
......
......@@ -3,6 +3,10 @@ package Lemonldap::NG::Portal::Issuer::CAS;
use strict;
use Mouse;
use Lemonldap::NG::Portal::Main::Constants qw(
PE_CAS_SERVICE_NOT_ALLOWED
PE_CONFIRM
PE_ERROR
PE_LOGOUT_OK
PE_OK
);
......@@ -195,7 +199,9 @@ sub run {
# Display a link to the provided URL
$self->lmLog( "Logout URL $logout_url will be displayed", 'debug' );
$self->info( "<h3>" . $self->msg(PM_BACKTOCASURL) . "</h3>" );
$self->info(
'<h3 trmsg="back2CasUrl">The application you just logged out of has provided a link it would like you to follow</h3>'
);
$self->info("<p><a href=\"$logout_url\">$logout_url</a></p>");
$self->{activeTimer} = 0;
......
......@@ -28,10 +28,6 @@ has ua => (
# INITIALIZATION
sub init {
my ($self) = @_;
}
sub sendSoapResponse {
my ( $self, $req, $s ) = @_;
$req->response(
......
......@@ -91,7 +91,6 @@
"PM11":"Logout from service providers...",
"PM12":"Redirection in progress...",
"PM13":"Go back to service provider",
"PM14":"The application you just logged out of has provided a link it would like you to follow",
"PM16":"Do you want to authenticate yourself on %s ?",
"PM17":"Update Common Domain Cookie",
"PM18":"Parameter %s requested for federation isn't available",
......@@ -115,6 +114,7 @@
"authPortal":"Authentication portal",
"autoAccept":"Automatically accept in 5 seconds",
"autoMail":"This mail was sent automatically",
"back2CasUrl":"The application you just logged out of has provided a link it would like you to follow",
"back2Portal":"Go back to portal",
"cancel":"Cancel",
"captcha":"Captcha",
......
......@@ -91,7 +91,6 @@
"PM11":"Déconnexion des services...",
"PM12":"Redirection en cours...",
"PM13":"Retourner sur le fournisseur de service",
"PM14":"Le service duquel vous arrivez a fourni un lien que vous êtes invité à suivre",
"PM16":"Souhaitez-vous vous identifier sur le site %s ?",
"PM17":"Mise à jour du cookie de domaine commun",
"PM18":"Le paramètre %s exigé pour la fédération n'est pas disponible",
......@@ -115,6 +114,7 @@
"authPortal":"Portail d'authentification",
"autoAccept":"Acceptation automatique dans 5 secondes",
"autoMail":"Ceci est un message automatique",
"back2CasUrl":"Le service duquel vous arrivez a fourni un lien que vous êtes invité à suivre",
"back2Portal":"Retourner au portail",
"cancel":"Annuler",
"captcha":"Captcha",
......
......@@ -7,7 +7,7 @@ BEGIN {
require 't/test-lib.pm';
}
my $maintests = 1;
my $maintests = 2;
my $debug = 'error';
my ( $issuer, $sp, $res );
my %handlerOR = ( issuer => [], sp => [] );
......@@ -18,8 +18,8 @@ SKIP: {
skip 'AuthCAS not found', $maintests;
}
#ok( $issuer = issuer(), 'Issuer portal' );
#$handlerOR{issuer} = \@Lemonldap::NG::Handler::Main::Reload::_onReload;
ok( $issuer = issuer(), 'Issuer portal' );
$handlerOR{issuer} = \@Lemonldap::NG::Handler::Main::Reload::_onReload;
switch ('sp');
ok( $sp = sp(), 'SP portal' );
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment