--- /dev/null
+#include <lt2003.style>
+
+<page title="Project Admins">
+
+<?
+ $dbh = pg_pconnect ("<dbconnstring>")
+ or die("Unable to connect to SQL server");
+
+ # pg_exec ($dbh, "SET DateStyle = 'ISO'") or die("Datenbank-Abfrage!");
+
+ # As a sidenote, this excludes supporters and additional projects
+ $query = "SELECT person.project,person.name,person.email,person.list,person.infomail "
+ ."FROM project,person "
+ ."WHERE project.name = person.project AND admin = 1 AND email <> '' "
+ ."AND project.name <> 'Supporter' AND project.name <> 'Sleeper' "
+ ."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 <%s><br>", $row['name'], $row['email']);
+ }
+ }
+ }
+?>
+
+</page>
+
+# Local variables:
+# mode: text
+# mode: auto-fill
+# end: