TCL HTTP가 게시물 요청을 보낼 헤더를 설정했습니다.

Question

전 tcl을 처음 접했습니다.

게시 요청을 서버로 보내려고합니다. 사람들은 내가 보내려고하고있는 헤더입니다

"POST test HTTP/1.1" 
"Content-Type:application/x-www-form-urlencoded" 
"keep-alive:true" 
"Authorization: Basic khjkjkhkhkfzxc" 
"client: amin" 
"Content-Length:10" 
"ggggsis" 

내 코드는 다음과 같습니다

set bs "Basic khjkjkhkhkfzxc" 
set hd [list Authorization $bs] 
set tk[http::geturl $url -headers $hd] 

set res [http::data $tk] 
http::cleanup $tk 

return $tk 

하지 않는 이유는이 작품? 내 실수는 어디 갔지? 그리고 그것을 고치는 방법?

귀하의 도움에 감사드립니다. 감사합니다

편집 : 내 요청을 표시하는 작은 서버 소켓을 생성하고 여기 게시물에 대한 나의 새로운 코드 :

여기

set bs "Basic gfhfghfdhgf" 
    set hd [list Authorization $bs] 
    set token [http::geturl $url -headers $hd -query [::http::formatQuery blabla blablo] -type "text/xml"] 
    puts "done" 
    set postStat [http::status $token] 
    set postResp [http::data $token] 
    puts $postResp 
    puts "ok" 
    puts $postStat 

가 표시되는 것입니다

Accepted connection from 127.0.0.1 at Fri Aug 1 10:51:22 EDT 2014 
POST /QUEUE/test HTTP/1.0 
Accept: */* 
Host: localhost:9999 
User-Agent: Tcl http client package 2.5.0 
Authorization: Basic ZGVmYXVsdCJkZWZhdWx0 
Content-Type: text/xml 
Content-Length: 13 

문제는 프로그램에서 게시물을 보내지 만 이동하지 않는다는 것입니다. set token [http::geturl $url -headers $hd -query [::http::formatQuery blabla blablo] -type "text/xml"],

그리고 httpget 쿼리가 전송되지 않습니다 ("done"이 인쇄되지 않고 쿼리의 내용이 서버 측에서 인쇄되지 않습니다)

내가 잘못한 것을 설명하면 죄송합니다.

감사

Answer 1

그것은 당신이 사전으로 보낼 헤더를 구축 오히려 간단 : 당신에 대해 얘기 기본 (콘텐츠 유형)에 의해 올바른 중 하나 또는 최고

dict set hdr Authorization "Basic [binary encode base64 ${user}:${pass}]" 
dict set hdr Client amin 

다른 헤더 처리 할 http 라이브러리에 남겨 둡니다.

당신은 헤더 및 데이터있어 일단,이 같은 POST 보내 : 당신은 단지 http::cleanup 명령 할 때까지 쿼리 결과에 액세스 할 수 있습니다

set token [http::geturl $theurl -headers $hdr -query $body] 
set responseBody [http::data $token] 
# Access headers here... 
http::cleanup $token 
# The token is no longer valid here 

참고가 호출된다 . 그 후에 결과는 사라집니다 (물론 변수에 저장하지 않는 한).

$body의 형식이 올바른지 확인하는 것이 좋습니다. http::formatQuery 명령은 다음을 위해 설계되었습니다.

set body [http::formatQuery fredKey fredValue daveKey daveValue foo bar]