=head1 NOM

  compress_dir.pl

  IGN/SGN/RGP
  Auteur : Jacques Beilin

=cut

my $module = "compress_dir                                                               ";
my $version = "1.0 01/03/2006";
substr($module, 20) = $version;
our $VersionPackage = $module;
our $author = 'Jacques Beilin';
our $agency = 'IGN/SGN/RGP';

=head1 VERSIONS

  1.0 01/03/2006 :

=head1 SYNOPSIS

  Placer ce programme dans un dossier. Le programme comressera tous les sous-dossiers,
  chacun dans un fichier tar.gz

  Langage de programmation : Perl Version 5.6.1.

=head1 DEPENDANCES

  - programme gzip et tar

=cut




use strict;
use warnings;

print "$VersionPackage\n";
print "$author\n";
print "$agency\n\n";


my $fic;
my $dirdoy;
my $fic2;
my $fictar;
my $ficgz;

my $yyyy = '2006';


opendir (REPDOY, '.') or print "\nImpossible !\n";
readdir (REPDOY);
readdir (REPDOY);



while ($dirdoy = readdir (REPDOY))
{
   if (-d $dirdoy)
   {
      chdir($dirdoy);

      #print "$dirdoy\n";

      opendir (REP, '.') or print "\nImpossible !\n";
      readdir (REP);
      readdir (REP);

      while ($fic = readdir (REP))
      {
        if (-d $fic)
        {
          print "$fic\n";
          $fictar = '"'.$yyyy.'_'.$dirdoy.'_'.$fic.'.tar"';
          $fic2 =  '"'.$fic.'"';
          `tar -cf $fictar $fic2`;
          `gzip -f $fictar`;
          $ficgz = $yyyy.'_'.$dirdoy.'_'.$fic.'.tar.gz';
          if ((-e $ficgz) || (-s $ficgz))
          {
            print "$ficgz cree\n";
            `rm -rf $fic`; 
          } else
          {
            print "Probleme lors de la creation de $ficgz\n";
          }
        }
      }
      closedir (REP);

      chdir('..');
   }

}
closedir (REPDOY);