#include <ltol.style>

<page func="Oldenburger LinuxTag 2000" title="Listen">

<p>... gedacht für das Verschicken von Rundschreiben und dem
Generieren von Namensschildern.

<h3><font face="Helvetica,Arial">Referenten</font></h3>

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

  $query = "SELECT name,email FROM personal WHERE type = 'Referent' ORDER BY name";
  $sth = pg_exec ($dbh, $query) or die("Datenbank-Abfrage!");

  for ($nr=0; $nr < pg_NumRows ($sth); $nr++) {
    $row = pg_fetch_array ($sth, $nr);
    printf ("  %s &lt;%s&gt;,\n", $row['name'], $row['email']);
    $referent[$row['name']] = $row['email'];
  }

?>
</pre>

<h3><font face="Helvetica,Arial">Nicht-Kommerzielle Aussteller</font></h3>

<pre>
<?
  $query = "SELECT name,email FROM exhibitor WHERE type <> 'Sponsor' AND type <> 'intern'  ORDER BY name";
  $sth = pg_exec ($dbh, $query);

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

    printf ("  \"%s\" &lt;%s&gt;,\n", $row['name'], $row['email']);
  }
?>
</pre>

<h3><font face="Helvetica,Arial">Entwickler</font></h3>

<pre>
<?
  $query = "SELECT name,email FROM personal WHERE type = 'Devel' ORDER BY name";
  $sth = pg_exec ($dbh, $query);

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

    printf ("  \"%s\" &lt;%s&gt;,\n", $row['name'], $row['email']);
  }
?>
</pre>

# <h3><font face="Helvetica,Arial">Kommerzielle Aussteller</font></h3>
# 
# <pre>
# <?
#   $dbh = pg_pconnect ("kuolema", "5432", "<db>")
# 		 or die("Unable to connect to SQL server");
# 
#   $query = "SELECT name,email FROM exhibitor WHERE type = 'Sponsor' AND amount > 0.0 ORDER BY name";
#   $sth = pg_exec ($dbh, $query);
# 
#   for ($nr=0; $nr < pg_NumRows ($sth); $nr++) {
#     $row = pg_fetch_array ($sth, $nr);
# 
#     printf ("  %s &lt;%s&gt;,\n", $row['name'], $row['email']);
#   }
# ?>
# </pre>

<h3><font face="Helvetica,Arial">Namensschilder</font></h3>

<small>
<pre>
<?

  $badgepos = 0;
  function badge ($name,$email,$orga)
  {
    global $badgepos;
    global $proceedings;

    if ($badgepos == 0) {
      echo ("\begin{picture}(0,0)\n");
    }
    printf ("\badge%s{%s}{%s}{%s}\n", chr(97+$badgepos),$name,$email,$orga);
    $proceedings[] = $name . "}{" . $email . "}";
    if ($badgepos < 7) {
      $badgepos++;
    } else {
      $badgepos = 0;
      echo ("\end{picture}\n\clear\n");
    }
  }

  $count = 0;

  echo ("% Referenten\n");
  for (reset ($referent); ($ref = key ($referent)); next ($referent)) {
    badge ($ref, $referent[$ref], "Referent");
    $badge[$ref] = 1;
    $count++;
  }

  echo ("% Helfer\n");
  $query = "SELECT name,email FROM personal WHERE type = 'Helfer' ORDER BY name";
  $sth = pg_exec ($dbh, $query) or die("Datenbank-Abfrage!");

  for ($nr=0; $nr < pg_NumRows ($sth); $nr++) {
    $row = pg_fetch_array ($sth, $nr);
    badge ($row['name'], $row['email'], "LinuxTag-Crew");
    $badge[$row['name']] = 1;

  }

  $query = "SELECT name,email,badgeorga,personal,organization, themes FROM exhibitor WHERE type <> 'Sponsor' ORDER BY name";
  $sth = pg_exec ($dbh, $query);

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

    printf ("%% %s: %s\n", $row['organization'], $row['themes']);
    if ($badge[$row['name']] != 1) {
      badge($row['name'], $row['email'], $row['badgeorga']);
      $count++;
      $badge[$row['name']] = 1;
    }

    if (strlen ($row['personal'])) {
      $row['personal'] = ereg_replace ("\r", "", $row['personal']);
      $personal = explode ("\n", $row['personal']);
      for ($i=0; $i < count ($personal); $i++) {
        $pers = explode ("<", $personal[$i]);
	$pers[0] = ereg_replace (" $", "", $pers[0]);
	if ($badge[$pers[0]] != 1) {
	  if (count ($pers) > 0) {
	    $emil = explode (">", $pers[1]);
	    $emil = $emil[0];
	  } else {
	    $emil = '';
	  }
          badge ($pers[0], $emil, $row['badgeorga']);
          $count++;
	  $badge[$pers[0]] = 1;
        }
      }
    }
  }
  echo ("\end{picture}\n");
  printf ("\n%d Namensschilder\n", $count);
