Lines 20-25
package C4::Auth;
Link Here
|
20 |
use strict; |
20 |
use strict; |
21 |
use warnings; |
21 |
use warnings; |
22 |
use Digest::MD5 qw(md5_base64); |
22 |
use Digest::MD5 qw(md5_base64); |
|
|
23 |
use File::Spec; |
23 |
use JSON qw/encode_json/; |
24 |
use JSON qw/encode_json/; |
24 |
use URI::Escape; |
25 |
use URI::Escape; |
25 |
use CGI::Session; |
26 |
use CGI::Session; |
Lines 1710-1716
sub get_session {
Link Here
|
1710 |
} |
1711 |
} |
1711 |
else { |
1712 |
else { |
1712 |
# catch all defaults to tmp should work on all systems |
1713 |
# catch all defaults to tmp should work on all systems |
1713 |
$session = new CGI::Session( "driver:File;serializer:yaml;id:md5", $sessionID, { Directory => '/tmp/cgisess' } ); |
1714 |
my $dir = File::Spec->tmpdir; |
|
|
1715 |
my $instance = C4::Context->config( 'database' ); #actually for packages not exactly the instance name, but generally safer to leave it as it is |
1716 |
$session = new CGI::Session( "driver:File;serializer:yaml;id:md5", $sessionID, { Directory => "$dir/cgisess_$instance" } ); |
1714 |
} |
1717 |
} |
1715 |
return $session; |
1718 |
return $session; |
1716 |
} |
1719 |
} |
1717 |
- |
|
|