home *** CD-ROM | disk | FTP | other *** search
/ Amiga Elysian Archive / AmigaElysianArchive.iso / prog / arexx / rxarplib.lha / rexx / CleanReminders.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1988-10-19  |  728 b   |  20 lines

  1. /* this cleans up old reminders */
  2.  
  3.  
  4. 'date | execio stem today.'
  5. parse var today.1 day todaymo'-'todayday'-'todayyr remtime .
  6. parse var remtime remhrs':'remmin':'remsec
  7. 'list hd:reminders/* | execio stem files.'
  8.  
  9. do i = 2 to files.0-1
  10.    parse var files.i file'%'num .
  11.    if file = "everyday" | file = "Monday" | file = "Tuesday" |,
  12.       file = "Wednesday" | file = "Thursday" | file = "Thursday" |,
  13.       file = "Friday" then iterate
  14.    parse var file month'-'day'-'yr
  15.    if yr < todayyr then "erase hd:reminders/"file||"*"||num
  16.    else if yr = todayyr & month < todaymo then "erase hd:reminders/"file||"*"||num
  17.    else if yr = todayyr & month = todaymo & day < todayday then ,
  18.         "erase hd:reminders/"file||"*"||num
  19. end
  20.