home *** CD-ROM | disk | FTP | other *** search
- /* this cleans up old reminders */
-
-
- 'date | execio stem today.'
- parse var today.1 day todaymo'-'todayday'-'todayyr remtime .
- parse var remtime remhrs':'remmin':'remsec
- 'list hd:reminders/* | execio stem files.'
-
- do i = 2 to files.0-1
- parse var files.i file'%'num .
- if file = "everyday" | file = "Monday" | file = "Tuesday" |,
- file = "Wednesday" | file = "Thursday" | file = "Thursday" |,
- file = "Friday" then iterate
- parse var file month'-'day'-'yr
- if yr < todayyr then "erase hd:reminders/"file||"*"||num
- else if yr = todayyr & month < todaymo then "erase hd:reminders/"file||"*"||num
- else if yr = todayyr & month = todaymo & day < todayday then ,
- "erase hd:reminders/"file||"*"||num
- end
-