home *** CD-ROM | disk | FTP | other *** search
/ Columbia Kermit / kermit.zip / ckscripts / deleteold < prev    next >
Encoding:
Text File  |  2020-01-01  |  970 b   |  22 lines
  1. ; Client deletes all files in the server's current directory
  2. ; that are more than 100 days old.  It's easy to delete local
  3. ; files of a given age:
  4. ;
  5. ;    delete /before:-100days *.*
  6. ;
  7. ; Here's how to delete remote ones.  Assume a connection already
  8. ; exists to a Kermit server and the server's current directory is
  9. ; the one you want to delete files from.
  10.  
  11. .today := \fmjd()                   ; Today's date as Modified Julian Date
  12. query kermit files(*.*)             ; Have server make file list
  13. while true {                                  ; Loop through file list
  14.     query kermit nextfile()                   ; Get next file
  15.     if equal "\v(query)" "" break             ; No more - done
  16.     .name := \v(query)                        ; Remember its name
  17.     query kermit date(\m(name))               ; Get the file date
  18.     .age ::= \m(today) - \fmjd(\v(query))     ; Get file's age in days
  19.     if >= \m(age) 100 remote delete \m(name)  ; Delete if 100 days old
  20. }
  21.  
  22.