More iCal crap

[tpope-extra.git] / perl / schedproc

diff --git a/perl/schedproc b/perl/schedproc
index a7c74e0b1641ce4df4715ab8ac894d05af7498c6..96b607e32cfe45e24f60e6e2e46a431d9e0af317 100755 (executable)
--- 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
@@ -477,9 +477,10 @@ EOF
        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;TZID=\"$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'};