version 1.2, 2000/11/19 22:45:38
|
version 1.4, 2000/11/19 23:03:24
|
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 |
Line 69 Forth definitions
|
Line 67 Forth definitions
|
|
|
response: Allow: |
response: Allow: |
response: Age: |
response: Age: |
|
response: Accept-Ranges: |
response: Cache-Control: |
response: Cache-Control: |
response: Connection: |
response: Connection: |
response: Proxy-Connection: |
response: Proxy-Connection: |
Line 83 response: Content-Type:
|
Line 82 response: Content-Type:
|
response: Date: |
response: Date: |
response: ETag: |
response: ETag: |
response: Expires: |
response: Expires: |
response: Last-modified: |
response: Last-Modified: |
response: Location: |
response: Location: |
response: Mime-Version: |
response: Mime-Version: |
response: Proxy-Authenticate: |
response: Proxy-Authenticate: |
|
response: Proxy-Connection: |
response: Public: |
response: Public: |
response: Retry-After: |
response: Retry-After: |
response: Server: |
response: Server: |