projects
/
tpope-extra.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
AAAAAAAAAARGH
[tpope-extra.git]
/
perl
/
schedproc
diff --git
a/perl/schedproc
b/perl/schedproc
index de2e0e0b33a1e80be7d639b5b828e0b76365390a..ec8d99cc6031b0f6bf2fe09ed66945ab32190e74 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
RRULE:FREQ=YEARLY;INTERVAL=1;BYDAY=1SU;BYMONTH=4$r
TZOFFSETFROM:-0600$r
TZOFFSETTO:-0500$r
-TZNAME:Daylight Saving
s
Time$r
+TZNAME:Daylight Saving Time$r
END:DAYLIGHT$r
END:VTIMEZONE$r
EOF
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 "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,$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/^,//;
$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) {
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'};
}
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'};