TfeServer

Blog de tfe, Web, Unix et Scripts...?

Tarme un jour Tarme toujours

Publié le 21/03/2006 dans Web

Comme l'indique le nom si explicite de cette e©pisode, j'ai enfin rajoute© la possibilite©e de te©le©charger directement tout un re©pertoire de la section download.

Rien d'extraordinaire, il fallait juste utiliser le module archive::tar, et parcourir les fichiers et sous-dossiers du re©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."/".$_); } } }