twitter-experimenting.rkt

#lang racket

(require net/url
         #;html
         (planet neil/htmlprag))

#;(string->url "https://dev.twitter.com/oauth/request_token")

(define the-port
  (post-pure-port
   (string->url "https://twitter.com/oauth/request_token")
   #""
   (list "oauth_nonce: uuhehnoteohhhohnoteuhs"
         "oauth_callback: http%3A%2F%2Fmyapp.com%3A3005%2Ftwitter%2Fprocess_callback"
         "oauth_signature_method: HMAC-SHA1"
         "oauth_timestamp: 1300228849"
         "oauth_consumer_key: OqEqJeafRSF11jBMStrZz"
         "oauth_signature: Pc%2BMLdv028fxCErFyi8KXFM%2BddU%3D"
         "oauth_version: 1.0")
   ))


(regexp-match #px".*" the-port)

#;(read-html the-port)

#;(read-html-as-xml the-port)


#;(html->sxml the-port)