Perl

Perl RSS

LWP for login to an web application

•

Join Date: Jun 2009

Posts: 1

Reputation: maxjackie is an unknown quantity at this point

Solved Threads: 0

maxjackie

Offline

Newbie Poster

LWP for login to an web application

Jun 22nd, 2009

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

 Help with Code Tags 
 perl Syntax (Toggle Plain Text) 
 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;
}
 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

Last edited by maxjackie; Jun 22nd, 2009 at 3:42 pm.

•

Join Date: Jul 2009

Posts: 15

Reputation: wickedxter is an unknown quantity at this point

Solved Threads: 0

wickedxter wickedxter is offline

Offline

Newbie Poster

Re: LWP for login to an web application

Jul 13th, 2009

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.