web登陆问题，请斑竹和iamlimeng进。。。

suautotest

在使用LWP登陆系统时，登陆后的返回结果是：301 Moved Permanently。请问这个该如何解决？
代码如下：

use strict;
use warnings;
use LWP::UserAgent;

my $local_dir = '/data';
my $login_url = 'http://10.1.1.11:8081/mantis';

my $user = 'test';
my $pass = "111";

my $ie = LWP::UserAgent->new( );
$ie->cookie_jar( {} );

sub Login
{
    my $response = $ie->post( $login_url, [ 'username' => $user, 'password' => $pass ] );
    if ( not $response->is_success )
    {
        die "login error: ", $response->status_line. "\n";
    }

    if( $response->content =~ /登陆成功/ )
    {
        print "login successful!\n";
    }
    else
    {
        die "login error: wrong password!";
    }
}
&Login;

suautotest

my $login_url = 'http://10.1.1.11:8081/mantis';
是公司内部的局域网Mantis服务器
自己在网页中登陆时，是没有问题的

兰花仙子

在使用LWP登陆系统时，登陆后的返回结果是：301 Moved Permanently。请问这个该如何解决？
代码如下：

...
suautotest 发表于 2011-04-20 14:56

   现代的 LWP都是自动follow redirection的。所以没有任何问题。

ziyunfei

$ua->requests_redirectable( \@requests )

    This reads or sets the object's list of request names that $ua->redirect_ok(...) will allow redirection for. By default, this is ['GET', 'HEAD'], as per RFC 2616. To change to include 'POST', consider:

       push @{ $ua->requests_redirectable }, 'POST';

这个？？