<?

$poet_name[0] = "No poets registered";
$poet_died[0] = "";

$works_poet[0] = "No poets registered";
$works_work[0] = "";
$works_url[0] = "";

$poets = 0;
$works = 0;

function dps_read_files() {
  global $poet_name;
  global $poet_died;
  global $works_poet;
  global $works_work;
  global $works_url;
  global $poets;
  global $works;

  $poets = 0;
  $works = 0;

  if (! file_exists("poets/poets.csv")) {
    mail("dhorton@iprimus.com.au", "Missing poets/poets.csv",
	 "$SCRIPT_FILENAME:: dps_open_files()\n$REMOTE_ADDR:$REMOTE_PORT -- $HTTP_USER_AGENT\n missing poets/poets.csv" );
    die("missing poet database -- poets/poets.csv");
  }
  if (! file_exists("poets/works.csv")) {
    mail("dhorton@iprimus.com.au", "Missing poets/works.csv",
	 "$SCRIPT_FILENAME:: dps_open_files()\n$REMOTE_ADDR:$REMOTE_PORT -- $HTTP_USER_AGENT\n missing poets/works.csv" );
    die("missing poet database -- poets/works.csv");
  }
  
  $pf = fopen("poets/poets.csv", "r");
  if (! $pf) {
    mail("dhorton@iprimus.com.au", "Missing poets/poets.csv",
	 "$SCRIPT_FILENAME:: dps_open_files()\n$REMOTE_ADDR:$REMOTE_PORT -- $HTTP_USER_AGENT\n cannot open poets/poets.csv" );
    die("cannot open poet database -- poets/poets.csv");
  }
  
  while( $data = fgetcsv($pf, 100)) {
    $num = count($data);
    if (2 != $num) {
      mail("dhorton@iprimus.com.au", "incorrect field count poets/poets.csv",
	   "$SCRIPT_FILENAME:: dps_open_files()\n$REMOTE_ADDR:$REMOTE_PORT -- $HTTP_USER_AGENT\n incorrect field count ($num) poets/poets.csv:$poets:\n$data[0]" );
      continue;
    }
    //echo ("$poets: p=$data[0] d=$data[1]\n");
    $poet_name[$poets] = $data[0];
    $poet_died[$poets] = $data[1];
    $poets++;
  }
  fclose($pf);

  $pf = fopen("poets/works.csv", "r");
  if (! $pf) {
    mail("dhorton@iprimus.com.au", "Missing poets/works.csv",
	 "$SCRIPT_FIELNAME:: dps_open_files()\n$REMOTE_ADDR:$REMOTE_PORT -- $HTTP_USER_AGENT\n cannot open poets/works.csv" );
    die("cannot open poet database -- poets/works.csv");
  }
  
  while( $data = fgetcsv($pf, 100)) {
    $num = count($data);
    if (3 != $num) {
      mail("dhorton@iprimus.com.au", "incorrect field count poets/poets.csv",
	   "$SCRIPT_FILENAME:: dps_open_files()\n$REMOTE_ADDR:$REMOTE_PORT -- $HTTP_USER_AGENT\n incorrect field count poets/works.csv:$poets:\n$data[0]" );
      continue;
    }
    echo ("<!-- $poets: p=$data[0] d=$data[1] u=$data[2] -->\n");
    $works_poet[$works] = $data[0];
    $works_work[$works] = $data[1];
    $works_url[$works] = $data[2];
    $works++;
  }
  fclose($pf);
}
?>