diff --git a/_example/test/cas.pl b/_example/test/cas.pl index 9c4c9e728..3f592b3a9 100755 --- a/_example/test/cas.pl +++ b/_example/test/cas.pl @@ -77,12 +77,13 @@ else { print "\n"; print "
\n"; - print "
\n"; + print "
\n"; - print "
\n"; + print "
\n"; print "

CAS sample client

\n"; print "
\n"; + print "
\n"; my $ticket = $cgi->param('ticket'); # First time access @@ -102,11 +103,11 @@ else { # Ticket receveived else { - print "
\n"; - print "
\n"; - print "

CAS login result

\n"; + print "
\n"; + print "
\n"; + print "

CAS login result

\n"; print "
\n"; - print "
\n"; + print "
\n"; print $cgi->h4("Service ticket: $ticket"); # Get user @@ -172,6 +173,7 @@ else { } + print "
\n"; print "
\n"; print "
\n"; diff --git a/_example/test/oauth2.pl b/_example/test/oauth2.pl index 9587633aa..c7714405b 100755 --- a/_example/test/oauth2.pl +++ b/_example/test/oauth2.pl @@ -158,12 +158,14 @@ print "\n"; print "\n"; print "
\n"; -print "
\n"; +print "
\n"; -print "
\n"; +print "
\n"; print "

OpenID Connect sample client

\n"; print "
\n"; +print "
\n"; + # OIDC Callback my $callback = $cgi->param("openidconnectcallback"); @@ -171,12 +173,12 @@ if ($callback) { print "

Callback received

"; - print "
\n"; - print "
\n"; + print "
\n"; + print "
\n"; print -"

OpenID Connect callback received

\n"; +"

OpenID Connect callback received

\n"; print "
\n"; - print "
\n"; + print "
\n"; print "
"
       . $cgi->url( -path_info => 1, -query => 1 )
       . "
\n"; @@ -327,11 +329,11 @@ if ($callback) { $id_token = $cgi->param("id_token"); } - print "
\n"; - print "
\n"; - print "

Tokens

\n"; + print "
\n"; + print "
\n"; + print "

Tokens

\n"; print "
\n"; - print "
\n"; + print "
\n"; print "
Access token: $access_token
"; print "
ID token: $id_token
"; print "
\n"; @@ -346,11 +348,11 @@ if ($callback) { my $id_token_payload_hash = from_json( decode_base64($id_token_payload), { allow_nonref => 1 } ); - print "
\n"; - print "
\n"; - print "

ID Token content

\n"; + print "
\n"; + print "
\n"; + print "

ID Token content

\n"; print "
\n"; - print "
\n"; + print "
\n"; print "
" . Dumper($id_token_payload_hash) . "
"; print "
\n"; print "
\n"; @@ -376,11 +378,11 @@ if ($callback) { }; } - print "
\n"; - print "
\n"; - print "

User Info

\n"; + print "
\n"; + print "
\n"; + print "

User Info

\n"; print "
\n"; - print "
\n"; + print "
\n"; print "
" . Dumper($ui_json) . "
"; print "
\n"; print "
\n"; @@ -475,11 +477,11 @@ elsif ( $cgi->param("test") eq "configuration" ) { exit 0; } - print "
\n"; - print "
\n"; - print "

Configuration content

\n"; + print "
\n"; + print "
\n"; + print "

Configuration content

\n"; print "
\n"; - print "
\n"; + print "
\n"; print "
" . Dumper($json) . "
"; print "
\n"; print "
\n"; @@ -535,11 +537,11 @@ elsif ( $cgi->param("test") eq "configuration" ) { exit 0; } - print "
\n"; - print "
\n"; - print "

JWKS content

\n"; + print "
\n"; + print "
\n"; + print "

JWKS content

\n"; print "
\n"; - print "
\n"; + print "
\n"; print "
" . Dumper($jwks_json) . "
"; print "
\n"; print "
\n"; @@ -580,11 +582,11 @@ elsif ( $cgi->param("test") eq "registration" ) { ], }; - print "
\n"; - print "
\n"; - print "

Client metadata sent

\n"; + print "
\n"; + print "
\n"; + print "

Client metadata sent

\n"; print "
\n"; - print "
\n"; + print "
\n"; print "
" . Dumper($fake_metadata) . "
"; print "
\n"; print "
\n"; @@ -633,11 +635,11 @@ elsif ( $cgi->param("test") eq "registration" ) { exit 0; } - print "
\n"; - print "
\n"; - print "

Register content

\n"; + print "
\n"; + print "
\n"; + print "

Register content

\n"; print "
\n"; - print "
\n"; + print "
\n"; print "
" . Dumper($register_json) . "
"; print "
\n"; print "
\n"; @@ -731,6 +733,7 @@ else { } +print "
\n"; print "
\n"; print "
\n";