Lines 136-164
sub safe_exit {
Link Here
|
136 |
exit; |
136 |
exit; |
137 |
} |
137 |
} |
138 |
|
138 |
|
139 |
BEGIN { |
|
|
140 |
C4::Context->set_remote_address; |
141 |
|
142 |
require Exporter; |
143 |
@ISA = qw(Exporter); |
144 |
|
145 |
@EXPORT_OK = qw( |
146 |
checkauth check_api_auth get_session check_cookie_auth checkpw checkpw_internal checkpw_hash |
147 |
get_all_subpermissions get_cataloguing_page_permissions get_user_subpermissions in_iprange |
148 |
get_template_and_user haspermission create_basic_session |
149 |
); |
150 |
|
151 |
$cas = C4::Context->preference('casAuthentication'); |
152 |
$caslogout = C4::Context->preference('casLogout'); |
153 |
|
154 |
if ($cas) { |
155 |
require C4::Auth_with_cas; # no import |
156 |
import C4::Auth_with_cas |
157 |
qw(check_api_auth_cas checkpw_cas login_cas logout_cas login_cas_url logout_if_required multipleAuth getMultipleAuth); |
158 |
} |
159 |
|
160 |
} |
161 |
|
162 |
=head2 get_template_and_user |
139 |
=head2 get_template_and_user |
163 |
|
140 |
|
164 |
my ($template, $borrowernumber, $cookie) |
141 |
my ($template, $borrowernumber, $cookie) |
165 |
- |
|
|