PAPI Archivos

The PAPI authentication and authorization framework

PAPI@LISTSERV.REDIRIS.ES

Opciones: Vista Forum

Use Monospaced Font
Por defecto enseñar Text Part
Mostrar todas las cabeceras de correo

Mensaje: [<< Primero] [< Prev] [Siguiente >] [Último >>]
Tema: [<< Primero] [< Prev] [Siguiente >] [Último >>]
Autor: [<< Primero] [< Prev] [Siguiente >] [Último >>]

Print Responder
Subject:
Emisor:
Francisco Jesús Jordano Jiménez <[log in para visualizar]>
Reply To:
The PAPI authentication and authorization framework <[log in para visualizar]>
Fecha:
Thu, 30 Aug 2007 12:39:20 +0200
Content-Type:
text/plain
Parts/Attachments:
text/plain (43 lines)
Hi all,

    Ive found an unwanted feature in PAPI 1.4. Im using standar 
attribute separator (",") and value separator ("="), so i dont specify 
them in the config file.
In my case, when an attribute contains spaces, for example ou=Biblioteca 
Virtual Servicio Andaluz Salud, PAPI splits spaces as attribute 
separator, so i obtain non desired headers:

X-PAPIAttr-ou = Biblioteca
X-PAPIAttr-Virtual = Servicio
X-PAPIAttr-Andaluz = Salud

This problem is fixed applying to the PoA.pm file the next workaround:

sub build_attrList
{
        my $self=shift;
        my $str=shift;

        my $are='\s*,\s*';
        if (defined $self->{'AttSep'} &&  $self->{'AttSep'} ne "") {
                $are='\s*'.$self->{'AttSep'}.'\*';
        }
        my $ave='\s*=\s*';
        if (defined $self->{'ValSep'} &&  $self->{'ValSep'} ne "") {
                $ave='\s*'.$self->{'ValSep'}.'\*';
        }

        my @acomp=split (/@/,$str);
        my $asid=pop(@acomp);
        my $spsubj=join('@',@acomp);
        for my $atc (split (/$are/,$spsubj)) {
                push (@{$self->{'attrList'}}, split (/$ave/,$atc,2));
        }
        push (@{$self->{'attrList'}},("PAPIAuthServer",$asid));
}


Hope this help someone :P

Best regards.

ATOM RSS1 RSS2