Re: Perl y LDAP
-----BEGIN PGP SIGNED MESSAGE-----
Hash: SHA1
Primero trata de verificar si el paquete Net::LDAP permite transferencias en
binario (ya que no lo he usado, debe haber algún método derrepente que te
permita cambiar de ascci a binario)... en todo caso podrías eliminar el
octavo bit de lo que recibes para no estár poniendo uno a uno el reemplazo
para los caracteres así:
$var =~ y/\200-\377/\0-\177/;
esto va despues de que has recibido el valor a través de param...
Saludos!
nmag only
_______________
Saxa Egea escribió::
> Hola gente!
>
> Estoy haciendo unos sCRIPTS en perl que me recogen los datos de un formulario
> web y me aplican unos cambios en el servidor de LDAP.
>
> En principio todo funcionaba bien... en principio :(
> Cuando a algun usuario se le ocurre meter un simple acento... todo se va al
> garete...
> Segun parece la captura de la variable con un simple:
> $var=$query->param('var');
>
> funciona bien... el problema esta en la insercion en el LDAP con Net::LDAP.
> cuando hago el ldapmodify me termina la variable en el primer acento y el
> resto lo omite.
>
> Haciendo mis pruebas en el servidor de LDAP he visto que cuando le pongo una
> simple "à" en dicho campo el servidor me lo convierte a "=w6A".
>
> Alguien sabe que tipo de conversion hay de por medio? alguien sabe si existe
> alguna funcion en PERL para quitar esos caracteres extendidos y pasarlos a
> "sin acentos"?
>
> tx
>
> Saxa
>
>
- --
nmag only
gnupg keyID: 0x8F6F6E58 [http://pgp.mit.edu/]
last update: 2003-04-15
fingerprint: FB75 3F34 7001 90B2 0DE6 45AC B89A E53B 8F6F 6E58
GNU/Linux Registered User #312624
-----BEGIN PGP SIGNATURE-----
Version: GnuPG v1.0.6 (GNU/Linux)
Comment: Using GnuPG with Debian - http://enigmail.mozdev.org
iD8DBQE+webauJrlO49vblgRAvAOAKCZPbYmCvq6w5OpMZZo0irI62qJYwCgo0Xn
a6LNAzTASlMQHb8g8Fl+GPI=
=KG1m
-----END PGP SIGNATURE-----
Reply to: