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

(-)a/C4/Auth.pm (-4 / +5 lines)
Lines 72-85 BEGIN { Link Here
72
    $ldap      = C4::Context->config('useldapserver') || 0;
72
    $ldap      = C4::Context->config('useldapserver') || 0;
73
    $cas       = C4::Context->preference('casAuthentication');
73
    $cas       = C4::Context->preference('casAuthentication');
74
    $caslogout = C4::Context->preference('casLogout');
74
    $caslogout = C4::Context->preference('casLogout');
75
    require C4::Auth_with_cas;    # no import
76
75
77
    if ($ldap) {
76
    if ($ldap) {
78
        require C4::Auth_with_ldap;
77
        require C4::Auth_with_ldap;
79
        import C4::Auth_with_ldap qw(checkpw_ldap);
78
        import C4::Auth_with_ldap qw(checkpw_ldap);
80
    }
79
    }
81
    if ($cas) {
80
    if ($cas) {
82
        import C4::Auth_with_cas qw(check_api_auth_cas checkpw_cas login_cas logout_cas login_cas_url logout_if_required);
81
        require C4::Auth_with_cas;    # no import
82
        import C4::Auth_with_cas qw(check_api_auth_cas checkpw_cas login_cas logout_cas login_cas_url logout_if_required multipleAuth getMultipleAuth);
83
    }
83
    }
84
84
85
}
85
}
Lines 1392-1399 sub checkauth { Link Here
1392
    if ($cas) {
1392
    if ($cas) {
1393
1393
1394
        # Is authentication against multiple CAS servers enabled?
1394
        # Is authentication against multiple CAS servers enabled?
1395
        if ( C4::Auth_with_cas::multipleAuth && !$casparam ) {
1395
        require C4::Auth_with_cas;
1396
            my $casservers = C4::Auth_with_cas::getMultipleAuth();
1396
        if ( multipleAuth() && !$casparam ) {
1397
            my $casservers = getMultipleAuth();
1397
            my @tmplservers;
1398
            my @tmplservers;
1398
            foreach my $key ( keys %$casservers ) {
1399
            foreach my $key ( keys %$casservers ) {
1399
                push @tmplservers, { name => $key, value => login_cas_url( $query, $key, $type ) . "?cas=$key" };
1400
                push @tmplservers, { name => $key, value => login_cas_url( $query, $key, $type ) . "?cas=$key" };
(-)a/C4/Auth_with_cas.pm (-2 / +1 lines)
Lines 35-41 BEGIN { Link Here
35
    require Exporter;
35
    require Exporter;
36
    $debug = $ENV{DEBUG};
36
    $debug = $ENV{DEBUG};
37
    @ISA   = qw(Exporter);
37
    @ISA   = qw(Exporter);
38
    @EXPORT = qw(check_api_auth_cas checkpw_cas login_cas logout_cas login_cas_url logout_if_required);
38
    @EXPORT = qw(check_api_auth_cas checkpw_cas login_cas logout_cas login_cas_url logout_if_required multilpleAuth getMultipleAuth);
39
}
39
}
40
my $defaultcasserver;
40
my $defaultcasserver;
41
my $casservers;
41
my $casservers;
42
- 

Return to bug 28417