Re^3: LWP::Useragent - File Upload

The code:

 
    my $json = JSON->new;
    my $ua = LWP::UserAgent->new();
    $ua->ssl_opts( SSL_verify_mode => IO::Socket::SSL::SSL_VERIFY_NONE
+, SSL_hostname => '', verify_hostname => 0 );
    $ua->default_header('Content-Type' => 'application/json' );
    $ua->default_header('Content_Type' => 'form-data;boundary=xYzZY');
    $ua->default_header('Authorization', "Basic " . encode_base64("adm
+in:Password123!"));
    $ua->timeout(600);

    my $file = { select => "/tmp/test_image.tgz.bin"};
    my $url = "https://10.248.179.31/api/rest/software_package";

    my $json_obj = $json->pretty->encode ($file);
    my $header = ['Content-Type' => 'multipart/form-data'];
    my $request = HTTP::Request->new("POST", $url, $header, $file);

    print Dumper $request;
    my $res = $ua->request($request);
[download]

Comment on Re^3: LWP::Useragent - File Upload Download Code

Replies are listed 'Best First'.
Re^4: LWP::Useragent - File Upload by bliako (Abbot) on Dec 20, 2018 at 22:04 UTC
Hi leefp, My advice was very narrow in that it concentrated on how to be effective in doing a POST and ignored the bigger picture of uploading a file to server. I simply spotted that your POST params were in the wrong format and alerted you. However, for this particular case, i.e. of uploading the contents of a file, you need to send the contents of the file as `multipart/form-data`. HTTP::Request can take the name of the file (via `Content => [ file => [$file] ],` as poj suggested) and will take care of the rest (opening the file, encoding, etc.). So, try to add a header of `Content` like poj said.	[reply] [d/l] [select]

Replies are listed 'Best First'.

Re^4: LWP::Useragent - File Upload
by bliako (Abbot) on Dec 20, 2018 at 22:04 UTC

Hi leefp,

My advice was very narrow in that it concentrated on how to be effective in doing a POST and ignored the bigger picture of uploading a file to server. I simply spotted that your POST params were in the wrong format and alerted you.

However, for this particular case, i.e. of uploading the contents of a file, you need to send the contents of the file as multipart/form-data.

HTTP::Request can take the name of the file (via Content => [ file => [$file] ], as poj suggested) and will take care of the rest (opening the file, encoding, etc.).

So, try to add a header of Content like poj said.

[reply]
[d/l]
[select]