home *** CD-ROM | disk | FTP | other *** search
/ Practical Programming in Tcl & Tk (4th Edition) / TCLBOOK4.BIN / pc / exsource.old / 17_8.tcl < prev    next >
Text File  |  2003-04-15  |  298b  |  18 lines
  1. #
  2. # Example 17-8
  3. # Using Http_Head.
  4. #
  5.  
  6. set url http://www.sun.com/
  7. set status [Http_Head $url]
  8. #=> eof
  9. upvar #0 $url state
  10. array set info $state(headers)
  11. parray info
  12. info(http)                        HTTP/1.0 200 OK
  13. info(server)                        Apache/1.1.1
  14. info(last-modified)                        Nov ...
  15. info(content-type)                        text/html
  16.  
  17.  
  18.