|
Lines 71-77
sub logout_cas {
Link Here
|
| 71 |
$uri .= "?cas=" . $casparam if (defined $casparam); |
71 |
$uri .= "?cas=" . $casparam if (defined $casparam); |
| 72 |
$casparam = $defaultcasserver if (not defined $casparam); |
72 |
$casparam = $defaultcasserver if (not defined $casparam); |
| 73 |
my $cas = Authen::CAS::Client->new($casservers->{$casparam}); |
73 |
my $cas = Authen::CAS::Client->new($casservers->{$casparam}); |
| 74 |
print $query->redirect( $cas->logout_url($uri)); |
74 |
print $query->redirect( $cas->logout_url(url => $uri)); |
| 75 |
} |
75 |
} |
| 76 |
|
76 |
|
| 77 |
# Login to CAS |
77 |
# Login to CAS |
| 78 |
- |
|
|