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