Re^3: Rest::Client Headers not getting through

Hi Random Walk,

The API you are using is pretty clear about this:

The token parameter was found in the query
string, but must be in the POST body

So, the token must go to the body. Which is by using POST($api, $body_content);

I would add also the header "Content-type", "application/x-www-form-urlencoded" to become this:

POST($api, "...token=the_token". {"Content-type" => "application/x-www
+-form-urlencoded"});
[download]

Now the above is for whenever you are making a request involving a token. The 1st param is the api path, the 2nd param is the post-body as a query string (you can use $client->buildQuery([a=>$a,b=>$b...]) for this) and the 3rd param is a hashref of headers.

If the login phase worked somehow differently, then keep using that method and ... end up having two different post() - what can I say?

Let me know if there is a public url to test this from my side.

Comment on Re^3: Rest::Client Headers not getting through Select or Download Code

Replies are listed 'Best First'.

Re^4: Rest::Client Headers not getting through
by Random_Walk (Prior) on May 21, 2018 at 15:32 UTC

Hi bliako,

Update

{'Content-type' => 'application/x-www-form-urlencoded'}

'error' => {
      'code' => 'badtoken',
      '*' => 'See http://somehost.got.internal.net/mediawiki/api.php f
+or API usage',
      'info' => 'Invalid token'
}
[download]

Original Node

sub post {
    my $query = shift @_;
    print Dumper $client;
    $client->POST($api, $query);
    print "\$client->POST($api, $query)\n";

    if ( $client->responseCode() == 200 ) {
        print "Got Data OK, decoding ... " if $debug;
        print Dumper $client->responseContent() ;
        my $data = $JSON->decode( $client->responseContent() );
        print Dumper $data;
        return $data;
    }
    else {
        print "Failed with code $client->responseCode()\n";
        print Dumper $client->responseContent();
    }
}
[download]

$client->POST(/mediawiki/api.php, action=login&lgname=Marvin&lgpassword=diode&format=json)

random@gotsvl1140:~> ./LookupsToWiki.pl
$VAR1 = bless( {
         '_config' => {
                      'host' => 'http://somehost.got.internal.net',
                      'useragent' => bless( {
                               'proxy' => {},
                               'timeout' => 180,
                               'ssl_opts' => {
                                    'verify_hostname' => 1
                               },
                               'handlers' => {
                               'response_header' => bless( [ {
                                  'owner' => 'LWP::UserAgent::parse_he
+ad',
                                  'callback' => sub { "DUMMY" },
                                  'm_media_type' => 'html',
                                  'line' => '/usr/lib/perl5/vendor_per
+l/5.18.2/LWP/UserAgent.pm:683'
                               } ], 'HTTP::Config' )
                      },
                      'protocols_forbidden' => undef,
                      'max_redirect' => 7,
                      'use_eval' => 1,
                      'max_size' => undef,
                      'show_progress' => undef,
                      'local_address' => undef,
                      'def_headers' => bless( {
                      'user-agent' => 'REST::Client/273'
         }, 'HTTP::Headers' ),
         'no_proxy' => [],
         'protocols_allowed' => undef,
         'requests_redirectable' => [
            'GET',
            'HEAD'
         ]
    }, 'LWP::UserAgent' ) }
}, 'REST::Client' );

$client->POST(/mediawiki/api.php, action=login&lgname=Marvin&lgpasswor
+d=volvo123&format=json)

$VAR1 = '<!DOCTYPE html>
<html lang="en" dir="ltr" class="client-nojs">
<head>
<meta charset="UTF-8"/>
<title>MediaWiki API help - Monitoring Services</title>
<script>document.documentElement.className = document.documentElement.
+className.replace( /(^|\\s)client-nojs(\\s|$)/, "$1client-js$2" );</s
+cript>
","wgRelevantArticleId":0,"wgRequestId":"WwLj2gr-QFMAAE7vrZwAAAAF","wg
+IsProbablyEditable":false,"wgVisualEditor":... Plenty more html here 
+...
[download]

https://www.mediawiki.org/wiki/Special:ApiSandbox Medi Wiki Sandbox

Cheers,
R.

Pereant, qui ante nos nostra dixerunt!

[reply]
[d/l]
[select]


Perl Monk, Perl Meditation
	PerlMonks