Posted to tcl by colin at Sat Sep 25 02:50:51 GMT 2010view raw

  1. # direct domain to proxy-fetch an image
  2. package require Debug
  3. Debug define proxyimg 10
  4.  
  5. package provide ProxyImg 1.0
  6.  
  7. class create ::ProxyImg {
  8. superclass Direct
  9.  
  10. method done {r args} {
  11. Httpd Resume [Http Ok $r $mycontent $contenttype]
  12. }
  13.  
  14. method reader {r opts} {
  15. variable socket
  16. # read and interact with server
  17. # when finished, call [my done $r ...]
  18. }
  19.  
  20. method / {r args} {
  21. variable socket [socket "server"]
  22. fileevent $socket [list [self] reader $r $args]
  23. return [Httpd Suspend $r]
  24. }
  25.  
  26. constructor {args} {
  27. variable {*}[Site var? ProxyImg] ;# allow .ini file to modify defaults
  28. variable {*}$args
  29. next? {*}$args
  30. }
  31. }