| 23,7 → 23,7 |
|---|
| TIMEOUT = 500 ; in 1/100 s |
| |
| __DEBUG__ = 1 |
| __DEBUG_LEVEL__ = 2 |
| __DEBUG_LEVEL__ = 1 |
| |
| |
| format MS COFF |
| 480,6 → 480,8 |
|---|
| port dd ? |
| endl |
| |
| DEBUGF 1, "HTTP POST (%s).\n", [URL] |
| |
| and [flags], 0xff00 ; filter out invalid flags |
| |
| pusha |
| 502,6 → 504,7 |
|---|
| |
| ; Connect to the other side. |
| .open_new: |
| DEBUGF 1, "Opening new connection.\n" |
| stdcall open_connection, [hostname], [port] |
| test eax, eax |
| jz .error |
| 600,6 → 603,7 |
|---|
| HTTP_init_buffer [buffer], [socketnum], [flags] |
| popa |
| mov eax, [buffer] ; return buffer ptr |
| DEBUGF 1, "HTTP POST complete.\n" |
| ret |
| |
| .error: |
| 1913,9 → 1917,9 |
|---|
| .length = $ - str_post_ct |
| str_proxy_auth db 13, 10, 'Proxy-Authorization: Basic ' |
| .length = $ - str_proxy_auth |
| str_close db 'User-Agent: KolibriOS libHTTP/1.1', 13, 10, 'Connection: Close', 13, 10, 13, 10 |
| str_close db 'User-Agent: KolibriOS libHTTP/1.1', 13, 10, 'Connection: close', 13, 10, 13, 10 |
| .length = $ - str_close |
| str_keep db 'User-Agent: KolibriOS libHTTP/1.1', 13, 10, 'Connection: Keepalive', 13, 10, 13, 10 |
| str_keep db 'User-Agent: KolibriOS libHTTP/1.1', 13, 10, 'Connection: keep-alive', 13, 10, 13, 10 |
| .length = $ - str_keep |
| |
| str_http db 'http://', 0 |