View | Details | Raw Unified | Return to bug 15553
Collapse All | Expand All

(-)a/C4/Auth.pm (-2 / +4 lines)
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
- 

Return to bug 15553