BC EC Working Papers 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\n";
$fs=0;
$desc="";
$cred="";
$revd="";
$xFile = file ("ftp://ftpeagle.bc.edu/pub/user/baum/RePEc/boc/bocoec/bocoecx.rdf");
$yFile = file ("ftp://ftpeagle.bc.edu/pub/user/baum/RePEc/boc/bocoec/bocoecy.rdf");
$st = count($xFile);
for ($i=0; $i < count($yFile); $i++) {
$xFile[$st+$i] = $yFile[$i];
}
$zFile = file ("ftp://ftpeagle.bc.edu/pub/user/baum/RePEc/boc/bocode/bocoecz.rdf");
$st = count($xFile);
for ($i=0; $i < count($zFile); $i++) {
$xFile[$st+$i] = $zFile[$i];
}
for ($i=0; $i < count($xFile); $i++) {
if(preg_match('/^Template-Type: (.+)$/',$xFile[$i],$tt)) {
$an = "";
}
if(preg_match('/^Title: (.+)$/',$xFile[$i],$ti)) {
$title = $ti[1];
}
if(preg_match('/^Author-Name: (.+)$/',$xFile[$i],$ma)) {
$an = $an.chop($ma[1])." ";
}
if(preg_match('/^Creation-Date: (.+)$/',$xFile[$i],$cd)) {
$cred = $cd[1];
$cre=fmt($cred);
}
if(preg_match('/^Revision-Date: (.+)$/',$xFile[$i],$rd)) {
$revd = $rd[1];
$rev = fmt($revd);
}
/*
if(preg_match('/^Abstract: (.+)$/',$xFile[$i],$ab)) {
$abst = $ab[1];
}
*/
if(preg_match('/^Handle: RePEc:boc:bocoec:(.+)$/',$xFile[$i],$han)) {
if($cred > $prevdt | $revd > $prevdt) {
$handl=chop($han[1]);
echo "WP $handl\n
";
echo "Title: $title\n
";
echo "Authors: $an
\n";
// echo "Abstract: $abst
\n";
if($revd>$cred) {
echo "URL: http://fmwww.bc.edu/EC-P/wp{$handl}.pdf
\nRevised: $rev
\n";
}
else {
echo "URL: http://fmwww.bc.edu/EC-P/wp{$handl}.pdf
\nCreated: $cre
\n";
}
$cred="";
$revd="";
$an="";
$title="";
print "
\n";
}
}
}
print " End 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;
}
?>