 ;; (defn hotels [location]
 ;;   (let [sid (extract-sid (get-session))
 ;; 	searchid (extract-searchid (search-hotels sid location))]
-;;     (parse-xml-str (get-hotels sid searchid))))+;;     (parse-xml-str (get-hotels sid searchid))))

;; 		      "username" "password")))))

;; (defn- get-session []
;; (request 
;; "http://www.kayak.com/k/ident/apisession?token=3PWihQksZae68TfQ0jnlyA"))

;; (defn- extract-sid [x]

                                     (if (= "https" (.getScheme u))
                                       443
                                       80))]

                 (when-not (.getAuthScheme auth-state)
                   (.setCredentials (.getAttribute context ClientContext/CREDS_PROVIDER)
				    (AuthScope. target-host target-port) creds)
