debugging POST request

[Perlwannabe]

Hello again,

I'm debugging a script and I'm wondering if the variable below is set correctly (script is not mine)in order to enter data in a form of a web page:

$req = (POST $admin_url,
    [ 
		'pass' => $password,
		'dataflag' => '1',
		'pagenames' => $klist
    ]);

$response = $ua->request($req);

script also use following modules:

use CGI::Carp qw (fatalsToBrowser);
use HTTP::Request::Common qw(POST);
use LWP::UserAgent;
$ua = LWP::UserAgent->new;

That script should allow to enter automatically text in a form trough a POST request logging in to a control panel but seems to fail the login step...

Thanks for any suggestion

Sincerely

 

[KevinADC]

did you already post this code? I can't remember if I seen this question here or on another forum.

- Kevin, perl coder unexceptional!

 

[Perlwannabe]

No, I did not post this code before now...