#!/usr/bin/perl

$directorio = "/tmp";

@persona = `/usr/local/ldap/bin/ldapsearch -s sub "mail=prueba\@fcu.um.es" userCertificate | /usr/bin/grep -v '^cn='`;


foreach $linea (@persona)
{
  chop($linea); 

# Si tiene certificado dispone de una entrada userCertificate

    if ($linea =~ /^userCertificate=/)
    {
      ($nada, $certif) = split(/}/,$linea);
    }

    open(FICHERO, ">$directorio/prueba.asn") or die "No se pudo crear $directorio/prueba.asn";
    print FICHERO $certif;
    close (FICHERO) or die "No se pudo cerrar $directorio/prueba.asn";
}

