Debugging http post request 2

[Perlwannabe]

Hello,

Wondering what's wrong in that cgi script:

#!perl

  use HTTP::Request::Common qw(POST);
  use LWP::UserAgent;

  $ua = LWP::UserAgent->new;

  my $req = POST '[URL unfurl="true"]http://localhost/cgi-bin/control.cgi?newpage',[/URL]
                [ pass => 'blah' , text => 'xxx'];

print "Content-type: text/html\n\n";

  print $ua->request($req)->as_string;

It should pass a plan text to a form,but it doesn't work.
It connects to the page,show the form but any text is passed.

Could you enlight me,please?
Should I define an encoding method, maybe?

Thanks for your feedbacks

Sincerely

 

[MillerH]

Is "as_string" part of the specification for LWP::UserAgent?

http://search.cpan.org/search?query=LWP::UserAgent

I would suggest that you simply follow the example used in the synopsis for getting the output:

http://search.cpan.org/~gaas/libwww-perl-5.805/lib/LWP/UserAgent.pm#SYNOPSIS

Also, I believe that your use of ?newpage' in your POST will be ignored. If you're wanting to set a newpage cgi parameter, than it should be included in the following array ref parameter.

 

[Perlwannabe]

Hello MillerH and thanks for the reply.

>>>Is "as_string" part of the specification for LWP::UserAgent?

Yes.

>>>Also, I believe that your use of ?newpage' in your POST will be ignored. If you're wanting to set a newpage cgi parameter, than it should be included in the following array ref parameter.

The "?newpage" parameter is the required Action attribute of the form.
should I include it here?

 [ pass => 'blah' , action => 'newpage',text => 'xxx'];

 

[MillerH]

Yes. control.cgi will now also receive the cgi parameter action=newpage.

Instead of asking though, why not just try it and tell us if it works?

g'luck.

 

[Perlwannabe]

Also,I would add that I cannot follow the examples you linked for me as I'm running Perl only as cgi script on Apache web server running under Win XP. So I haven't perl console...

 

[Perlwannabe]

I tried it.it doesn't work...

 

[MillerH]

Well the example that I gave you basically would have changed your code from

print $ua->request($req)->as_string;

to

my $response = $ua->request($req);
if ($response->is_success) {
    print $response->content;  # or whatever
} else {
    die $response->status_line;
}

I'm pretty sure that would work in whatever environment your coding in. It always helps to listen to as many error conditions as possible instead of just assuming that something worked. Especially when using external modules and functionality. Make sure that Black Box claims things are scrumdilly-umptious.

 

[Perlwannabe]

So,should I replace that code line

print $ua->request($req)->as_string;

with that one?

my $response = $ua->request($req);
if ($response->is_success) {
    print $response->content;  # or whatever
} else {
    die $response->status_line;
}

Also, would that synthax work as cgi script?

Thanks for the support.

 

[Perlwannabe]

OK.
As regard the output your code works fine on localhost but only a blank page appears if I request an url over the internet...
Still,no data was added to the form...

Here is also the form code

<form name="create" method=post action="$scriptname?createpages">
<input type=hidden name="pass" value="$fields{'pass'}">
<input type=hidden name="checkdata" value="1">