home *** CD-ROM | disk | FTP | other *** search
/ Columbia Kermit / kermit.zip / ckscripts / rawhide-kermit < prev    next >
Text File  |  2020-01-01  |  2KB  |  52 lines
  1. ; Red Hat Linux Rawhide Script - Daily RPM update from Rawhide.
  2. ;
  3. ; Only gets files that don't already exist on local disk (COLLISION DISCARD)
  4. ; Skips files I don't want (MGET selection patterns and /EXCEPT: clauses).
  5. ; /UPDATE could be used but buys little in this case because the filenames
  6. ; change when the files change.  Since the Rawhide connection is so slow, and
  7. ; since we are skipping the large majority of files, interactions with the
  8. ; FTP server must be kept to a minimum: thus no date or size checking and
  9. ; therefore also no recovery (sometimes a single SIZE or DATE command can
  10. ; take 30 seconds; if we did SIZE and DATE for each of 1500 files, that's
  11. ; 1500 minutes = a day and change).
  12. ;
  13. ; Requires C-Kermit 8.0 or K95 2.0 or later.
  14. ;
  15. ; Author: Vace Kundakci, Columbia University, July 2002.
  16.  
  17. ; set ftp debug on                       ; Uncomment to debug
  18.  
  19. set locus local                          ; Avoid K95 LOCUS popup
  20.  
  21. ; Make connection Red Hat Rawhide server:
  22. ;   /ANONYMOUS logs in anonymously
  23. ;   /NOINIT suppresses STRU F and MODE S commands,
  24. ;   which Red Hat server does not understand.
  25. ;
  26. ftp rawhide.redhat.com /noinit /anonymous
  27. if fail end 1 Connection failed
  28. if not \v(ftp_loggedin) end 1 Login failed
  29.  
  30. ftp cd /pub/redhat/linux/rawhide/i386/RedHat/RPMS/
  31. if fail end 1 CD to RPMS directory failed
  32.  
  33. ; Preferences for this session
  34.  
  35. set ftp dates on                        ; Preserve file dates
  36. set xfer display brief                  ; FTP-like transfer display
  37. ftp type binary                         ; Force binary mode
  38. set incomplete discard                  ; Discard incompletely received files
  39. set ftp collision discard               ; Don't download files I already have
  40.  
  41. ; SET TAKE ERROR ON makes the script quit automatically if any MGET fails,
  42. ; without having to put an IF ERROR clause after each MGET.  This won't
  43. ; work prior to C-Kermit 8.0.205 because an MGET that results in zero files
  44. ; downloaded erroneously fails.  (Ditto for K95 2.0.1 and earlier.)
  45. ;
  46. if >= \v(version) 800205 set take error on
  47.  
  48. ; Get the files...
  49.  
  50. mget *kermit*
  51. end 0
  52.