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

(-)a/C4/InstallAuth.pm (-11 / +18 lines)
Lines 116-126 sub get_template_and_user { Link Here
116
    my $template = C4::Templates->new( $interface, $filename, $tmplbase, $query);
116
    my $template = C4::Templates->new( $interface, $filename, $tmplbase, $query);
117
    
117
    
118
    my ( $user, $cookie, $sessionID, $flags ) = checkauth(
118
    my ( $user, $cookie, $sessionID, $flags ) = checkauth(
119
        $in->{'query'},
119
       $in->{'query'},
120
        $in->{'authnotrequired'},
120
       $in->{'authnotrequired'},
121
        $in->{'flagsrequired'},
121
       $in->{'flagsrequired'},
122
        $in->{'type'}
122
       $in->{'type'}
123
    );
123
   );
124
124
125
    #     use Data::Dumper;warn "utilisateur $user cookie : ".Dumper($cookie);
125
    #     use Data::Dumper;warn "utilisateur $user cookie : ".Dumper($cookie);
126
126
Lines 290-295 sub checkauth { Link Here
290
        my $password = $query->param('password');
290
        my $password = $query->param('password');
291
        C4::Context->_new_userenv($sessionID);
291
        C4::Context->_new_userenv($sessionID);
292
        my ( $return, $cardnumber ) = checkpw( $userid, $password );
292
        my ( $return, $cardnumber ) = checkpw( $userid, $password );
293
293
        if ($return) {
294
        if ($return) {
294
            $loggedin = 1;
295
            $loggedin = 1;
295
            # open L, ">>/tmp/sessionlog";
296
            # open L, ">>/tmp/sessionlog";
Lines 330-339 sub checkauth { Link Here
330
            }
331
            }
331
        }
332
        }
332
        else {
333
        else {
333
            if ($userid) {
334
           if ($userid) {
334
                $info{'invalid_username_or_password'} = 1;
335
               $info{'invalid_username_or_password'} = 1;
335
                C4::Context->_unset_userenv($sessionID);
336
               C4::Context->_unset_userenv($sessionID);
336
            }
337
           }
337
        }
338
        }
338
    }
339
    }
339
340
Lines 379-384 sub checkauth { Link Here
379
    $template->param( login => 1 );
380
    $template->param( login => 1 );
380
    $template->param( loginprompt => 1 ) unless $info{'nopermission'};
381
    $template->param( loginprompt => 1 ) unless $info{'nopermission'};
381
382
383
    if ($info{'invalid_username_or_password'} == 1) {
384
        $template->param( 'invalid_username_or_password' => $info{'invalid_username_or_password'});
385
    }
386
382
    $template->param( \%info );
387
    $template->param( \%info );
383
    $cookie = $query->cookie(
388
    $cookie = $query->cookie(
384
        -name    => 'CGISESSID',
389
        -name    => 'CGISESSID',
Lines 423-429 sub checkpw { Link Here
423
# some features won't be effective : modify systempref, modify MARC structure,
428
# some features won't be effective : modify systempref, modify MARC structure,
424
        return 2;
429
        return 2;
425
    }
430
    }
426
    return 0;
431
    else{
432
433
434
    }
427
}
435
}
428
436
429
END { }    # module clean-up code here (global destructor)
437
END { }    # module clean-up code here (global destructor)
430
- 

Return to bug 12930