#!/usr/bin/perl -s $title = "IETF 61 XCON Meeting Timeslot Requests"; print <$title

$title

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.

If you wish to request a timeslot, please send e-mail to adam@nostrum.com.

EOT ; foreach $entry () { chop; ($name, $topic, $drafts, $time) = split(';', $entry); @drafts = split(',', $drafts); print "\n"; print " \n"; print " \n"; print " \n"; print " \n"; } print "

Name	Topic	Draft	Time Requested
$name	$topic	"; foreach $draft (@drafts) { if (-e "../../drafts/$draft") { $draft =~ s/(.)/$1<\/a>/; } else { if ($f) { system ("cd ../../drafts; wget http://www.ietf.org/internet-drafts/$draft"); } $draft =~ s/(.)/$1<\/a>^{*<\/sup>/; $nonlocal++; } } print join (" ",@drafts); print "}	$time

"; if ($nonlocal) {print "
^*Not on the local server";} print "\n"; __DATA__ Author;Subject;Draft;Time