#!/usr/bin/perl $tod = 900; # 1730 $title = "IETF 59 XCON Meeting Agenda"; print <$title

$title

Thursday, March 4 at 0900-1130
===================================

CHAIRS: Alan Johnston <alan.johnston\@mci.com>
        Adam Roach <adam\@dynamicsoft.com>

AGENDA:

EOT ; foreach $entry () { chop; ($time, $name, $topic, $drafts, $presentations) = split(';', $entry); @drafts = split(',', $drafts); @presentations = split(',', $presentations); $start = $tod; $h = int($tod / 100); $m = $tod % 100; $m += $time; $h += int($m / 60); $m %= 60; $tod = $h*100 + $m; print "\n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print " \n"; print "\n"; } print "

Time	Length	Name	Topic	Draft	Slides
$start - $tod	$time minutes	$name	$topic	"; foreach $draft (@drafts) { $draft =~ s/(.*)/$1<\/a>/; } print join (" ",@drafts); print "	"; foreach $presentation (@presentations) { $presentation =~ s/([^.])\.(.)/$2<\/a>/; } print join (", ",@presentations); print "

"; __DATA__ 5;Chairs;Agenda Bash;; 10;Chairs;Milestone Review;draft-ietf-xcon-conference-scenarios-00.txt;chairs-xcon.ppt 15;Joerg Ott;Floor Control;draft-ietf-xcon-floor-control-req-00.txt;ott-fc.ppt 30;Hisham Khartabil;CPCP;draft-ietf-xcon-cpcp-reqs-02.txt,draft-koskelainen-xcon-xcap-cpcp-usage-02.txt;khartabil-cpcp.ppt 15;Eric Burger;Media Policy Models;draft-burger-xcon-mmodels-00.txt;burger-models.ppt 15;Cullen Jennings;Media Policy Templates;draft-jennings-xcon-media-control-00.txt;jennings-mpcp.ppt 60;All;Open Discussion;;