From d259eaac7ba240cbe9008271d9d123a5758547d8 Mon Sep 17 00:00:00 2001 From: Marcel de Rooy Date: Wed, 13 Jan 2016 11:16:02 +0100 Subject: [PATCH] Bug 15553: [QA Follow-up] Replace hardcoded tmp and add instance to dirname If you use multiple instances on one server, you could have the situation that instance A creates the cgisess subfolder and instance B could have a permission problem. This patch resolves that by allowing each instance to have its own cgisess subfolder. Signed-off-by: Marcel de Rooy Signed-off-by: Brendan A Gallagher (cherry picked from commit c4934b2dab427da4304913b3f0f26e0a24606896) Signed-off-by: Julian Maurice --- C4/Auth.pm | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/C4/Auth.pm b/C4/Auth.pm index fd99ca0125..e3e4cdec7b 100644 --- a/C4/Auth.pm +++ b/C4/Auth.pm @@ -20,6 +20,7 @@ package C4::Auth; use strict; use warnings; use Digest::MD5 qw(md5_base64); +use File::Spec; use JSON qw/encode_json/; use URI::Escape; use CGI::Session; @@ -1710,7 +1711,9 @@ sub get_session { } else { # catch all defaults to tmp should work on all systems - $session = new CGI::Session( "driver:File;serializer:yaml;id:md5", $sessionID, { Directory => '/tmp/cgisess' } ); + my $dir = File::Spec->tmpdir; + my $instance = C4::Context->config( 'database' ); #actually for packages not exactly the instance name, but generally safer to leave it as it is + $session = new CGI::Session( "driver:File;serializer:yaml;id:md5", $sessionID, { Directory => "$dir/cgisess_$instance" } ); } return $session; } -- 2.39.5