$name | $desc
"; $an = ""; } if(ereg("^Author-Name: (.+)$",$xFile[$i],$ma)) { $an = $an.chop($ma[1])." "; } if(ereg("^Creation-Date: (.+)$",$xFile[$i],$cd)) { $cred = $cd[1]; $cre=fmt($cred); } if(ereg("^Revision-Date: (.+)$",$xFile[$i],$rd)) { $revd = $rd[1]; $rev = fmt($revd); } if(ereg("^Handle: (.+)bocode:(.+)\n$",$xFile[$i],$han)) { if($cred > $prevdt | $revd > $prevdt) { $handl=$han[2]; /* $handl=strtolower($han[2]); */ echo "\n{browse \"http://ideas.uqam.ca/ideas/data/Softwares/bocbocode$handl.html\":$name} {txt} $desc"; echo "Authors: $an\n"; if($revd>$cred) { echo "Revised: $rev\n"; } else { echo "Created: $cre\n"; } $cred=""; $revd=""; $an=""; } } } print "\n{hline}\nEnd of recent additions and updates\n"; function fmt($d8) { $y = floor($d8/10000); $m = floor($d8/100-$y*100); $d = floor($d8-$y*10000-$m*100); $mp = ($m<10) ? "0" : ""; $dp = ($d<10) ? "0" : ""; $df = $y."-".$mp.$m."-".$dp.$d; return $df; } ?>