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

$title

Wednesday, November 12 at 1530-1730
===================================

CHAIRS: Alan Johnston 
        Adam Roach 

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;;chairs-xcon.ppt,chairs-xcon.pdf 10;Chairs;Milestone Review;draft-even-xcon-conference-scenarios-00.txt,draft-even-xcon-media-policy-requirements-00.txt;evan-scenario.ppt,evan-scenario.pdf,evan-media_policy_req.ppt,evan-media_policy_req.pdf 10;Joerg Ott;Floor Control;draft-koskelainen-xcon-floor-control-req-00.txt;ott-58-xcon-fc-req-01.ppt,ott-58-xcon-fc-req-01.pdf 15;Marcus Brunner;Floor Control;draft-brunner-xcon-fc-issues-00.txt;brunner-xcon_IETF58.ppt,brunner-xcon_IETF58.pdf 20;Hisham Khartabil;CPCP;draft-koskelainen-xcon-cpcp-reqs-01.txt,draft-koskelainen-xcon-xcap-cpcp-usage-01.txt;khartabil-CPCP.ppt,khartabil-CPCP.pdf 15;Orit Levin;CPCP;draft-levin-xcon-cpcp-00.txt;levin-CPCP.ppt,levin-CPCP.pdf 25;Rohan Mahy;Media Policy;draft-mahy-xcon-media-policy-control-00.txt;mahy-media-policy.ppt,mahy-media-policy.pdf 20;Cullen Jennings
Brian Rosen;Media Policy;;jennings-xconMediaPolicyRan.ppt,jennings-xconMediaPolicyRan.pdf