Hello friends ,
I have a problem like there is web application and i have to write
a script that should login to the application and then move other parts
of the application
use HTTP::Request::Common qw(POST);
use LWP::UserAgent;
use Data::Dumper;
$ua = LWP::UserAgent->new(keep_alive=>1);
my $req = POST "http://servername.com:5002/index.php",
['user_name' => 'username',
'user_password'=>"password",
'module'=>'Users',
'action'=>'Authenticate',
'return_module'=>'Users',
'return_action'=>'Login',
];
my $res = $ua->request($req);
print Dumper(\$res);
if ($res->is_success){
print $res->as_string;
}
when i try this code i am not able to login to the application
it says 302
that is found , but with no data
i want to do like if i post username/password with all required things then it should return the home page of the application
and keep the connection live to move other parts of the application
Thanks
maxj