http://qs321.pair.com?node_id=1212673


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' )
        };

[download]

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 (Abbot) 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();
}

    [download]
    poj
[reply]
[d/l]

      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!
[reply]
[d/l]

In Section Seekers of Perl Wisdom