home *** CD-ROM | disk | FTP | other *** search
/ Practical Programming in Tcl & Tk (4th Edition) / TCLBOOK4.BIN / pc / exsource.old / 17_11.tcl < prev    next >
Text File  |  2003-04-15  |  300b  |  19 lines
  1. #
  2. # Example 17-11
  3. # HttpCopyDone is used with fcopy.
  4. #
  5.  
  6. proc HttpCopyDone {url bytes {error {}}} {
  7.     upvar #0 $url state
  8.     if {[string length $error]} {
  9.         set state(status) error
  10.         lappend state(headers) [list error $error]
  11.     } else {
  12.         set state(status) ok
  13.     }
  14.     close $state(sock)
  15.     close $state(fd)
  16. }
  17.  
  18.  
  19.