serian/get-header.scm

Created April 29, 2010 11:51

Star () You must be signed in to star a gist
Fork () You must be signed in to fork a gist

Learn more about clone URLs
Clone this repository at <script src="https://gist.github.com/serian/383486.js"></script>
Save serian/383486 to your computer and use it in GitHub Desktop.

Download ZIP

gauche http レスポンスヘッダ

Raw

get-header.scm

	;Gacuhe
	;httpのレスポンスヘッダから任意のヘッダを文字列としてぬきだす
	;ここでは一つだけあるset-cookieヘッダ。
	(use rfc.http)
	(use text.tree)

	(receive (status header body)
	(http-get svr req-uri)
	(tree->string (car (string-split (tree->string (cdr (assoc "set-cookie" header))) ";"))))

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment