I'm having trouble passing header strings properly, and I'd like some advice on how to proceed. Below is a capture of what is being sent, versus what I am trying to send. I won't include all code, only what I think is necessary. If I have omitted something important, please let me know. How could I discover what the cause of the discrepancy is? Thanks again for any feedback.
Here's a snippet from the header, what is being sent. > GET /resourceList.do?form=webForwardsForm&readOnly=false&policyLaunching=true&resourcePrefix=webForwards&path=%2FshowWebForwards.do&messageResourcesKey=webForwards&actionPath=%2FresourceList.do HTTP/1.1 User-Agent: Mozilla/4.0 (compatible; MSIE 5.01; Windows NT 5.0) Host: 172.16.1.18 Accept: */* Accept-Encoding: gzip,deflate Referer: https://172.16.1.18/showWebForwards.do Cookie: domainLogonTicket=SLXa10225c6e8389b3eb181e3df5dcf08de; logonTicket=SLXa10225c6e8389b3eb181e3df5dcf08de; lbTrack=OAIAGHMWQDOLYYTJEXQHXBYPXVALXNREKIHAYYRZSOGYJLUYNNCJ--------; SSLX_SSESHID=bvgx4mggmy6v ^ compare this to CurlHttpHeaders Here's the part of the source I think is relevant > launch :: String -> String -> IO (Either String String) > launch user pass = do > -- Initialize Curl > curl <- initCurl > -- Sequence of steps > let steps = do > curlResp curl urlInitial method_GET > curlResp curl urlLogin $ loginOpts user pass > curlResp curl urlFlash1 method_GET > curlResp curl urlFlash2 method_GET > curlResp curl urlGetResource resourceOpts <---- here's where the problem is revealed > runErrorT steps > main :: IO () > main = do > -- username and password > user:pass:_ <- getArgs > -- Launch webpage > resp <- launch user pass > -- Response comes as Either String String > -- You have to handle each case > case resp of > Left err -> print err > Right body -> putStrLn body > resourceOpts :: [CurlOption] > resourceOpts = > [ CurlHttpHeaders > [ "Accept text/javascript, text/html, application/xml, text/xml, */*" > , "Accept-Language en-us,en;q=0.5" > , "Accept-Charset ISO-8859-1,utf-8;q=0.7,*;q=0.7" > , "Keep-Alive 115" > , "Connection keep-alive" > , "X-Requested-With XMLHttpRequest" > , "X-Prototype-Version 1.6.0.3" > ] > , CurlEncoding "gzip,deflate" > , CurlReferer "https://172.16.1.18/showWebForwards.do"; > ]
_______________________________________________ Haskell-Cafe mailing list [email protected] http://www.haskell.org/mailman/listinfo/haskell-cafe
