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" ]