+ -
当前位置:首页 → 问答吧 → web登陆问题,请斑竹和iamlimeng进。。。

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

时间:2011-04-20

来源:互联网

在使用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   发布时间: 2011-04-20

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

作者: suautotest   发布时间: 2011-04-20



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

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




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

作者: 兰花仙子   发布时间: 2011-04-20



QUOTE:
$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';



这个??

作者: ziyunfei   发布时间: 2011-04-20

热门下载

更多