#!perl

sub walk {
while(<STDIN>) {
	return 1 if m!</body>!;
	last if m!^<a name="(\w{2}\d+)"> </a>!;
};
}

sub suck {
my ($room,$session,$chair,$style,$level,$audience,$categories,@speaker) = (@_);
$_=<STDIN>; 

if (m!body!) {
	print STDERR "Done\n";
	return 1;
} else {
	print STDERR "$_\n";
};

die "$_ / $." 
	unless m!<h3>(\w{2}\d+): (.*)</h3>!;

$title = "$1: $2";
$_=<STDIN>; die "$_ / $." unless m!<p>!;
$_=<STDIN>; die "$_ / $." unless m!<small>!;
$_=<STDIN>; die "$_ / $." unless m!Day: <b>(\w+)</b>!;
$day = $1;
$_=<STDIN>; die "$_ / $." unless m!Time: <b>(\w+)</b>!;
$time = $1;
unless (length $room) {
	$_=<STDIN>; 
	if (m/Room/) {
		die "$_ / $." unless m!Room: <b>([^<]+)</b>! ;
		$room = $1;
		$_=<STDIN>; 
	}
	if (m/Session/) {
		die "$_ / $." unless m!Session chair: <b>(.*)!;
		$session = $1;
	}
}
$_=<STDIN>; die "$_ / $." unless m!Duration: <b>([^<]+)</b>!;
$duration=int($1);

unless (length $room) {
	$_=<STDIN>; die "$_ / $." unless m!Style: <b>([^<]*)</b>!;
	$style = $1;
	$_=<STDIN>; die "$_ / $." unless m!Level: <b>([^<]+)</b>!;
	$level = $1;
	$_=<STDIN>; die "$_ / $." unless m!Audience: <b>([^<]+)</b>!;
	$audience = $1;
	$_=<STDIN>; die "$_ / $." unless m!Categories: <b>([^<]*)</b>!;
	$categories = $1;
}
$_=<STDIN>; die "$_ / $." unless m!<br>!;
while(1) {
	$_ = <STDIN>;
	next if m/<br>/;
	last unless m/Speaker/;
	die "$_ / $." unless m!Speaker: <a [^>]+><b>([^<]+)</b></a>!;
	push @speaker,$1;
	
};
die "$_ / $." unless m!</small>!;
$_=<STDIN>; die "$_ / $." unless m!</p>!;
$_=<STDIN>; die "$_ / $." unless m!<dl>!;
$_=<STDIN>; die "$_ / $." unless m!<dt>Abstract:</dt>!;
$_=<STDIN>; die "$_ / $." unless m!<dd>(.*)!;
$txt = $1;
while(<STDIN>) {
	$txt .= $_;
	last if m!</dd>!;
};
$_=<STDIN>; die "$_ / $." unless m!</dl>!;
$txt =~ s!<[^>]+>!!sg;
$txt =~ s!\n+! !sg;
$txt =~ s!\s+! !sg;

%d = ( 'Sun' => 16, 'Mon' => 17,'Tue' => 18,'Wed' => 19);
$d = $d{ $day } or die;

$t = $time;
($h,$m) = split /h/,$t;
$t1=$h.$m;
$m += $duration;
if ($m>=60) {
	$h+=1;
	$m-=60;
};
$m = '0'.$m if $m <10;
$h = '0'.$h if $h <10;
$t2=$h.$m;

$d1="200311$d\T$t1"."00Z";
$d2="200311$d\T$t2"."00Z";
print STDERR "$title - $day / $time -- $t1 - $t2 ($duration)\n";
$txt .= '\n\n'."$level $audience $category $style\\n";
$ii++;
$h=sprintf "%04x",$ii;
$speakers = join(', ',@speaker);
print <<"EOM";
BEGIN:VEVENT
ATTENDEE;CN="$speakers":mailto:none\@apace.org
UID:57128C48-1931-11D8-$h-00039344C7CD
DTSTART;TZID=US/Pacific:$d1
SEQUENCE:$ii
SUMMARY:$title
DTEND;TZID=US/Pacific:$d2
DESCRIPTION:$txt
ORGANIZER;CN="$speakers":mailto:none\@apace.org
LOCATION: $room
END:VEVENT
EOM

return 0;
}

print <<"EOM";
BEGIN:VCALENDAR
VERSION:2.0
X-WR-CALNAME:DirkxApacheCon
PRODID:-//Apple Computer\, Inc//iCal 1.5//EN
X-WR-RELCALID:571295C9-1931-11D8-A96D-00039344C7CD
X-WR-TIMEZONE:US/Pacific
CALSCALE:GREGORIAN
METHOD:PUBLISH
BEGIN:VTIMEZONE
TZID:US/Pacific
LAST-MODIFIED:20031117T190751Z
BEGIN:STANDARD
DTSTART:20031026T090000
TZOFFSETTO:-0800
TZOFFSETFROM:+0000
TZNAME:PST
END:STANDARD
BEGIN:DAYLIGHT
DTSTART:20040404T010000
TZOFFSETTO:-0700
TZOFFSETFROM:-0800
TZNAME:PDT
END:DAYLIGHT
END:VTIMEZONE
EOM

&walk(); &suck('Main Room');
&walk(); &suck('Main Room');
&walk(); &suck('Main Room');

for $i (1..100) {
	&walk() and last;
	&suck() and last;
};

print << "EOM";
END:VCALENDAR
EOM