#!/usr/bin/perl -s


$title = "IETF 60 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.
<p>If you wish to request a timeslot, please send e-mail
to adam&#64;dynamicsoft.com.

<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)
  {
    if (-e "../../drafts/$draft")
    {
      $draft =~ s/(.*)/<a href="\/xcon\/drafts\/$1">$1<\/a>/;
    }
    else
    {
      if ($f)
      {
        system ("cd ../../drafts; wget http://www.ietf.org/internet-drafts/$draft");
      }
      $draft =~ s/(.*)/<a href="http:\/\/www.ietf.org\/internet-drafts\/$1">$1<\/a><sup>*<\/sup>/;
      $nonlocal++;
    }
  }
  print join ("<BR>",@drafts);
  print "</TD>\n";
  print "  <TD>$time</TD>\n";
}


print "</TABLE></CENTER>";
if ($nonlocal) {print "<br><sup>*</sup>Not on the local server";}
print "</BODY></HTML>\n";

__DATA__
Hisham Khartabil;Conference Policy Control Protocol (CPCP);draft-ietf-xcon-cpcp-xcap-01.txt;60 minutes
Gonzalo Camarillo;Binary Floor Control Protocol (BFCP);draft-ietf-xcon-bfcp-00.txt;30 minutes
XCON Media Design Team;Media Policy;draft-jennings-xcon-media-control-01.txt;30 minutes
Alan Johnston, Brian Rosen;Sidebars;draft-rosen-xcon-conf-sidebars-01.txt;15 minutes
Orit Levin;Updates to the SIP Conferencing Package;draft-ietf-sipping-conference-package-05.txt;20 minutes
