home *** CD-ROM | disk | FTP | other *** search
/ Practical Programming in Tcl & Tk (4th Edition) / TCLBOOK4.BIN / mac / exsource.old / 17_12.tcl < prev    next >
Text File  |  2003-04-15  |  621b  |  32 lines
  1. #
  2. # Example 17-12
  3. # Downloading files with http::geturl.
  4. #
  5.  
  6. #!/usr/local/bin/tclsh8.4
  7. if {$argc < 2} {
  8.     puts stderr "Usage: $argv0 url file"
  9.     exit 1
  10. }
  11. package require http
  12. set url [lindex $argv 0]
  13. set file [lindex $argv 1]
  14. set out [open $file w]
  15. proc progress {token total current} {
  16.     puts -nonewline "."
  17. }
  18. http::config -proxyhost webcache.eng -proxyport 8080
  19. set token [http::geturl $url -progress progress \
  20.     -headers {Pragma no-cache} -channel $out]
  21. close $out
  22. # Print out the return header information
  23. puts ""
  24. upvar #0 $token state
  25. puts $state(http)
  26. foreach {key value} $state(meta) {
  27.     puts "$key: $value"
  28. }
  29. exit 0
  30.  
  31.  
  32.