[Haskell-cafe] playing around with network.curl - redub
My current problem is how to pass around the cookie jar. I need to gather cookies, while establishing a session. Could someone provide an example? I've messed about with CurlCookieFile and CurlCookieJar, to no avail. I'll provide my failed attempt if needed. I'm using https, if it makes a difference. ___ Haskell-Cafe mailing list Haskell-Cafe@haskell.org http://www.haskell.org/mailman/listinfo/haskell-cafe
[Haskell-cafe] playing around with network.curl
I'm using this tutorial as a guide http://flygdynamikern.blogspot.com/2009/03/extended-sessions-with-haskell-curl.html github has changed since this was posted, but I have managed a successful login. Now I am faced with dealing with a re-direct. I found this constructor CurlFollowLocation Bool on this page http://hackage.haskell.org/packages/archive/curl/1.3.5/doc/html/Network-Curl-Opts.html It seems to do what I want, But I am not clear on how to use it. Could someone provide an example? Thanks. End goal is to snarf the cookie that establishes the session. ___ Haskell-Cafe mailing list Haskell-Cafe@haskell.org http://www.haskell.org/mailman/listinfo/haskell-cafe
Re: [Haskell-cafe] playing around with network.curl
Hi Michael, On Wed, Oct 20, 2010 at 6:19 PM, Michael Litchard mich...@schmong.org wrote: I'm using this tutorial as a guide http://flygdynamikern.blogspot.com/2009/03/extended-sessions-with-haskell-curl.html github has changed since this was posted, but I have managed a successful login. Now I am faced with dealing with a re-direct. I found this constructor CurlFollowLocation Bool on this page http://hackage.haskell.org/packages/archive/curl/1.3.5/doc/html/Network-Curl-Opts.html It seems to do what I want, But I am not clear on how to use it. Could someone provide an example? Thanks. End goal is to snarf the cookie that establishes the session. I think it is what you're probably expecting. Just add CurlFollowLocation True to the list of options. Those get applied by setopts in main. opts = [ CurlCookieJar cookies, CurlFollowLocation True ] I've used that before with no problems. Do you need a complete example? Paulo ___ Haskell-Cafe mailing list Haskell-Cafe@haskell.org http://www.haskell.org/mailman/listinfo/haskell-cafe
Re: [Haskell-cafe] playing around with network.curl
I'm afraid I'll need a more complete example. When I try to modify the code above (after correcting the conditional tests), I get the following: * About to connect() to github.com port 443 (#0) * Trying 207.97.227.239... * connected * Connected to github.com (207.97.227.239) port 443 (#0) * found 142 certificates in /etc/ssl/certs/ca-certificates.crt *server certificate verification SKIPPED *common name: *.github.com (matched) *server certificate expiration date OK *server certificate activation date OK *certificate public key: RSA *certificate version: #3 *subject: O=*.github.com,OU=Domain Control Validated,CN=*.github.com *start date: Fri, 11 Dec 2009 05:02:36 GMT *expire date: Thu, 11 Dec 2014 05:02:36 GMT *issuer: C=US,ST=Arizona,L=Scottsdale,O=GoDaddy.com\, Inc.,OU=http://certificates.godaddy.com/repository,CN=Go Daddy Secure Certification Authority,serialNumber=07969287 *compression: NULL *cipher: AES-128-CBC *MAC: SHA1 GET /session HTTP/1.1 Host: github.com Accept: */* HTTP/1.1 302 Found Server: nginx/0.7.67 Date: Thu, 21 Oct 2010 01:20:13 GMT Content-Type: text/html; charset=utf-8 Connection: keep-alive Status: 302 Found Location: http://github.com/session X-Runtime: 0ms Content-Length: 91 * Added cookie _github_ses=BAh7BiIKZmxhc2hJQzonQWN0aW9uQ29udHJvbGxlcjo6Rmxhc2g6OkZsYXNoSGFzaHsABjoKQHVzZWR7AA%3D%3D--884981fc5aa85daf318eeff084d98e2cff92578f for domain github.com, path /, expire 1577865600 Set-Cookie: _github_ses=BAh7BiIKZmxhc2hJQzonQWN0aW9uQ29udHJvbGxlcjo6Rmxhc2g6OkZsYXNoSGFzaHsABjoKQHVzZWR7AA%3D%3D--884981fc5aa85daf318eeff084d98e2cff92578f; path=/; expires=Wed, 01 Jan 2020 08:00:00 GMT; HttpOnly Cache-Control: no-cache * Ignoring the response-body * Connection #0 to host github.com left intact * Issue another request to this URL: 'http://github.com/session' * About to connect() to github.com port 80 (#1) * Trying 207.97.227.239... * connected * Connected to github.com (207.97.227.239) port 80 (#1) GET /session HTTP/1.1 Host: github.com Accept: */* Cookie: _github_ses=BAh7BiIKZmxhc2hJQzonQWN0aW9uQ29udHJvbGxlcjo6Rmxhc2g6OkZsYXNoSGFzaHsABjoKQHVzZWR7AA%3D%3D--884981fc5aa85daf318eeff084d98e2cff92578f HTTP/1.1 302 Found Server: nginx/0.7.67 Date: Thu, 21 Oct 2010 01:20:13 GMT Content-Type: text/html; charset=utf-8 Connection: keep-alive Status: 302 Found Location: http://github.com/login X-Runtime: 1ms Content-Length: 89 * Replaced cookie _github_ses=BAh7BzoRbG9jYWxlX2d1ZXNzMCIKZmxhc2hJQzonQWN0aW9uQ29udHJvbGxlcjo6Rmxhc2g6OkZsYXNoSGFzaHsABjoKQHVzZWR7AA%3D%3D--e10506e0f6935897cafe4f56774e20aa35e579a5 for domain github.com, path /, expire 1577865600 Set-Cookie: _github_ses=BAh7BzoRbG9jYWxlX2d1ZXNzMCIKZmxhc2hJQzonQWN0aW9uQ29udHJvbGxlcjo6Rmxhc2g6OkZsYXNoSGFzaHsABjoKQHVzZWR7AA%3D%3D--e10506e0f6935897cafe4f56774e20aa35e579a5; path=/; expires=Wed, 01 Jan 2020 08:00:00 GMT; HttpOnly Cache-Control: no-cache * Ignoring the response-body * Connection #1 to host github.com left intact * Issue another request to this URL: 'http://github.com/login' * Re-using existing connection! (#1) with host github.com * Connected to github.com (207.97.227.239) port 80 (#1) GET /login HTTP/1.1 Host: github.com Accept: */* Cookie: _github_ses=BAh7BzoRbG9jYWxlX2d1ZXNzMCIKZmxhc2hJQzonQWN0aW9uQ29udHJvbGxlcjo6Rmxhc2g6OkZsYXNoSGFzaHsABjoKQHVzZWR7AA%3D%3D--e10506e0f6935897cafe4f56774e20aa35e579a5 HTTP/1.1 302 Found Server: nginx/0.7.67 Date: Thu, 21 Oct 2010 01:20:13 GMT Content-Type: text/html; charset=utf-8 Connection: keep-alive Status: 302 Found Location: https://github.com/login X-Runtime: 0ms Content-Length: 90 Cache-Control: no-cache * Ignoring the response-body * Connection #1 to host github.com left intact * Issue another request to this URL: 'https://github.com/login' * Re-using existing connection! (#0) with host github.com * Connected to github.com (207.97.227.239) port 443 (#0) GET /login HTTP/1.1 Host: github.com Accept: */* Cookie: _github_ses=BAh7BzoRbG9jYWxlX2d1ZXNzMCIKZmxhc2hJQzonQWN0aW9uQ29udHJvbGxlcjo6Rmxhc2g6OkZsYXNoSGFzaHsABjoKQHVzZWR7AA%3D%3D--e10506e0f6935897cafe4f56774e20aa35e579a5 HTTP/1.1 200 OK Server: nginx/0.7.67 Date: Thu, 21 Oct 2010 01:20:13 GMT Content-Type: text/html; charset=utf-8 Connection: keep-alive Status: 200 OK ETag: 00d0a01a93453f641cecb212b6487496 X-Runtime: 10ms Content-Length: 15622 * Added cookie csrf_id=f3ff252d5245dc4da10f0c75badbd10c for domain github.com, path /, expire 0 Set-Cookie: csrf_id=f3ff252d5245dc4da10f0c75badbd10c; path=/ Cache-Control: private, max-age=0, must-revalidate * Connection #0 to host github.com left intact *** Exception: Failed to log in: CurlOK -- HTTP/1.1 302 Found *Main * Closing connection #1 * Closing connection #0 Here's what the code looks like. Notice there's a condition test for a Status of 302, but that test fails where it should have succeeded. Removing the CurlFollowLOcation
Re: [Haskell-cafe] playing around with network.curl
On Wed, Oct 20, 2010 at 8:31 PM, Michael Litchard mich...@schmong.org wrote: I'm afraid I'll need a more complete example. When I try to modify the code above (after correcting the conditional tests), I get the following: * About to connect() to github.com port 443 (#0) * Trying 207.97.227.239... * connected * Connected to github.com (207.97.227.239) port 443 (#0) * found 142 certificates in /etc/ssl/certs/ca-certificates.crt * server certificate verification SKIPPED * common name: *.github.com (matched) * server certificate expiration date OK * server certificate activation date OK * certificate public key: RSA * certificate version: #3 * subject: O=*.github.com,OU=Domain Control Validated,CN=*.github.com * start date: Fri, 11 Dec 2009 05:02:36 GMT * expire date: Thu, 11 Dec 2014 05:02:36 GMT * issuer: C=US,ST=Arizona,L=Scottsdale,O=GoDaddy.com\, Inc.,OU=http://certificates.godaddy.com/repository,CN=Go Daddy Secure Certification Authority,serialNumber=07969287 * compression: NULL * cipher: AES-128-CBC * MAC: SHA1 GET /session HTTP/1.1 Host: github.com Accept: */* HTTP/1.1 302 Found Server: nginx/0.7.67 Date: Thu, 21 Oct 2010 01:20:13 GMT Content-Type: text/html; charset=utf-8 Connection: keep-alive Status: 302 Found Location: http://github.com/session X-Runtime: 0ms Content-Length: 91 * Added cookie _github_ses=BAh7BiIKZmxhc2hJQzonQWN0aW9uQ29udHJvbGxlcjo6Rmxhc2g6OkZsYXNoSGFzaHsABjoKQHVzZWR7AA%3D%3D--884981fc5aa85daf318eeff084d98e2cff92578f for domain github.com, path /, expire 1577865600 Set-Cookie: _github_ses=BAh7BiIKZmxhc2hJQzonQWN0aW9uQ29udHJvbGxlcjo6Rmxhc2g6OkZsYXNoSGFzaHsABjoKQHVzZWR7AA%3D%3D--884981fc5aa85daf318eeff084d98e2cff92578f; path=/; expires=Wed, 01 Jan 2020 08:00:00 GMT; HttpOnly Cache-Control: no-cache * Ignoring the response-body * Connection #0 to host github.com left intact * Issue another request to this URL: 'http://github.com/session' * About to connect() to github.com port 80 (#1) * Trying 207.97.227.239... * connected * Connected to github.com (207.97.227.239) port 80 (#1) GET /session HTTP/1.1 Host: github.com Accept: */* Cookie: _github_ses=BAh7BiIKZmxhc2hJQzonQWN0aW9uQ29udHJvbGxlcjo6Rmxhc2g6OkZsYXNoSGFzaHsABjoKQHVzZWR7AA%3D%3D--884981fc5aa85daf318eeff084d98e2cff92578f HTTP/1.1 302 Found Server: nginx/0.7.67 Date: Thu, 21 Oct 2010 01:20:13 GMT Content-Type: text/html; charset=utf-8 Connection: keep-alive Status: 302 Found Location: http://github.com/login X-Runtime: 1ms Content-Length: 89 * Replaced cookie _github_ses=BAh7BzoRbG9jYWxlX2d1ZXNzMCIKZmxhc2hJQzonQWN0aW9uQ29udHJvbGxlcjo6Rmxhc2g6OkZsYXNoSGFzaHsABjoKQHVzZWR7AA%3D%3D--e10506e0f6935897cafe4f56774e20aa35e579a5 for domain github.com, path /, expire 1577865600 Set-Cookie: _github_ses=BAh7BzoRbG9jYWxlX2d1ZXNzMCIKZmxhc2hJQzonQWN0aW9uQ29udHJvbGxlcjo6Rmxhc2g6OkZsYXNoSGFzaHsABjoKQHVzZWR7AA%3D%3D--e10506e0f6935897cafe4f56774e20aa35e579a5; path=/; expires=Wed, 01 Jan 2020 08:00:00 GMT; HttpOnly Cache-Control: no-cache * Ignoring the response-body * Connection #1 to host github.com left intact * Issue another request to this URL: 'http://github.com/login' * Re-using existing connection! (#1) with host github.com * Connected to github.com (207.97.227.239) port 80 (#1) GET /login HTTP/1.1 Host: github.com Accept: */* Cookie: _github_ses=BAh7BzoRbG9jYWxlX2d1ZXNzMCIKZmxhc2hJQzonQWN0aW9uQ29udHJvbGxlcjo6Rmxhc2g6OkZsYXNoSGFzaHsABjoKQHVzZWR7AA%3D%3D--e10506e0f6935897cafe4f56774e20aa35e579a5 HTTP/1.1 302 Found Server: nginx/0.7.67 Date: Thu, 21 Oct 2010 01:20:13 GMT Content-Type: text/html; charset=utf-8 Connection: keep-alive Status: 302 Found Location: https://github.com/login X-Runtime: 0ms Content-Length: 90 Cache-Control: no-cache * Ignoring the response-body * Connection #1 to host github.com left intact * Issue another request to this URL: 'https://github.com/login' * Re-using existing connection! (#0) with host github.com * Connected to github.com (207.97.227.239) port 443 (#0) GET /login HTTP/1.1 Host: github.com Accept: */* Cookie: _github_ses=BAh7BzoRbG9jYWxlX2d1ZXNzMCIKZmxhc2hJQzonQWN0aW9uQ29udHJvbGxlcjo6Rmxhc2g6OkZsYXNoSGFzaHsABjoKQHVzZWR7AA%3D%3D--e10506e0f6935897cafe4f56774e20aa35e579a5 HTTP/1.1 200 OK Server: nginx/0.7.67 Date: Thu, 21 Oct 2010 01:20:13 GMT Content-Type: text/html; charset=utf-8 Connection: keep-alive Status: 200 OK ETag: 00d0a01a93453f641cecb212b6487496 X-Runtime: 10ms Content-Length: 15622 * Added cookie csrf_id=f3ff252d5245dc4da10f0c75badbd10c for domain github.com, path /, expire 0 Set-Cookie: csrf_id=f3ff252d5245dc4da10f0c75badbd10c; path=/ Cache-Control: private, max-age=0, must-revalidate * Connection #0 to host github.com left intact *** Exception: Failed to log in: CurlOK -- HTTP/1.1 302 Found *Main * Closing connection #1 * Closing
