X-Git-Url: http://git.tpope.net/?p=tpope-extra.git;a=blobdiff_plain;f=perl%2Fschedproc;h=ec8d99cc6031b0f6bf2fe09ed66945ab32190e74;hp=de2e0e0b33a1e80be7d639b5b828e0b76365390a;hb=27d95d61b2c588a369cfcd880b826789e7db9456;hpb=7bb0bf9e97c742e1c32066c016911346cddc0a8a

diff --git a/perl/schedproc b/perl/schedproc
index de2e0e0..ec8d99c 100755
--- a/perl/schedproc
+++ b/perl/schedproc
@@ -440,7 +440,7 @@ DTSTART:20050403T020000$r
 RRULE:FREQ=YEARLY;INTERVAL=1;BYDAY=1SU;BYMONTH=4$r
 TZOFFSETFROM:-0600$r
 TZOFFSETTO:-0500$r
-TZNAME:Daylight Savings Time$r
+TZNAME:Daylight Saving Time$r
 END:DAYLIGHT$r
 END:VTIMEZONE$r
 EOF
@@ -470,15 +470,17 @@ EOF
 	print "DESCRIPTION:", $row->{'id'}, "$r\n";
 	print "LOCATION:", $row->{'location'}, "$r\n";
 	print "CATEGORIES:Education$r\n";
+	print "TRANSP:OPAQUE$r\n";
 	#print "DTSTART;$tzn$first,$starttime), "$r\n";
 	#print "DTEND;$tzn$first,$stoptime), "$r\n";
-	print "DTSTART;\"$tzn\":", $first."T".$starttime, "00$r\n";
-	print "DTEND;\"$tzn\":", $first."T".$stoptime, "00$r\n";
+	print "DTSTART;TZID=\"$tzn\":", $first."T".$starttime, "00$r\n";
+	print "DTEND;TZID=\"$tzn\":", $first."T".$stoptime, "00$r\n";
 	$row->{'days'} =~ s/([MTWRFS])/,$days{$1}/g;
 	$row->{'days'} =~ s/^,//;
-	print "RRULE:FREQ=WEEKLY;UNTIL=$stopdate;BYDAY=", $row->{'days'}, "$r\n";
+	$stopdate++;
+	print "RRULE:FREQ=WEEKLY;UNTIL=${stopdate}T000000Z;BYDAY=", $row->{'days'}, "$r\n";
 	foreach my $day (@day) {
-	    print("\"EXDATE\";$tzn$day$r\n");
+	    print("EXDATE;TZID=\"$tzn\":${day}T$starttime$r\n");
 	}
 	print "ATTENDEE;CN=".$row->{'instructor'}.";RSVP=FALSE;PARTSTAT=ACCEPTED;ROLE=CHAIR:mailto:" . (get_faculty_email($row->{'instructor'}) || "fake\@ddress"), "$r\n";
 	print "ATTENDEE;CN=".$opts{'name'}.";RSVP=FALSE;PARTSTAT=ACCEPTED;ROLE=REQ-PARTICIPANT:mailto:" . ($opts{'email'} || "fake\@ddress"), "$r\n" if $opts{'name'};