--- gforth/proxy.fs 2000/11/19 21:42:05 1.1 +++ gforth/proxy.fs 2000/11/19 23:03:24 1.4 @@ -27,10 +27,8 @@ Create crlf #cr c, #lf c, : request ( host u request u proxy-host u port -- fid ) open-socket >r - 2dup type ." HTTP/1.1" cr r@ write-file throw s" HTTP/1.1" r@ writeln s" Host: " r@ write-file throw r@ writeln - ." Connection: close" cr s" Connection: close" r@ writeln s" User-Agent: " r@ write-file throw User-Agent @ IF @@ -69,6 +67,7 @@ Forth definitions response: Allow: response: Age: +response: Accept-Ranges: response: Cache-Control: response: Connection: response: Proxy-Connection: @@ -83,10 +82,11 @@ response: Content-Type: response: Date: response: ETag: response: Expires: -response: Last-modified: +response: Last-Modified: response: Location: response: Mime-Version: response: Proxy-Authenticate: +response: Proxy-Connection: response: Public: response: Retry-After: response: Server: @@ -210,6 +210,6 @@ Vocabulary systems also systems definitions -redirect: bigforth www.paysan.nom"http://www.jwdt.com/~paysan/" +redirect: bigforth www.jwdt.com"http://www.jwdt.com/~paysan/" previous previous definitions