"; print "SSC Stata modules
created or revised "; $currdt=$year.$cmp.$curmo.$dp.$dyb4; $prevdt=$yrb4.$mp.$monb4.$dp.$dyb4; print "$yrb4-$mp$monb4-$dp$dyb4 to $year-$cmp$curmo-$dp$dyb4

";

$fs=0;
$desc="";
$cred="";
$revd="";
$xFile = file ("ftp://ftp.bc.edu/pub/user/baum/RePEc/boc/bocode/bocodex.rdf");
$yFile = file ("ftp://ftp.bc.edu/pub/user/baum/RePEc/boc/bocode/bocodey.rdf");
$st = count($xFile);
for ($i=0; $i < count($yFile); $i++) {
	$xFile[$st+$i] = $yFile[$i];
	}
$zFile = file ("ftp://ftp.bc.edu/pub/user/baum/RePEc/boc/bocode/bocodez.rdf");
$st = count($xFile);
for ($i=0; $i < count($zFile); $i++) {
        $xFile[$st+$i] = $zFile[$i];
        }
for ($i=0; $i < count($xFile); $i++) {
	if(ereg("^Title: (.+): Stata (.+)$",$xFile[$i],$matches)) {
		$name = $matches[1];
		$desc = $matches[2];
//		echo "
$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:(.+)$",$xFile[$i],$han)) {
		if($cred > $prevdt | $revd > $prevdt) {
			echo "
$name  $desc
";
			echo "Authors: $an";
			if($revd>$cred) { 
				echo "
Revised: $rev
 
"; 
				}
			else { 
				echo "
Created: $cre
 
"; 
				}	
			$cred="";
			$revd="";
			$an="";
			}
		}
	}
print "\nEnd of recent additions and updates\n
\n