Send-Http-Post

(send-http-post channel url mime body) -> null

Given a URL and a channel, send a HTTP request through the channel.

>> (define connection (tcp-connect "www.ephemeralsecurity.com" 80))
:: [stream 54A9A0]
>> (send-http-post connection "www.ephemeralsecurity.com/non-existent"

"application/x-www-form-urlencoded" "&test=foobar")

:: null
>> (wait connection)
:: connect
>> (wait connection)
     "<?xml version=\"1.0\" encoding=\"UTF-8\"?>\n<!DOCTYPE\n html PUBLIC \">
     -//W3C//DTD XHTML 1.0 Strict//EN\"\n \"http://www.w3.org/TR/xhtml1/DTD/
     xhtml1-strict.dtd\">\n<html\n  xmlns=\"http://www.w3.org/1999/xhtml\"\n
     xml:lang=\"en\"><head>\n<title>Test Application</title>\n <link\n rel=
     \"stylesheet\"\n href=\"style.css\"\n type=\"text/css\" />

[rest of response omitted for brevity]

    #f [primitive input]]]