La date actuelle en secondes depuis le 1/1/1970
<shell now=`date +'%s'`>

La liste des infos dont le fichier date de moins de 15 jours (ou au moins la première info, à défaut):

<shell prem=1>
<shell listeinfosrecentes="";premier=1;for i in `ls -t $listeinfos`; do datefich=`date +'%s' --reference="$i"`; datefich=$(( ($now-$datefich)/86400 )); if [ $datefich -gt 15 -a $premier -ne 1 ]; then break; fi; listeinfosrecentes="$listeinfosrecentes $i"; premier=0; done>

<shell avant=$'\074/LI\076 \074LI\076 \074FONT SIZE="-1"\076'; apres=$'\074/FONT\076'>

<shell avant='';apres=$'\074HR SIZE="2" WIDTH="100%"\076'>

<shellecho perl commentaire_presse.pl "$avant" "$apres" revue_presse.prehtml tmpderniersarticles.tmp $listeinfosrecentes>

</chut><include tmpderniersarticles.tmp>