LWP for login to an web application

Expand Post »

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

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.

Similar Threads

maxjackie

Reputation Points: 10

Solved Threads: 0

Newbie Poster

Offline

1 posts
since Jun 2009

Permalink

Jul 13th, 2009

Re: LWP for login to an web application

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.

wickedxter

Reputation Points: 10

Solved Threads: 0

Newbie Poster

Offline

20 posts
since Jul 2009

This thread is more than three months old

No one has posted to this discussion for at least three months. Please let old threads die and do not reply to them unless you feel you have something new and valuable to contribute that absolutely must be added to make the discussion complete. Otherwise, please start a new thread in this forum instead.

Previous Thread in Perl Forum Timeline: Connecting to remote server

Next Thread in Perl Forum Timeline: reading a variable in to my script

DaniWeb Message

Cancel Changes

User Name
Password