#!/usr/bin/perl


$title = "IETF 58 XCON Meeting Timeslot Requests";

print <<EOT
Content-Type: text/html

<HTML><HEAD><TITLE>$title</TITLE></HEAD>
<BODY>
<H1>$title</h1>

<p>Note that the following table only indicates requests.
The actual agenda will be determined based on this input;
however, timeslots may be adjusted or removed depending
on a variety of factors.

<CENTER><TABLE border=1>
<TR>
  <TH>Name</TH>
  <TH>Topic</TH>
  <TH>Draft</TH>
  <TH>Time Requested</TH>
EOT
;

foreach $entry (<DATA>)
{
  chop;
  ($name, $topic, $drafts, $time) = split(';', $entry);
  @drafts = split(',', $drafts);
  print "<TR>\n";
  print "  <TD>$name</TD>\n";
  print "  <TD>$topic</TD>\n";
  print "  <TD>";
  foreach $draft (@drafts)
  {
    $draft =~ s/(.*)/<a href="\/xcon\/drafts\/$1">$1<\/a>/;
  }
  print join ("<BR>",@drafts);
  print "</TD>\n";
  print "  <TD>$time</TD>\n";
}


print "</TABLE></CENTER></BODY></HTML>";

__DATA__
Hisham Khartabil;Conference Policy;draft-koskelainen-xcon-cpcp-reqs-01.txt,draft-koskelainen-xcon-xcap-cpcp-usage-01.txt;20 minutes
Rohan Mahy;Media Policy;draft-mahy-xcon-media-policy-control-00.txt;Gaseous
Marcus Brunner;Floor Control;draft-brunner-xcon-fc-issues-00.txt;10 minutes
