Lines 19-28
package C4::Auth;
Link Here
|
19 |
|
19 |
|
20 |
use strict; |
20 |
use strict; |
21 |
use warnings; |
21 |
use warnings; |
|
|
22 |
|
22 |
use Digest::MD5 qw(md5_base64); |
23 |
use Digest::MD5 qw(md5_base64); |
23 |
use Storable qw(thaw freeze); |
24 |
use Storable qw(thaw freeze); |
24 |
use URI::Escape; |
25 |
use URI::Escape; |
25 |
use CGI::Session; |
26 |
use CGI::Session; |
|
|
27 |
use Encode; |
28 |
use Carp; |
26 |
|
29 |
|
27 |
require Exporter; |
30 |
require Exporter; |
28 |
use C4::Context; |
31 |
use C4::Context; |
Lines 1067-1078
sub checkauth {
Link Here
|
1067 |
$template->param( %info ); |
1070 |
$template->param( %info ); |
1068 |
# $cookie = $query->cookie(CGISESSID => $session->id |
1071 |
# $cookie = $query->cookie(CGISESSID => $session->id |
1069 |
# ); |
1072 |
# ); |
|
|
1073 |
my $data = $template->output; |
1074 |
eval { $data = encode('UTF-8',$data,Encode::FB_CROAK); }; |
1075 |
if ($@) { carp "UTF8 encoding error: $@" }; |
1070 |
print $query->header( |
1076 |
print $query->header( |
1071 |
-type => 'text/html', |
1077 |
-type => 'text/html', |
1072 |
-charset => 'utf-8', |
1078 |
-charset => 'utf-8', |
1073 |
-cookie => $cookie |
1079 |
-cookie => $cookie |
1074 |
), |
1080 |
), |
1075 |
$template->output; |
1081 |
$data; |
1076 |
safe_exit; |
1082 |
safe_exit; |
1077 |
} |
1083 |
} |
1078 |
|
1084 |
|
1079 |
- |
|
|