|
Lines 47-53
sub shib_ok {
Link Here
|
| 47 |
return 0; |
47 |
return 0; |
| 48 |
} |
48 |
} |
| 49 |
|
49 |
|
| 50 |
|
|
|
| 51 |
# Logout from Shibboleth |
50 |
# Logout from Shibboleth |
| 52 |
sub logout_shib { |
51 |
sub logout_shib { |
| 53 |
my ($query) = @_; |
52 |
my ($query) = @_; |
|
Lines 290-295
Given a database handle and a shib_login attribute, this routine checks for a ma
Link Here
|
| 290 |
|
289 |
|
| 291 |
my ( $retval, $retcard, $retuserid ) = C4::Auth_with_shibboleth::checkpw_shib( $shib_login ); |
290 |
my ( $retval, $retcard, $retuserid ) = C4::Auth_with_shibboleth::checkpw_shib( $shib_login ); |
| 292 |
|
291 |
|
|
|
292 |
=head2 _get_uri |
| 293 |
|
| 294 |
_get_uri(); |
| 295 |
|
| 296 |
A sugar function to that simply returns the current page URI with appropriate protocal attached |
| 297 |
|
| 298 |
This routine is NOT exported |
| 299 |
|
| 300 |
=head2 _get_shib_config |
| 301 |
|
| 302 |
my $config = _get_shib_config(); |
| 303 |
|
| 304 |
A sugar function that checks for a valid sibboleth configuration, and if found returns a hashref of it's contents |
| 305 |
|
| 306 |
This routine is NOT exported |
| 307 |
|
| 308 |
=head2 _autocreate |
| 309 |
|
| 310 |
my ( $retval, $retcard, $retuserid ) = _autocreate( $dbh, $shib, $userid ); |
| 311 |
|
| 312 |
Given a database handle, a shibboleth attribute reference and a userid this internal routine will add the given user to koha and return their user credentials |
| 313 |
|
| 314 |
This routine is NOT exported |
| 315 |
|
| 293 |
=head1 SEE ALSO |
316 |
=head1 SEE ALSO |
| 294 |
|
317 |
|
| 295 |
=cut |
318 |
=cut |
| 296 |
- |
|
|