$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;
}
?>