BOURSES & MARCHES

/**************************************************
*
* BrowseTree
* Matthieu Belge, 11/02/2001 00:01
* 
* Parcours des fichiers d'une arborescence de répertoires
*
* @param directory Répertoire à parcourir
* @return TRUE si le parcours est OK
*
* @see GetDirContent
*
*************************************************/

sub BrowseTree 
{
 my ($directory) = @_;

 $directory =~ s%/$%%;

 if (! -e $directory ) {
  print "Répertoire source inconnu ($directory).";
  return undef;
 }

 my $dir_files = GetDirContent($directory);

 return undef unless ( defined $dir_files );

 my $dir_file;

 foreach $dir_file (@{$dir_files}) {
  if ( -d "$directory/$dir_file") {
   return undef unless ( defined BrowseTree("$directory/$dir_file") );
  } elsif ($dir_file =~ m/\s*(\.ext)/i) { 
  # remplacer .ext avec l'extension des fichiers a traiter
  #Traiter les fichiers ici

  }
 }
 return 1;
}