echo "" ; ?>
Comment la liste des mini-projets est-elle générée ?Comment les mini-projets sont-ils rapatriés automatiquement ?
function zipdir($nomdir) { # on affiche les fichiers zip ou tar du répertoire # en trois temps : # 1. lecture du répertoire et sockage des zips # 2. tri du tableau des zip par date décroissante # 3. affichage en mode table # on vérifie que le répertoire existe... if (!is_dir($nomdir)) { echo "" ; echo " le répertoire $nomdir n'existe pas." ; echo "" ; return ; } ; # fin de si # lecture du répertoire, on ne garde que les .zip et .tar $d = dir($nomdir) ; $nf = 0 ; while ($entry=$d->read()) { $nentry = strtolower($entry) ; if (strpos($nentry,"zip")>0) { if (substr($entry,-4) != "desc") { $nbf++ ; $dernac = filemtime("$nomdir$entry") ; $tnom[$nbf] = $entry ; $tdat[$nbf] = $dernac ; } ; # fin de si sur mot desc absent } ; # fin de si sur mot zip vu } ; # fin tant que $d->close() ; # si aucun fichier, on prévient if($nbf==0) { echo "" ; echo " aucun fichier présent à ce jour..." ; echo "\n" ; } else { echo "" ; echo " $nbf fichier[s] présent[s] à ce jour..." ; echo "\n" ; } ; # fin si # on trie par ordre décroissant de date $idf = 1 ; while ($idf<=$nbf-1) { $jdf = $idf+1 ; while ($jdf<=$nbf) { if ($tdat[$jdf]>$tdat[$idf]) { $tmp = $tdat[$jdf] ; $tdat[$jdf] = $tdat[$idf] ; $tdat[$idf] = $tmp ; $tmp = $tnom[$jdf] ; $tnom[$jdf] = $tnom[$idf] ; $tnom[$idf] = $tmp ; } ; # fin de si $jdf++; } ; # fin tant que sur $jdf $idf++; } ; # fin tant que sur idf # on affiche enpour un "beau" cadrage $d = dir($nomdir) ; echo "
\n" ; $idf = 1 ; $nbz = 0 ; while ($idf<=$nbf) { $entry = $tnom[$idf] ; $dernac = $tdat[$idf] ; $dernac = filemtime("$nomdir$entry") ; $ftaille = filesize("$nomdir$entry") ; $dernacH = date("H",$dernac) ; $dernacM = date("i",$dernac) ; $dernacJ = date("d",$dernac) ; $dernacO = date("m",$dernac) ; $dernacA = date("Y",$dernac) ; $lenum = $idf ; $lentry = strtolower($entry) ; if (substr($lentry,-3) == "zip") { $nbz++ ; $lenum = $nbz ; } else { $lenum = "" ; } ; echo "
\n" ; $d->close() ; } # fin fonction zipdir ?> $ladate = date("d / m / Y") ; $lesh = date("H") ; $lesm = date("i") ; echo "Fichiers .ZIP ou .TAR reçus en date du $ladate à $lesh h $lesm\n" ; echo "\n \n" ; $idf++; } ; # fin tant que echo "$lenum \n" ; echo "$lentry \n" ; echo "\n " ; echo " à $dernacH \n " ; echo "h $dernacM \n" ; echo "le $dernacJ / \n" ; echo "$dernacO / \n" ; echo "$dernacA \n" ; echo "$ftaille \n" ; if ($idf==1) { echo "octets \n" ; } ; print "\n" ; $znomdir = "/home/info/gh/public_html/Projets/Mia/" ; zipdir($znomdir) ; echo "\n" ; ?>Comment la liste des mini-projets est-elle générée ?Comment les mini-projets sont-ils rapatriés automatiquement ?... par un script écrit en PHP nommé zipdirpls.php3.
Vous pouvez consulter le texte du programme PHP ICI
et mon tuteur pour PHP est LA.... par PROCMAIL via le fichier .procmailrc qui utilise un script BASH nommé miarec.
Le mail doit contenir miay2k dans le sujet et le fichier .zip ou .tar doit etre envoyé en attaché ("pièce jointe").
Vous pouvez consulter une copie d'une partie de mon fichier procmailrc ICI
et une copie du texte du script nommé plsrec LA