gforth/proxy.fs - diff

Return to proxy.fs CVS log

Up to [gforth] / gforth

version 1.2, 2000/11/19 22:45:38	version 1.3, 2000/11/19 22:47:54
Line 27 Create crlf #cr c, #lf c,	Line 27 Create crlf #cr c, #lf c,

: request ( host u request u proxy-host u port -- fid )	: request ( host u request u proxy-host u port -- fid )
open-socket >r	open-socket >r
2dup type ." HTTP/1.1" cr
r@ write-file throw s" HTTP/1.1" r@ writeln	r@ write-file throw s" HTTP/1.1" r@ writeln
s" Host: " r@ write-file throw r@ writeln	s" Host: " r@ write-file throw r@ writeln
." Connection: close" cr
s" Connection: close" r@ writeln	s" Connection: close" r@ writeln
s" User-Agent: " r@ write-file throw	s" User-Agent: " r@ write-file throw
User-Agent @ IF	User-Agent @ IF