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

(-)a/C4/InstallAuth.pm (-3 / +4 lines)
Lines 20-25 package C4::InstallAuth; Link Here
20
use strict;
20
use strict;
21
#use warnings; FIXME - Bug 2505
21
#use warnings; FIXME - Bug 2505
22
use Digest::MD5 qw(md5_base64);
22
use Digest::MD5 qw(md5_base64);
23
use File::Spec;
23
24
24
require Exporter;
25
require Exporter;
25
use C4::Context;
26
use C4::Context;
Lines 233-238 sub checkauth { Link Here
233
    my $dbh = C4::Context->dbh();
234
    my $dbh = C4::Context->dbh();
234
    my $template_name;
235
    my $template_name;
235
    $template_name = "installer/auth.tt";
236
    $template_name = "installer/auth.tt";
237
    my $sessdir = File::Spec->catdir( File::Spec->tmpdir, 'cgisess_' . C4::Context->config('database') ); # same construction as in C4/Auth
236
238
237
    # state variables
239
    # state variables
238
    my $loggedin = 0;
240
    my $loggedin = 0;
Lines 243-249 sub checkauth { Link Here
243
        C4::Context->_new_userenv($sessionID);
245
        C4::Context->_new_userenv($sessionID);
244
        my $session =
246
        my $session =
245
          new CGI::Session( "driver:File;serializer:yaml", $sessionID,
247
          new CGI::Session( "driver:File;serializer:yaml", $sessionID,
246
            { Directory => '/tmp' } );
248
            { Directory => $sessdir } );
247
        if ( $session->param('cardnumber') ) {
249
        if ( $session->param('cardnumber') ) {
248
            C4::Context->set_userenv(
250
            C4::Context->set_userenv(
249
                $session->param('number'),
251
                $session->param('number'),
Lines 283-289 sub checkauth { Link Here
283
    }
285
    }
284
    unless ($userid) {
286
    unless ($userid) {
285
        my $session =
287
        my $session =
286
          new CGI::Session( "driver:File;serializer:yaml", undef, { Directory => '/tmp' } );
288
          new CGI::Session( "driver:File;serializer:yaml", undef, { Directory => $sessdir } );
287
        $sessionID = $session->id;
289
        $sessionID = $session->id;
288
        $userid    = $query->param('userid');
290
        $userid    = $query->param('userid');
289
        C4::Context->_new_userenv($sessionID);
291
        C4::Context->_new_userenv($sessionID);
290
- 

Return to bug 18578