You can also try bzlib/http on planet - it can work with SSL via the following call: <div><br></div><blockquote class="webkit-indent-blockquote" style="margin: 0 0 0 40px; border: none; padding: 0px;"><div><span class="Apple-style-span" style="color: rgb(51, 51, 51); font-family: Verdana, sans-serif; font-size: 13px; line-height: 19px; "><pre class="scheme">
<code style="color: rgb(153, 102, 102); ">(require (planet bzlib/http/client))</code></pre></span></div><div><span class="Apple-style-span" style="color: rgb(51, 51, 51); font-family: Verdana, sans-serif; font-size: 13px; line-height: 19px; "><pre class="scheme">
<code style="color: rgb(153, 102, 102); ">(http-get &lt;url&gt; &lt;list-of-headers&gt;)</code></pre></span></div><div><span class="Apple-style-span" style="color: rgb(51, 51, 51); font-family: Verdana, sans-serif; font-size: 13px; line-height: 19px; "><pre class="scheme">
<code style="color: rgb(153, 102, 102); ">(http-post &lt;url&gt; &lt;data&gt; &lt;list-of-headers&gt;)</code></pre></span></div></blockquote><div>Hope this helps. </div><div>yc</div><div><br><div class="gmail_quote">On Sat, Jun 18, 2011 at 8:05 AM, Matthias Felleisen <span dir="ltr">&lt;<a href="mailto:matthias@ccs.neu.edu">matthias@ccs.neu.edu</a>&gt;</span> wrote:<br>
<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex;">I have modernized the language (not really necessary) and adapted<br>
the example so that it does something useful (not very) with a real https<br>
url. See below. It&#39;s all in one drracket buffer to make it more<br>
easily readable. I am sure you can split it up into separate files.<br>
<br>
Basically all exports documented at<br>
  <a href="http://docs.racket-lang.org/net/url.html?q=url#(def._((lib._net/url-structs..rkt)._url))" target="_blank">http://docs.racket-lang.org/net/url.html?q=url#(def._((lib._net/url-structs..rkt)._url))</a><br>
are available prefixed with ssl: and you can contact web sites via post and other<br>
methods as explained there.<br>
<br>
hth -- Matthias<br>
<br>
<br>
<br>
<br>
#lang racket/load<br>
<br>
(module ssl-url.ss racket<br>
<br>
  ;; From Eli Barzilay<br>
<br>
  ;; This will give us ssl:--- for an ssl version of url.ss, but still need an<br>
  ;; explicit port number specification since url.ss does not handle that<br>
  (require racket/unit<br>
           net/url-sig net/url-unit<br>
           net/tcp-sig net/tcp-unit<br>
           net/ssl-tcp-unit)<br>
<br>
  (define-values/invoke-unit (compound-unit/infer (import) (export url^) (link tcp@ url@))<br>
    (import)<br>
    (export url^))<br>
<br>
  (define ssl-tcp@ (make-ssl-tcp@ #f #f #f #f #f #f #f))<br>
<br>
  (define-values/invoke-unit<br>
    (compound-unit (import) (export URL)<br>
                   (link [((TCP : tcp^)) ssl-tcp@]<br>
                         [((URL : url^)) url@ TCP]))<br>
    (import)<br>
    (export (prefix ssl: url^)))<br>
<br>
  (provide (all-defined-out))<br>
  )<br>
<br>
(module sample-client racket/gui<br>
<br>
  ; (require &quot;ssl-url.ss&quot;)<br>
  (require &#39;ssl-url.ss)<br>
<br>
  (define LOGIN &quot;<a href="https://myneu.neu.edu/myneu/login/lock.gif" target="_blank">https://myneu.neu.edu/myneu/login/lock.gif</a>&quot;)<br>
<br>
  (ssl:call/input-url<br>
   (string-&gt;url LOGIN)<br>
   ssl:get-pure-port<br>
   (lambda (ip)<br>
     (define file &quot;login-image.gif&quot;)<br>
     (with-output-to-file file (lambda () (copy-port ip (current-output-port))) #:exists &#39;replace)<br>
     (make-object image-snip% file &#39;gif))))<br>
<br>
(require &#39;sample-client)<br>
<div><div></div><div class="h5"><br>
<br>
<br><br></div></div></blockquote></div><br>
</div>