Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl: the Markov chain saw
 
PerlMonks  

Re: POST file through REST::Client

by thanos1983 (Vicar)
on Apr 11, 2018 at 11:06 UTC ( #1212673=note: print w/replies, xml ) Need Help??


in reply to POST file through REST::Client [SOLVED]

Solution to the POST file with REST

First of all I want to say thank you all for the effort and time and

I finally found the only solution that worked for me is a combination of LWP::UserAgent and HTTP::Request::Common.

Sample of working code bellow (for future reference):

#!/usr/bin/perl use JSON; use strict; use warnings; use MIME::Base64; use Data::Dumper; use feature 'say'; use LWP::UserAgent (); use HTTP::Request::Common; my $ua = LWP::UserAgent->new; $ua->timeout(10); $ua->env_proxy; my $url = "http://127.0.0.1:8000/upload/"; my $file = "test.txt"; $HTTP::Request::Common::DYNAMIC_FILE_UPLOAD = 1; my $req = POST( $url, Authorization => 'Basic ' . encode_base64('user' . ':' . 'password +'), Content_Type => 'multipart/form-data', Content => [ file => [$file] ], ); my $res = $ua->request($req); #do it say $res->status_line; my $response = $ua->get('http://127.0.0.1:8000/snippets/1/'); if ($response->is_success) { print Dumper decode_json($response->decoded_content); # or whatev +er } else { die $response->status_line; } __END__ $ perl test.pl 201 Created $VAR1 = { 'highlight' => 'http://127.0.0.1:8000/snippets/1/highlight/' +, 'url' => 'http://127.0.0.1:8000/snippets/1/', 'id' => 1, 'owner' => 'user', 'code' => 'Test POST file Perl', 'language' => 'perl', 'title' => 'Default Title', 'style' => 'emacs', 'linenos' => bless( do{\(my $o = 0)}, 'JSON::PP::Boolean' ) };

I know that most people will say why not use the LWP::UserAgent::credentials, I tried to use it but it did not worked for me so I used the old traditional manual adding credentials to header. Works like a charm. :)

Seeking for Perl wisdom...on the process of learning...not there...yet!

Replies are listed 'Best First'.
Re^2: POST file through REST::Client
by poj (Monsignor) on Apr 11, 2018 at 11:20 UTC

    You can use that solution in your module

    sub postSnippetsFile { my ( $self, %options ) = @_; my $request = HTTP::Request::Common::POST( '', 'Content_Type' => 'form-data', 'Content' => [ file => [ $options{file} ] ], ); $request->authorization_basic($options{username},$options{password +}); #print Dumper $request; my $headers = { 'Content-Type' => $request->header('Content-Type'), "Authorization" => $request->header('Authorization'), }; my $body_content = $request->content; #print Dumper $headers,$body_content; $self->{_client}->POST( $options{url}, $body_content ,$headers ); #print $self->{_client}->responseCode(); return $self->{_client}->responseContent(); }
    poj

      Hello poj,

      Thanks a lot for your time and effort. It works as expected.

      BR / Thanos

      Seeking for Perl wisdom...on the process of learning...not there...yet!

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1212673]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others making s'mores by the fire in the courtyard of the Monastery: (7)
As of 2018-08-21 10:01 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    Asked to put a square peg in a round hole, I would:









    Results (197 votes). Check out past polls.

    Notices?