0

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

2
Contributors
1
Reply
2
Views
8 Years
Discussion Span
Last Post by wickedxter
0

try print $res->content; rather then print $res->as_string. The only thing is that, if the post successful then it will retrieve the contents of that whole page as source code (HTML format). you can save the ref. to a string if need be.

This topic has been dead for over six months. Start a new discussion instead.
Have something to contribute to this discussion? Please be thoughtful, detailed and courteous, and be sure to adhere to our posting rules.