Attempting to POST a file to local server

[cookersjs]

Hello Monks, Hope you are well!

I am attempting to POST a text file to a local server, using port 8012. I have been trying to do this using LWP::UserAgent. The main example I have been trying is found here.
Based on the example, I have produced the following code:

    my $ua = LWP::UserAgent->new;
    my $res = $ua->post('http://localhost:8012/',
        Content_Type => 'form_data',
        Content => [
            Filedata => [ 'Hello.txt', 'Hello.txt',
                Content_Type => 'text/plain',
            ],
            submit => 'Submit',
        ],
    );

    if ($res->is_success) {
  print $res->content;
} else {
  print $res->status_line, "\n";
}

To get more specific about the codes purpose: I am running a docker container on a server that is communicated with via port 8012. The goal is to send a file here, process it and then return the
body of the processed file. When I use Postman to submit the file via POST request, it works as expected: The server gets the file, processes it, and returns the body of the desired output file.

When I run the above code, I get "TypeError: Cannot read property 'end' of undefined" on the server end, and the output from the program is '500 Server closed connection without sending any
data back'. This is my first time doing any of this sort of thing, so any tips, solutions, and critiques are obviously welcome!

cookersjs

[Corion]

The error happens on the remote end, so it's hard to say what the remote end is getting from "postman" that is missing from your code.

Maybe the file Hello.txt doesn't exist where you think it should?

Maybe you can dump the request that is sent from your Perl code (see LWP::Debug) and compare it to the data that "postman" sends.

[cookersjs]

Well this was fun but I found out why! Turns out an underscore in the 'Content_Type' field rather than a dash makes both Perl and the server unhappy

Best -- cookersjs

[tobyink]

But the code in your original post already has an underscore.

[Anonymous Monk]

I too found the phrasing confusing but it is correct as stated

A value of form_data (an error) is treated as "application/x-www-form-urlencoded"

A value of form-data is treated as "multipart/form-data"

#!/usr/bin/perl --
use strict;
use warnings;
use LWP;

my $ua = LWP::UserAgent->new;
$ua->add_handler("request_send",  sub { shift->dump; return });
$ua->add_handler("response_done", sub { shift->dump; return });
$ua->timeout( 0.1 );

my $res = $ua->post('http://localhost:8012/',
#~     Content_Type => 'form_data', ## treated as "application/x-www-f
+orm-urlencoded"
    Content_Type => 'form-data',  ## treated as "multipart/form-data"
#~     Content_Type => 'multipart/form-data', 
    Content => [
        Filedata => [
            __FILE__,
            'Hello.txt',
            Content_Type => 'text/plain',
        ],
        submit => 'Submit',
    ],
);

[karlgoethebier]

BTW: Nice that you are back.

Regards, Karl