Comme l'indique le nom si explicite de cette épisode, j'ai enfin rajouté la possibilitée de télécharger directement tout un répertoire de la section download.
Rien d'extraordinaire, il fallait juste utiliser le module archive::tar, et parcourir les fichiers et sous-dossiers du répertoire voulu.
my $tar = Archive::Tar->new();
my $tsize=0;
sub tar_me($); #pour la definition de fonction
sub tar_me($)
{
if($tsize > 100 * 1024 * 1024) { print header, start_html,p("error"),end_html; }
my $dir = shift;
$tsize += (stat($dir))[7];
$tar->add_files($dir);
if (-e $dir)
{
opendir(DIR,$dir);
my @fichiers = grep { !/^./ } readdir(DIR);
foreach(@fichiers)
{
tar_me($dir."/".$_);
}
}
}
le 21/03/06 10:26:01
test ds commentaires (bug)
le 21/03/06 14:06:43
code exemplaire niveau gestion des erreurs xD
sinon très intéressant.
le 13/04/06 21:29:14
Ben je croa kil y a une petite faute après
{ !/^./ }
c plutot { !!!!! }
Biz à l'ingenieur informaticien