?>
</pre>
</small>

<h3><font face="Helvetica,Arial">Proceedings</font></h3>

<small>
<pre>
<?
  $proceedings[] = "Jürgen Dollinger}{}";
  $proceedings[] = "Oliver Zendel}{}";
  sort ($proceedings);
  $count = 0;
  for ($i=0; $i< count ($proceedings); $i++) {
    $count++;
    if (($count % 5) == 0) {
      $add = "\hline";
    } else {
      $add = "";
    }
    printf ("\\proceeding{%s%s\n", $proceedings[$i], $add);
  }

  $query = "SELECT name,organization,email FROM exhibitor WHERE type = 'Sponsor' ORDER BY name";
  $sth = pg_exec ($dbh, $query);

  echo ("\hline\hline\n");
  for ($nr=0; $nr < pg_NumRows ($sth); $nr++) {
    $row = pg_fetch_array ($sth, $nr);
    printf ("\\proceeding{%s}{%s}\n", $row['organization'],$row['email']);
    printf ("\\proceeding{%s}{%s}\hline\n", $row['organization'],$row['email']);
    $count++;$count++;
  }

  printf ("\n%d Proceedings\n", $count);
?>
</pre>
</small>

# <!-- ------------------------------------------------------------------------ -->

# <font face="Helvetica,Arial">
# 
# Telefonnummern aus dieser Liste werden <b>nicht</b> weitergegeben.
# Das gilt insbesondere für die Handynummern.<p>
# 
# <h3><font face="Helvetica,Arial">Orga-Team</font></h3>
# 
# <table width=100% border=1 cellspacing=0 cellpadding=3 bgcolor=#ffffff>
# <tr><th width=35% align=left><font face="Helvetica,Arial">Name</font></th><th width=35% align=left><font face="Helvetica,Arial">E-Mail</font></th><th width=15% align=left><font face="Helvetica,Arial">Telefon</font></th><th width=15% align=left><font face="Helvetica,Arial">Mobil</font></th></tr>
# 
# <:
#     $bgcolor="#ffffff";
#     @list = ('Martin Schulze, joey@ffis.de, 0441/9738830, 0178/822 1036',
# 	       'Martin Garlichs, mg@giant.north.de, 04486/505, 0175/2416861',
# 	       'Michael Tepperis-von der Ohe, michael@linux-garage.de, 0441/9570914, 0172/4347196',
# 	       'Christian Wenke, cw81@gmx.de, 0441/203465',
# 	       'Florian Zumbiehl, florz@gmx.de, 0441/55259',
# 	       'Joachim Janßen, jj@iqual.de',
# 	      );
# 
#     foreach $line (sort (@list)) {
# 	@arr = split (/,\s*/, $line);
# 	printf "<tr><td><font face=\"Helvetica,Arial\">%s</font></td>", $arr[0];
# 	printf "<td><font color=\"%s\">&lt;</font><font face=\"Helvetica,Arial\">%s</font><font color=\"%s\">&gt;</font></td>",
# 	  $bgcolor, $arr[1], $bgcolor;
# 	printf "<td><font face=\"Helvetica,Arial\">%s</font></td>", $arr[2];
# 	printf "<td><font color=\"%s\"> · </font><font face=\"Helvetica,Arial\">%s</font></td></tr>", $bgcolor, $arr[3];
#     }
# :>
# 
# </table><p>
# 
# <h3><font face="Helvetica,Arial">Helfer</font></h3>
# 
# <table width=100% border=1 cellspacing=0 cellpadding=3 bgcolor=#ffffff>
# <tr><th width=35% align=left><font face="Helvetica,Arial">Name</font></th><th width=35% align=left><font face="Helvetica,Arial">E-Mail</font></th><th width=15% align=left><font face="Helvetica,Arial">Telefon</font></th><th width=15% align=left><font face="Helvetica,Arial">Mobil</font></th></tr>
# 
# <:
#     $bgcolor="#ffffff";
#     @list = ('Andre von Deetzen, andre@webserv.de',
# 	       'Dennis Giebel, dennis-linux@gmx.net',
# 	       'Björn Schmidt, lhimdul@gmx.de, 04481/8826',
# 	      );
# 
#     foreach $line (sort (@list)) {
# 	@arr = split (/,\s*/, $line);
# 	printf "<tr><td><font face=\"Helvetica,Arial\">%s</font></td>", $arr[0];
# 	printf "<td><font color=\"%s\">&lt;</font><font face=\"Helvetica,Arial\">%s</font><font color=\"%s\">&gt;</font></td>",
# 	  $bgcolor, $arr[1], $bgcolor;
# 	printf "<td><font face=\"Helvetica,Arial\">%s</font></td>", $arr[2];
# 	printf "<td><font color=\"%s\"> · </font><font face=\"Helvetica,Arial\">%s</font></td></tr>", $bgcolor, $arr[3];
#     }
# :>
# 
# </table>

</page>

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