home *** CD-ROM | disk | FTP | other *** search
/ Practical Programming in Tcl & Tk (4th Edition) / TCLBOOK4.BIN / pc / sdarchive / Update.tcl < prev   
Text File  |  2003-04-15  |  648b  |  26 lines
  1. # Utility to check all the Starkits against the
  2. # sdarchive using the starsync facilities in sdx
  3. # I run this manually by starting tclkit, then
  4. # sourcing sdx.kit.  That gives a little command
  5. # propt.  Type anything there to get to the main
  6. # Tcl prompt.  Source this file, then run UpdateAll
  7.  
  8. set server http://mini.net/sync.cgi
  9. package require starsync
  10.  
  11. proc Update {} {
  12.     foreach f [glob *.kit] {
  13.         set catalog [starsync::request $::server $f]
  14.     puts $f\n[starsync::summary $catalog]
  15.     update
  16.     }
  17. }
  18.  
  19. proc UpdateAll {} {
  20.     foreach dir {applications doc games packages} {
  21.         cd $dir
  22.     Update
  23.     cd ..
  24.     }
  25. }
  26.