#include <lt2001.style>

<page title="Infomail Addresses" subtitle=Infomail>

<?
  $dbh = pg_pconnect ("<dbhost>", "<dbport>", "<dbname>")
	       or die("Unable to connect to SQL server");

  # pg_exec ($dbh, "SET DateStyle = 'ISO'") or die("Datenbank-Abfrage!");

  $query = "SELECT person.project,person.name,person.email,person.list,person.infomail "
          ."FROM project,person "
	  ."WHERE project.name = person.project AND ( infomail = 1 OR list = 1) AND email <> ''"
	  ."ORDER BY project,name";
  $sth = pg_exec ($dbh, $query) or die("Datenbank-Abfrage!");

  if (pg_NumRows ($sth) > 0) {
    $project = '';
    for ($nr=0; $nr < pg_NumRows ($sth); $nr++) {
      $row = pg_fetch_array ($sth, $nr);

      if ($project != $row['project']) {
        printf ("<h3>%s</h3>", $row['project']);
	$project = $row['project'];
      }

      if ($row['list']) {
        printf ("%s<br>", $row['email']);
      } else {
        printf ("%s &lt;%s&gt;<br>", $row['name'], $row['email']);
      }
    }
  }
?>

</page>

# Local variables:
# mode: text
# mode: auto-fill
# end: