Getting 411 error on POST with LWP

[philsy]

Can someone help me resolve this error. I have a short script that is connecting to a web site and submitting a form. I am getting an "411 Length required" message back. Here is the code I have in place. Any ideas how I can get around this?

Thanks In advance.

Phil

#!usr/bin/perl

use strict;
use warnings;
use LWP;



my $browser = LWP::UserAgent->new;
$browser->agent("Mozilla/4.76 [en] (Windows NT 5.0; U)");
$browser->proxy('http', '

http://xxx.xxx.xxx.xxx:xx/');

my $response = $browser->post(
'

http://xxx/xxx/xxx/wwcgi.dll?8450822SU35GH~Query~List~Page~Action~QuickPage',

'cPageId' => '7920',
,
);



die "Hmm, eror \"", $response->status_line( ), "\" when getting " unless $response->is_success( );

my $content_type = $response->content_type( );
die "Hm, unexpected content type $content_type from "
unless $content_type eq 'text/html';

my $content = $response->content( );
die "Odd, the content from is awefully short!"
if length($content) < 3000;

print "\n";
print $content;
print "\n";
print $response->status_line();
print "\n";

 

[PaulTEG]

This seems to be an issue with only certain webservers, what are you posting to, IIS 6 perchance?

Appears there's no real solution using LWP::UserAgent, (why aren't you use-ing LWP::UserAgent?)

For a POST request you should add the "Content-Type" header. When you try to emulate HTML <FORM> handling you should usually let the value of the "Content-Type" header be "application/x-

http://www-form-urlencoded".

See lwpcook for examples of this.

This seems to indicate that this should be set before the content is sent

Try that and see what happens ...

Paul
------------------------------------
Spend an hour a week on CPAN, helps cure all known programming ailments ;-)