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:
Expand|Select|Wrap|Line Numbers
- 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);
- }
Expand|Select|Wrap|Line Numbers
- 301 Moved Permanently
- Login Error: 301 Moved Permanently
- Unable to Login
- Unable to login
Expand|Select|Wrap|Line Numbers
- <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>
Freedolen