21/03/2006
Tarme un jour Tarme toujours
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."/".$_); } } }