second try, still with errors on HTTPPost

> Hi,
> I dug at the HTTPPost test and rewrote the http post as follow:
>
>
> | requestStream post |
> requestStream := HyCharWriteStream on: (WriteStream on: ByteArray new).
> requestStream
> nextPutLine: 'POST /api/v2/auth_info HTTP/1.1';
> nextPutLine: 'Host: localhost:33300';
> nextPutLine: 'Content-Type: application/x-www-form-urlencoded';
> nextPutLine: 'Content-Length: 105';
> crlf;
> nextPutLine: 'apiKey=bd5fac882006c2510c246fcc10a51e935952b4e9&token=f47c5a1701409cbb7f22fa361ca5b3ccd2c13884&format=xml'.
> post := HTTPRequest readFrom: (HyOctetReadStream onStream: (ReadStream on: requestStream octetStream contents)).
> (HyHTTPClient forRequest: post) response messageBody entityBody asString.
>
> (note: localhost:33300 does a redirect to https://rpxnow.com)
>
> ...and now I'm having a "The object nil was not of the expected class String" :(
>
>
>

> Thanks Dale,
> I added host info to POST line... and that seems to be making the request (although I think that info should not be necessary (but i'm not sure about this)).
>
> |  requestStream post |
> requestStream := HyCharWriteStream on: (WriteStream on: ByteArray new).
> requestStream
> nextPutLine: 'POST 127.0.0.1:33300/api/v2/auth_info HTTP/1.1';
> nextPutLine: 'Host: 127.0.0.1:33300';
> nextPutLine: 'Content-Type: application/x-www-form-urlencoded';
> nextPutLine: 'Content-Length: 105';
> crlf;
> nextPutLine: 'apiKey=bd5fac882006c2510c246fcc10a51e935952b4e9&token=f47c5a1701409cbb7f22fa361ca5b3ccd2c13884&format=xml'.
> post := HTTPRequest readFrom: (HyOctetReadStream onStream: (ReadStream on: requestStream octetStream contents)).
> (HyHTTPClient forRequest: post) response.
>
>
> Now, I'm getting a timeout error on reading response.
> I tried to "copy stack", but it raised an error, so I'm sending a print screen with the stack info...
>
> Cheers,
> Esteban
>
>  
>
>
> ------------------------------------------------------------------------
>

> Thanks Dale,
> I added host info to POST line... and that seems to be making the request (although I think that info should not be necessary (but i'm not sure about this)).
>
>        |  requestStream post |
>        requestStream := HyCharWriteStream on: (WriteStream on: ByteArray new).
>        requestStream
>                nextPutLine: 'POST 127.0.0.1:33300/api/v2/auth_info HTTP/1.1';
>                nextPutLine: 'Host: 127.0.0.1:33300';
>                nextPutLine: 'Content-Type: application/x-www-form-urlencoded';
>                nextPutLine: 'Content-Length: 105';
>                crlf;
>                nextPutLine: 'apiKey=bd5fac882006c2510c246fcc10a51e935952b4e9&token=f47c5a1701409cbb7f22fa361ca5b3ccd2c13884&format=xml'.
>        post := HTTPRequest readFrom: (HyOctetReadStream onStream: (ReadStream on: requestStream octetStream contents)).
>        (HyHTTPClient forRequest: post) response.
>
>
> Now, I'm getting a timeout error on reading response.
> I tried to "copy stack", but it raised an error, so I'm sending a print screen with the stack info...
>
> Cheers,
> Esteban
>
>
>
>
> El 28/06/2010, a las 4:24p.m., Dale Henrichs escribió:
>
>> Esteban,
>>
>> a stack for that error would be helpful ...
>>
>> this is beginning to sound like a bug...
>>
>> Dale
>>
>> Esteban Lorenzano wrote:
>>> Hi, I dug at the HTTPPost test and rewrote the http post as follow:  | requestStream post |
>>>      requestStream := HyCharWriteStream on: (WriteStream on: ByteArray new).
>>>      requestStream
>>>              nextPutLine: 'POST /api/v2/auth_info HTTP/1.1';
>>>              nextPutLine: 'Host: localhost:33300';
>>>              nextPutLine: 'Content-Type: application/x-www-form-urlencoded';
>>>              nextPutLine: 'Content-Length: 105';
>>>              crlf;
>>>              nextPutLine: 'apiKey=bd5fac882006c2510c246fcc10a51e935952b4e9&token=f47c5a1701409cbb7f22fa361ca5b3ccd2c13884&format=xml'.
>>>      post := HTTPRequest readFrom: (HyOctetReadStream onStream: (ReadStream on: requestStream octetStream contents)).
>>>       (HyHTTPClient forRequest: post) response messageBody entityBody asString.
>>> (note: localhost:33300 does a redirect to https://rpxnow.com)
>>> ...and now I'm having a "The object nil was not of the expected class String" :(
>
>
>

>
> Esteban,
>
> I looked a little closer at HTTPPost and it looks like it was not completely implemented (for writing). The post data was  not being dumped out as part of the request, so it is likely that the server was still waiting for the content, too.
>
> I've attached a filein with a patch that should work for your example and submitted Issue 133 (http://code.google.com/p/glassdb/issues/detail?id=133) to track the issue...
>
> Dale
>
> Esteban Lorenzano wrote:
>> Thanks Dale,
>> I added host info to POST line... and that seems to be making the request (although I think that info should not be necessary (but i'm not sure about this)). |  requestStream post |
>> requestStream := HyCharWriteStream on: (WriteStream on: ByteArray new).
>> requestStream
>> nextPutLine: 'POST 127.0.0.1:33300/api/v2/auth_info HTTP/1.1';
>> nextPutLine: 'Host: 127.0.0.1:33300';
>> nextPutLine: 'Content-Type: application/x-www-form-urlencoded';
>> nextPutLine: 'Content-Length: 105';
>> crlf;
>> nextPutLine: 'apiKey=bd5fac882006c2510c246fcc10a51e935952b4e9&token=f47c5a1701409cbb7f22fa361ca5b3ccd2c13884&format=xml'.
>> post := HTTPRequest readFrom: (HyOctetReadStream onStream: (ReadStream on: requestStream octetStream contents)).
>> (HyHTTPClient forRequest: post) response.
>> Now, I'm getting a timeout error on reading response. I tried to "copy stack", but it raised an error, so I'm sending a print screen with the stack info...
>> Cheers, Esteban
>> ------------------------------------------------------------------------
> category: 'services-emitting'
> method: HTTPPost
> writeEntityTo: anOctetStream
>
> | keyCount count |
> keyCount := self messageBody keys size.
> count := 0.
> self messageBody postKeysAndValuesDo: [:key :value |
> anOctetStream
> nextPutAll: key asByteArray;
> nextPutAll: '=' asByteArray;
> nextPutAll: value value asByteArray.
> count := count + 1.
> count < keyCount ifTrue: [ anOctetStream nextPutAll: '&' asByteArray ]].
> self entityBody == nil ifTrue: [ ^ self ].
> anOctetStream nextPutAll: self entityBody asByteArray.
> %

> Hi,
> yes... it is working as expected using a pharo image, my problems were when uploading to glass. Btw, I managed to workaround the problem by changing the method I sent first. I can't send the method because of the mail I just send (he he). But as soon as I get the backup, I'll send the changed method to the list.
>
> Cheers,
> Esteban
>
>
> El 30/06/2010, a las 2:31p.m., Dale Henrichs escribió:
>
>    
>> Esteban,
>>
>> I looked a little closer at HTTPPost and it looks like it was not completely implemented (for writing). The post data was  not being dumped out as part of the request, so it is likely that the server was still waiting for the content, too.
>>
>> I've attached a filein with a patch that should work for your example and submitted Issue 133 (http://code.google.com/p/glassdb/issues/detail?id=133) to track the issue...
>>
>> Dale
>>
>> Esteban Lorenzano wrote:
>>      
>>> Thanks Dale,
>>> I added host info to POST line... and that seems to be making the request (although I think that info should not be necessary (but i'm not sure about this)). |  requestStream post |
>>> requestStream := HyCharWriteStream on: (WriteStream on: ByteArray new).
>>> requestStream
>>> nextPutLine: 'POST 127.0.0.1:33300/api/v2/auth_info HTTP/1.1';
>>> nextPutLine: 'Host: 127.0.0.1:33300';
>>> nextPutLine: 'Content-Type: application/x-www-form-urlencoded';
>>> nextPutLine: 'Content-Length: 105';
>>> crlf;
>>> nextPutLine: 'apiKey=bd5fac882006c2510c246fcc10a51e935952b4e9&token=f47c5a1701409cbb7f22fa361ca5b3ccd2c13884&format=xml'.
>>> post := HTTPRequest readFrom: (HyOctetReadStream onStream: (ReadStream on: requestStream octetStream contents)).
>>> (HyHTTPClient forRequest: post) response.
>>> Now, I'm getting a timeout error on reading response. I tried to "copy stack", but it raised an error, so I'm sending a print screen with the stack info...
>>> Cheers, Esteban
>>> ------------------------------------------------------------------------
>>>        
>> category: 'services-emitting'
>> method: HTTPPost
>> writeEntityTo: anOctetStream
>>
>> | keyCount count |
>> keyCount := self messageBody keys size.
>> count := 0.
>> self messageBody postKeysAndValuesDo: [:key :value |
>> anOctetStream
>> nextPutAll: key asByteArray;
>> nextPutAll: '=' asByteArray;
>> nextPutAll: value value asByteArray.
>> count := count + 1.
>> count<  keyCount ifTrue: [ anOctetStream nextPutAll: '&' asByteArray ]].
>> self entityBody == nil ifTrue: [ ^ self ].
>> anOctetStream nextPutAll: self entityBody asByteArray.
>> %
>>      
>    

> Hi,
> yes... it is working as expected using a pharo image, my problems were when uploading to glass. Btw, I managed to workaround the problem by changing the method I sent first. I can't send the method because of the mail I just send (he he). But as soon as I get the backup, I'll send the changed method to the list.
>
> Cheers,
> Esteban
>
>
> El 30/06/2010, a las 2:31p.m., Dale Henrichs escribió:
>
>> Esteban,
>>
>> I looked a little closer at HTTPPost and it looks like it was not completely implemented (for writing). The post data was  not being dumped out as part of the request, so it is likely that the server was still waiting for the content, too.
>>
>> I've attached a filein with a patch that should work for your example and submitted Issue 133 (http://code.google.com/p/glassdb/issues/detail?id=133) to track the issue...
>>
>> Dale
>>
>> Esteban Lorenzano wrote:
>>> Thanks Dale,
>>> I added host info to POST line... and that seems to be making the request (although I think that info should not be necessary (but i'm not sure about this)). |  requestStream post |
>>> requestStream := HyCharWriteStream on: (WriteStream on: ByteArray new).
>>> requestStream
>>> nextPutLine: 'POST 127.0.0.1:33300/api/v2/auth_info HTTP/1.1';
>>> nextPutLine: 'Host: 127.0.0.1:33300';
>>> nextPutLine: 'Content-Type: application/x-www-form-urlencoded';
>>> nextPutLine: 'Content-Length: 105';
>>> crlf;
>>> nextPutLine: 'apiKey=bd5fac882006c2510c246fcc10a51e935952b4e9&token=f47c5a1701409cbb7f22fa361ca5b3ccd2c13884&format=xml'.
>>> post := HTTPRequest readFrom: (HyOctetReadStream onStream: (ReadStream on: requestStream octetStream contents)).
>>> (HyHTTPClient forRequest: post) response.
>>> Now, I'm getting a timeout error on reading response. I tried to "copy stack", but it raised an error, so I'm sending a print screen with the stack info...
>>> Cheers, Esteban
>>> ------------------------------------------------------------------------
>> category: 'services-emitting'
>> method: HTTPPost
>> writeEntityTo: anOctetStream
>>
>> | keyCount count |
>> keyCount := self messageBody keys size.
>> count := 0.
>> self messageBody postKeysAndValuesDo: [:key :value |
>> anOctetStream
>> nextPutAll: key asByteArray;
>> nextPutAll: '=' asByteArray;
>> nextPutAll: value value asByteArray.
>> count := count + 1.
>> count < keyCount ifTrue: [ anOctetStream nextPutAll: '&' asByteArray ]].
>> self entityBody == nil ifTrue: [ ^ self ].
>> anOctetStream nextPutAll: self entityBody asByteArray.
>> %
>