ok I tracked down the provlem a bit....

excerpt from perl modules: AC.pm

 my $ok = 0;
    ## check each entry
    for (my $i=0; $i<$self->{acl}->{length}; $i++) {

        ## differnt checks that will "next" on failure...
        $self->debug ("getAccess: access granted");
        $ok = 1;
        last;
    }
    if (not $ok) {
        $self->{session}->stop();
        $self->setError (6296060,
            $self->{gettext} ("Permission denied."));
        return undef;
    }


Problem: In my case the value of "$self->{acl}->{length};" is 0 - so the loop is never called and so I dint get a validation...

Any ideas why/where to look ?

Oliver

--
Diese Nachricht wurde digital unterschrieben
oliwel's public key: http://www.oliwel.de/oliwel.crt
Basiszertifikat: http://www.ldv.ei.tum.de/page72

Attachment: smime.p7s
Description: S/MIME Cryptographic Signature



Reply via email to