home *** CD-ROM | disk | FTP | other *** search
/ Columbia Kermit / kermit.zip / pub / scripts / ckermit / ftpsyncup < prev    next >
Encoding:
Text File  |  2020-01-01  |  2.5 KB  |  63 lines
  1. #!/usr/local/bin/kermit
  2. ;
  3. ; f t p s y n c u p
  4. ;
  5. ; Synchronizes a server directory tree from a local one.
  6. ;  . Local files that don't exist on the server are uploaded.
  7. ;  . Local files that exist on the server are uploaded only if newer.
  8. ;  . Local file timestamps are not preserved (FTP doesn't allow that).
  9. ;  . Server file permissions are not preserved 
  10. ;  . Ditto for file owner, group, ACLs, etc.
  11. ;  . Works across platforms via automatic text/binary mode switching.
  12. ;  . Works quietly but keeps a log of what it did.
  13. ;
  14. ; Directories are created on the server automatically as we descend through
  15. ; the local tree.
  16. ;
  17. ; Local file permissions are preserved on the server if the server and
  18. ; client are both Unix-based and the server permits SITE CHMOD.
  19. ;
  20. ; Server files that don't exist on the client are NOT deleted.
  21. ; It would be possible to script this, but ugly.  If this script was to
  22. ; handle only a single flat directory and not a directory tree, then it
  23. ; would be easy to delete extraneous files from the server (get file list
  24. ; with "mget /namelist:xxx *" then read filenames from xxx, "if exist"
  25. ; each one, ldelete it).
  26. ; 
  27. ; Requires: C-Kermit 80 or later or K95 2.0 or later
  28. ;
  29. ; F. da Cruz, Columbia University, 24 Feb 2003
  30.  
  31. ; Parameters - Change as needed (or turn them into arguments)
  32.  
  33. .host = kermit.columbia.edu         ; Change to desired host
  34. .rdirectory = kermit/g              ; Change to desired host directory
  35. .ldirectory = ~/g                   ; Change to desired local directory
  36. .logfile := \v(home)ftpsync.log     ; Change to desired logfile name
  37.  
  38. ; End of parameter defintions.
  39.  
  40. set transaction-log brief           ; Choose brief transaction-log format
  41. set exit warning off                ; No "OK to exit?" prompts
  42. set quiet on                        ; Suppress progress messages
  43.  
  44. lcd \m(ldirectory)                  ; CD to desired local directory
  45. if fail exit 1 "LCD failed - \m(ldirectory)" ; Make sure we did
  46.  
  47. ftp open \m(host) /anonymous        ; Open and check anonymous FTP connection
  48. if fail exit 1 Login failed
  49. if not \v(ftp_loggedin) exit 1 "Anonymous Login failed"
  50.  
  51. log transactions \m(logfile)        ; Start log
  52.  
  53. ftp cd \m(rdirectory)               ; CD to desired server directory
  54. if fail exit 1 "FTP CD failed - \m(rdirectory)"
  55.  
  56. ftp mput /recursive /update *       ; Put all local files in update mode
  57. if fail exit 1 "Mput failed"        ; Check for errors
  58.  
  59. bye                                 ; Disconnect from server
  60. close transaction-log               ; Close log
  61. cat \m(logfile)                     ; Display log
  62. exit 0
  63.