Lines 49-55
sub shib_ok {
Link Here
|
49 |
return 0; |
49 |
return 0; |
50 |
} |
50 |
} |
51 |
|
51 |
|
52 |
|
|
|
53 |
# Logout from Shibboleth |
52 |
# Logout from Shibboleth |
54 |
sub logout_shib { |
53 |
sub logout_shib { |
55 |
my ($query) = @_; |
54 |
my ($query) = @_; |
Lines 309-314
Given a shib_login attribute, this routine checks for a matching local user and
Link Here
|
309 |
|
308 |
|
310 |
my ( $retval, $retcard, $retuserid ) = C4::Auth_with_shibboleth::checkpw_shib( $shib_login ); |
309 |
my ( $retval, $retcard, $retuserid ) = C4::Auth_with_shibboleth::checkpw_shib( $shib_login ); |
311 |
|
310 |
|
|
|
311 |
=head2 _get_uri |
312 |
|
313 |
_get_uri(); |
314 |
|
315 |
A sugar function to that simply returns the current page URI with appropriate protocal attached |
316 |
|
317 |
This routine is NOT exported |
318 |
|
319 |
=head2 _get_shib_config |
320 |
|
321 |
my $config = _get_shib_config(); |
322 |
|
323 |
A sugar function that checks for a valid sibboleth configuration, and if found returns a hashref of it's contents |
324 |
|
325 |
This routine is NOT exported |
326 |
|
312 |
=head2 _autocreate |
327 |
=head2 _autocreate |
313 |
|
328 |
|
314 |
my ( $retval, $retcard, $retuserid ) = _autocreate( $config, $match ); |
329 |
my ( $retval, $retcard, $retuserid ) = _autocreate( $config, $match ); |
315 |
- |
|
|