projects
/
tpope-extra.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
aa66f2d
)
AAAAAAAAAARGH
author
Tim Pope
<code@tpope.net>
Wed, 24 Aug 2005 08:21:51 +0000
(08:21 +0000)
committer
Tim Pope
<code@tpope.net>
Wed, 24 Aug 2005 08:21:51 +0000
(08:21 +0000)
perl/schedproc
patch
|
blob
|
history
diff --git
a/perl/schedproc
b/perl/schedproc
index 96b607e32cfe45e24f60e6e2e46a431d9e0af317..ec8d99cc6031b0f6bf2fe09ed66945ab32190e74 100755
(executable)
--- a/
perl/schedproc
+++ b/
perl/schedproc
@@
-477,7
+477,7
@@
EOF
print "DTEND;TZID=\"$tzn\":", $first."T".$stoptime, "00$r\n";
$row->{'days'} =~ s/([MTWRFS])/,$days{$1}/g;
$row->{'days'} =~ s/^,//;
- $stopdate++
+ $stopdate++
;
print "RRULE:FREQ=WEEKLY;UNTIL=${stopdate}T000000Z;BYDAY=", $row->{'days'}, "$r\n";
foreach my $day (@day) {
print("EXDATE;TZID=\"$tzn\":${day}T$starttime$r\n");