what I'm doing wrong?

Previous Topic Next Topic
 
classic Classic list List threaded Threaded
3 messages Options
Reply | Threaded
Open this post in threaded view
|

what I'm doing wrong?

EstebanLM
Hi!
I'm having a problem on production, and I can't fix it... I have to make a HTTP request to get some data for OpenID, This is my call:

askRpxData: token
        ^PlatformSupport current
                httpPostDocument: self authUrl
                args: (Dictionary new
                        at: 'apiKey' put: self apiKey;
                        at: 'token' put: token;
                        at: 'format' put: 'xml';
                        yourself)
                request: ''

...and this is the method who makes the request

httpPostDocument: urlString args: aDictionary request: contents
        | url request result parameters bodyContents |

        url := HyURI fromStream: urlString readStream.
        request := HTTPPost usingURI: url.

        parameters := String streamContents: [ :stream |
                aDictionary associations
                        do: [ :each | stream nextPutAll: each key; nextPut: $=; nextPutAll: each value ]
                        separatedBy: [ stream nextPut: $& ] ].

        bodyContents := parameters, String crlf, String crlf, contents.

        request headers
                addField: (HTTPHostField new hostName: url hostname);
                addField: (HTTPAcceptField new
                        addMediaType: 'text/html';
                        addMediaType: '*/*';
                        yourself);
                addField: (HTTPContentLengthField new contentLength: bodyContents size);
                addField: (ContentTypeField new mediaType: 'application/x-www-form-urlencoded').

        request entityBody: bodyContents.
        result := (HyHTTPClient new forRequest: request) response.
        ^result  messageBody entityBody asString

should be working, but no success :(
I think the post is wrong created, but I can't find the error.

Please, any help will be very welcome.

Thanks,
Esteban
Reply | Threaded
Open this post in threaded view
|

Re: what I'm doing wrong?

Dale Henrichs
Esteban,

I'm headed out on vacation today (leaving shortly), but I'll try to take
a look at this problem a little bit this evening...

Dale

Esteban Lorenzano wrote:

> Hi!
> I'm having a problem on production, and I can't fix it... I have to make a HTTP request to get some data for OpenID, This is my call:
>
> askRpxData: token
> ^PlatformSupport current
> httpPostDocument: self authUrl
> args: (Dictionary new
> at: 'apiKey' put: self apiKey;
> at: 'token' put: token;
> at: 'format' put: 'xml';
> yourself)
> request: ''
>
> ...and this is the method who makes the request
>
> httpPostDocument: urlString args: aDictionary request: contents
>         | url request result parameters bodyContents |
>
>         url := HyURI fromStream: urlString readStream.
>         request := HTTPPost usingURI: url.
>
>         parameters := String streamContents: [ :stream |
>                 aDictionary associations
>                         do: [ :each | stream nextPutAll: each key; nextPut: $=; nextPutAll: each value ]
>                         separatedBy: [ stream nextPut: $& ] ].
>
>         bodyContents := parameters, String crlf, String crlf, contents.
>
>         request headers
>                 addField: (HTTPHostField new hostName: url hostname);
>                 addField: (HTTPAcceptField new
>                         addMediaType: 'text/html';
>                         addMediaType: '*/*';
>                         yourself);
>                 addField: (HTTPContentLengthField new contentLength: bodyContents size);
>                 addField: (ContentTypeField new mediaType: 'application/x-www-form-urlencoded').
>
>         request entityBody: bodyContents.
>         result := (HyHTTPClient new forRequest: request) response.
>         ^result  messageBody entityBody asString
>
> should be working, but no success :(
> I think the post is wrong created, but I can't find the error.
>
> Please, any help will be very welcome.
>
> Thanks,
> Esteban
Reply | Threaded
Open this post in threaded view
|

Re: what I'm doing wrong?

EstebanLM
Thanks, Dale

El 28/06/2010, a las 3:28p.m., Dale Henrichs escribió:

> Esteban,
>
> I'm headed out on vacation today (leaving shortly), but I'll try to take a look at this problem a little bit this evening...
>
> Dale
>
> Esteban Lorenzano wrote:
>> Hi!
>> I'm having a problem on production, and I can't fix it... I have to make a HTTP request to get some data for OpenID, This is my call: askRpxData: token
>> ^PlatformSupport current httpPostDocument: self authUrl args: (Dictionary new
>> at: 'apiKey' put: self apiKey;
>> at: 'token' put: token;
>> at: 'format' put: 'xml';
>> yourself) request: ''
>> ...and this is the method who makes the request
>> httpPostDocument: urlString args: aDictionary request: contents
>>        | url request result parameters bodyContents |
>>        url := HyURI fromStream: urlString readStream.
>>        request := HTTPPost usingURI: url.
>>        parameters := String streamContents: [ :stream |
>>                aDictionary associations
>>                        do: [ :each | stream nextPutAll: each key; nextPut: $=; nextPutAll: each value ]
>>                        separatedBy: [ stream nextPut: $& ] ].
>>        bodyContents := parameters, String crlf, String crlf, contents.
>>        request headers
>>                addField: (HTTPHostField new hostName: url hostname);
>>                addField: (HTTPAcceptField new
>>                        addMediaType: 'text/html';
>>                        addMediaType: '*/*';
>>                        yourself);
>>                addField: (HTTPContentLengthField new contentLength: bodyContents size);
>>                addField: (ContentTypeField new mediaType: 'application/x-www-form-urlencoded').
>>        request entityBody: bodyContents.
>>        result := (HyHTTPClient new forRequest: request) response.
>>        ^result  messageBody entityBody asString
>> should be working, but no success :( I think the post is wrong created, but I can't find the error.
>> Please, any help will be very welcome. Thanks,
>> Esteban

"Querer es suscitar las paradojas"
Camus - El mito de Sísifo