How to login website using LWP and HTTP modules?

[Freedolen]

Hi All,

I had a perl script which is used to login in a web page, but it gives the error as
"301 Moved Permanently". What does this means and how can it be rectified?
Can anyone help on this?

Code Snippet:

use HTTP::Cookies;
use HTTP::Request;
use HTTP::Request::Common qw(POST);
use URI::URL;
use HTML::LinkExtor;
use LWP 5.64;
 
my $ua = LWP::UserAgent->new();
$ua->cookie_jar({});
($ua, $status) = login($ua, 'webaddress', 'username', 'password');
 
sub login {
    my ($ua, $login_site, $user_id, $user_pass) = @_;
    $request = POST $login_site, [ 
        username => $user_id,
        passwd   => $user_pass,
        option   => 'login',
        op2      => 'login',
        lang     => 'english',
        return   => 'webaddress',
        message  => '0',
        force_session => '1',
        j3b7d8c5a36287aa77ee125d48b4bd2b2 => '1',
    ];
 
    push @{ $ua->requests_redirectable }, 'POST'; 
    $response = $ua->request($request);
    $status = $response->is_success;
    if ($status) {
        print("Successfully logged in to $login_site\n"); 
    } else {
        print $response->status_line, "\n";
        print "Login Error: ".$response->status_line."\n";
        print "Unable to Login\n";
        print "Unable to login\n";
    }
    return ($ua, $status);
}
 

The output what i get is:

301 Moved Permanently
Login Error: 301 Moved Permanently
Unable to Login
Unable to login
 

Below is the form details:

<form action="webaddress" method="post" name="login" >
Username: <input name="username" id="mod_login_username" type="text" class="inputbox" alt="username" size="10" />
<br />
Password: <input type="password" id="mod_login_password" name="passwd" class="inputbox" size="10" alt="password" />
<br />
<input type="checkbox" name="remember" id="mod_login_remember" class="inputbox" value="yes" alt="Remember Me" />
<label for="mod_login_remember">Remember me</label>
<br />
<input type="submit" name="Submit" class="button" value="Login" />
<a href="webaddress,lostPassword/">    Lost Password?</a>
 
<input type="hidden" name="option" value="login" />
<input type="hidden" name="op2" value="login" />
<input type="hidden" name="lang" value="english" />
<input type="hidden" name="return" value="webaddress" />
<input type="hidden" name="message" value="0" />
<input type="hidden" name="force_session" value="1" />
<input type="hidden" name="j3b7d8c5a36287aa77ee125d48b4bd2b2" value="1" />
</form>
 

Thanks in Advance,
Freedolen

[Freedolen]

Since i didn't get reply for the past four days, i have a doubt that my question is not understandable? or shall i post to some other forums(i am asking this b'cos i saw from some other posts as 'dont post the same question to many forums')

-Freedolen

[numberwhun]

Since i didn't get reply for the past four days, i have a doubt that my question is not understandable? or shall i post to some other forums(i am asking this b'cos i saw from some other posts as 'dont post the same question to many forums')

-Freedolen

My appologies for you question not receiving any attention. I am a little swamped at the moment but will take a look later tonight and see if I can offer you any help, even if anyone else doesn't post.

Regards,

Jeff

[numberwhun]

I took a look, and according to this web site, it looks like it has something to do with the URL you are entering. Make sure that it is correct.

Regards,

Jeff

[miller]

Freedolen,

The best advice that I can give you is to use [URL http://search.cpan.org/search?query=WW W::Mechanize]WWW::Mechanize[/url] instead of [URL http://search.cpan.org/search?query=LW P::UserAgent]LWP::UserAgent[/url]. Then simply be sure to add error checking at each step of your spidering process. Outputting the full content of each page is generally a good practice during development. And then cross your fingers that they don't ever change their html form. :)

use Carp;
use WWW::Mechanize;
 
use strict;
 
my $webaddress = 'baz';
my $user_id = 'foo';
my $passwd = 'bar';
 
my $mech = WWW::Mechanize->new(
    cookie_jar      => {},
#    autocheck       => 1,
#    onerror         => \&Carp::croak,
);
 
# Login Form
my $response = $mech->get($webaddress);
if (!$response->is_success) {
    die "Login page unreachable $webaddress: ",  $response->status_line, "\n";
}
 
# Login
$mech->form_name("login");
$mech->field('username', $user_id);
$mech->field('passwd', $passwd);
my $response = $mech->click();
if ($response->is_success) {
    print "Login Successful!\n";
} else {
    die "Login failed: ",  $response->status_line, "\n";
}
 
1;
 
__END__
 

- Miller