#!/usr/bin/perl
# remd: ce script va voir si mon module FrDate fonctionne.
# alain Adelmar 12/12/03 (aniv maman)
# $ID$
use Cwd;
$dir = cwd;

# initiliser les variables pour FrDate par defaut;
$opd = $mod_affichage = 0;

#essayer FrDate4Now en donnant la date et l'heure
$dtn = do '/usr/lib/perl5/5.6.0/FrDate4Now.pl';
print "Ce script est écrit pour tester les module FrDate4Now et FrDate4File\n";
print "Fini d'écrire maintenant $dtn\n";

opendir DIR, "$dir" or die "Ouverture de $dir impossible $!";
@ls_file = readdir DIR;
closedir DIR || die "Erreur: Fermeture de $dir compromise $!";

foreach $filename(@ls_file) {
  next if ($filename =~ /^\.|\.\./);
  $file = "$dir" . "\/" . "$filename";
  &date_le($file);
}

sub date_le($file) {
  my($file)=@_;
  
  $opd = $mod_affichage = 2;
  $frd = do 'FrDate4File.pl';
 # $frt = ffdt($file, $opd, $mod_affichage);
  
  print "Le fichier $filename date de $frd\n";
}

END;
