Foro - Perl en Español

por **danimera** » 2012-10-16 08:22 @390

Resulta que tengo que conectarme al API de Windows Live, y necesito hacer una petición REST tal como dicen aquí:

Sintáxis: [ Descargar ] [ Ocultar ]

POST https://login.live.com/oauth20_token.srf
Content-type: application/x-www-form-urlencoded
client_id=0005555555E1700&redirect_uri=http%3A%2F%2Fwww.contoso.com%2Fcallback.htm&client_secret=MdIepdjdfggd4sy8kzmHkU2VEKCLLo&code=2bd12503-7e88-bfe7-c5c7-82274a740ff&grant_type=authorization_code

Honestamente no sé si lo que hice está bien pero en algún momento me funcionó:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

        $mech->add_header( Encoding => 'application/x-www-form-urlencoded' );
        $mech->post(
                    'https://login.live.com/oauth20_token.srf',
                    #$form
                    Content => 'client_id=00000000440D53FB&redirect_uri=http://yakane.krebox.com/index.pl?mode=login&client_secret=pFZtOG42WCNiDlg5OkFWQGs56h0ItKD&code='.$self->session->param('wl_token').'&grant_type=authorization_code'
                    );
        my $content = $mech->content();
        my $data = $self->dec_json($content);
 
Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

pero ahora que lo ejecuto tengo:

Sintáxis: [ Descargar ] [ Ocultar ]

Error POSTing https://login.live.com/oauth20_token.srf: Bad Request at MyApp/MyBase.pm line 462.

        $mech->post(
            'https://login.live.com/oauth20_token.srf',
            [        #$form
                client_id     => '00000000440D53FB',
                redirect_uri  => 'http://yakane.krebox.com/index.pl?mode=login'
                client_secret => 'pFZtOG42WCNiDlg5OkFWQGs56h0ItKD',
                code          => $self->session->param('wl_token')
                grant_type    => 'authorization_code',
            ]
        );
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

y aquí es donde surge la duda. ¿'client_secret' debe ser un parámetro POST más, o debe integrarse en la URL de 'redirect_uri'?

Una opción es sacar toda la petición POST a pantalla, para ver si es correcta.

por **danimera** » 2012-10-16 09:55 @455

Solucionado...

Ya confirmé que la petición mía está bien hecha. El problema era los datos que pasaba. Exactamente el parámetro

redirect_uri => 'http://yakane.krebox.com/index.pl?mode=login'

debía ser el mismo al que usé para obtener un código anteriormente.

Entonces lo escribí así de la forma que tu me indicas y funcionó perfecto. Así es más fácil de depurar que pasar toda esa cadena de una sola vez...

Gracias, explorer.

Foro - Perl en Español

Cómo hacer una petición REST con Mechanize

Cómo hacer una petición REST con Mechanize

Publicidad

Re: Cómo hacer una petición REST con Mechanize

Re: Cómo hacer una petición REST con Mechanize

¿Quién está conectado?