use vars qw(@ISA @EXPORT @EXPORT_OK %EXPORT_TAGS $debug);
BEGIN {
- require Exporter;
- $debug = $ENV{DEBUG};
- @ISA = qw(Exporter);
- @EXPORT = qw(check_api_auth_cas checkpw_cas login_cas logout_cas login_cas_url logout_if_required);
+ require Exporter;
+ $debug = $ENV{DEBUG};
+ @ISA = qw(Exporter);
+ @EXPORT = qw(check_api_auth_cas checkpw_cas login_cas logout_cas login_cas_url logout_if_required);
}
my $defaultcasserver;
my $casservers;
$casservers = { 'default' => C4::Context->preference('casServerUrl') };
}
+=head1 Subroutines
+
+=cut
+
# Is there a configuration file for multiple cas servers?
sub multipleAuth {
return (-e qq($yamlauthfile));
return $uri_base_part . $uri_params_part;
}
-# CAS single logout
+=head2 logout_if_required
+
+ If using CAS, this subroutine will trigger single-signout of the CAS server.
+
+=cut
+
sub logout_if_required {
my ( $query ) = @_;
# Check we havent been hit by a logout call