#!/usr/bin/perl -w
# remd: test sur les exp_reg pour ldif2r.pl | alain Adelmar 28 févr 2001

$x = "x" x 25;   # ligne d'x pour la presentation
$a = $b =$c = $d =0;    #initialisation pour test

LABEL_TOP:print "Entrez le nom du fichier à traiter:\n";
chomp($fldif = <STDIN>);
$u = 0;  # initialisation de boucle spéciale pour les groupes de noms

if (-e $fldif) {
  $df = localtime(-C $fldif);
  print "\n$x\nRapport du contenu de $fldif $df\n";
  # verif
  ($file, $ext)= split(/\./, $fldif);
  print "test: nom de fichier = $file et son extention = $ext\n";
}
else {
  warn "Erreur, le fichier $fldif n\'existe pas\n";
  goto LABEL_TOP;
}


#ouverture du fichier
open F, "$fldif" or die "Ouverture de $fldif impossible $!";
@contenu = <F>;
close F;

foreach $line(@contenu) { 
  if ($line =~ /^dn/) {
    ($nom, $mail) = split(/,/,$line);
    print "$nom\n$mail\n";
    $s1 = $nom;
    $s1 =~ s/^\w{3}\s\w{3}(.)//;
    print "$s1\n";
    $mail = s/^mail=//;
    print "$mail";
    $mail = chomp($mail);
    $u++;  
  }
  elsif ($a >= 60) {
    die "that's all folks $!";
  }
  else {
    $a++;
    print "$u:$a\n";
  }
}

END;