#!/local/bin/perl

print <<EOF;
Content-type: text/html
Status: 200

EOF

    print `/proj/i4/bin/mkhtml -onlyheader +title "AOD's home" +up /Persons/ =hdate "S. Reitzner, E. Meier - 02.10.96" +right /Services/Bibassi/ +left /~monge/ -person`;


print <<EOF;
<H1>Das AOD-Team </H1>

<IMG SRC="/images/ohboy.gif" ALIGN=right>

Die Abkürzung AOD steht für "<B>A</B>dministrator <B>O</B>n <B>D</B>uty" und bedeutet, daß
dieses Team die "Feuerwehr" des Lehrstuhls ist. Jeden Tag ist eines der Mitglieder die
Person, die den Hilfebedürftigen bei technischen Problemen behilflich ist. Im Moment hat
das AOD-Team 
EOF

@lines= `/home/inf4/problems/aod -list`;
#
# remove the header and trailer (3 lines / 1 line)
#
shift(@lines); shift(@lines); shift(@lines);
pop(@lines);

print $#lines+1;

print <<EOF1;
 Mitglieder.<P>

Der AOD kann folgendermaßen kontaktiert werden:
<ul>
<P>
<li>Mail senden an <a href="mailto:problems@immd4.informatik.uni-erlangen.de">problems@immd4.informatik.uni-erlangen.de</a><br>(eventuell PGP encrypted mit
<a href="key.html">diesem public key</a>)
<P>
<li>Telefonisch unter <B>85-15074</B>
</ul>
<P>

Im Moment sind wir nur Montags, Mittwochs und Freitags zuständig.<BR>
<P>
<P>
<H2>Wer ist heute AOD ?</H2>
EOF1

foreach (@lines) {
  chop;
  s/^\s+//;
  ($user, $dotdot, $surname, $lastname, $room, $number) = split(/\s+/, $_);
  $aod{$user} = "<a href=\"/~$user/\">$surname $lastname</a>";
}

#
# Who is the AOD today?
#
$a = `/home/inf4/problems/aod`;
($foo, $foo, $foo, $foo, $date, $foo, $user) = split(/\s+/, $a);
if ($user eq "NO_SERVICE") {
  $a = `/home/inf4/problems/aod -week | grep -v "SERVICE" | head -1`;
  ($foo1, $foo2, $date, $foo3, $foo4, $user, $foo) = split(/[\s\n]+/, $a);

  if ($user eq '') {
      $ret = "<BLINK>Heute ist Dienstfreier Tag!!<P>Morgen scheint leider niemand zuständig zu sein!!</BLINK>";
  }
  else {
      $ret = "<BLINK>Heute ist Dienstfreier Tag!!</BLINK><P>In dringenden Notfällen kann heute $aod{$user} (Tel: 85-15074) weiterhelfen.!!";
  }
} elsif ($user ne '') {
  $ret = "AOD am $date ist $aod{$user}.";
} else {
  $ret = "Heute sollte zwar jemand Dienst haben, aber keiner scheint zu mögen!!!";
}
print $ret;

print <<EOF2;
<TABLE border=2 cellspacing=1 cellpadding=4>
<H2> Die Mitglieder </H2>
<TR>
  <TH ALIGN=CENTER> Name
  </TH>
  <TH ALIGN=CENTER> Zimmer
  </TH>
  <TH ALIGN=CENTER> Telefon
  </TH>
</TR>
EOF2

#
# Extract the data from the fields
#
foreach (@lines) {
  s/^\s+//;
  ($user, $dotdot, $surname, $lastname, $room, $number) = split(/\s+/, $_);
  $aod{$user} = "<a href=\"/~$user/\">$surname $lastname</a>";
  print "<tr><td>$aod{$user}\n";
  ($ro = $room) =~ s/^RZ-0\.0//;
  print "    <td align=\"center\"><a href=\"/Maps/i4-rooms.cgi?50=$ro\">$room</a>\n";
  print "    <td align=\"center\">$number\n";
}
 
print <<EOF3;
</TABLE>
<P><HR>
<IMG align=left width=200 SRC="aod_of_hell.jpg">
Der absolut gnadenlose <a href="http://www.emap.com/nww/bofh.htm">Administrator of Hell</a>
ist an folgendem eindeutigen Merkmal zu erkennen:<br clear=left><p>

<HR><P>
<A HREF="http://www.uni-erlangen.de/docs/FAUWWW/Soziales/Stw/Mensa.htm"><IMG align=left SRC="mensa.gif"></A>
Wer schauen möchte, ob der zuständige Admin vormittags oder nachmittags
bessere Laune hat, sollte vielleicht einen Blick auf den <A HREF="http://www.uni-erlangen.de/docs/FAUWWW/Soziales/Stw/Mensa.htm">Mensa-Speiseplan</A> werfen.
<p>
Und ueberhaupt - beware of our <A HREF="./sauger.au">cleaning-woman</A><IMG SRC="vacuum.gif">
<HR>
</DL></body></html>
EOF3