\n";
print $cgi->h4("Service ticket: $ticket");
# Get user
my $user = $cas->validateST( $cgi->url(), $ticket );
if ($user) {
print $cgi->h4("Authenticated user: $user");
}
else {
print "
Error: "
. &AuthCAS::get_errors()
. "
\n";
}
# Get proxy granting ticket
my $pgtId = $cas->{pgtId};
if ($pgtId) {
print $cgi->h4("Proxy granting ticket: $pgtId");
# Try to request proxy ticket
my $pt = $cas->retrievePT($proxiedService);
if ($pt) {
print $cgi->h4("Proxy ticket: $pt");
# Use proxy ticket
my ( $puser, @proxies ) =
$cas->validatePT( $proxiedService, $pt );
print $cgi->h4("Proxied user: $puser");
print $cgi->h4("Proxies used: @proxies");
}
else {
print
"
Error: "
. &AuthCAS::get_errors()
. "
\n";
}
}
else {
print
"
Error: Unable to get proxy granting ticket
\n";
}
print "