|
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 |
- |
|
|