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;
代码如下:
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服务器
自己在网页中登陆时,是没有问题的
是公司内部的局域网Mantis服务器
自己在网页中登陆时,是没有问题的
作者: suautotest 发布时间: 2011-04-20
QUOTE:
在使用LWP登陆系统时,登陆后的返回结果是:301 Moved Permanently。请问这个该如何解决?
代码如下:
...
suautotest 发表于 2011-04-20 14:56
代码如下:
...
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';
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
相关阅读 更多
热门阅读
-
office 2019专业增强版最新2021版激活秘钥/序列号/激活码推荐 附激活工具
阅读:74
-
如何安装mysql8.0
阅读:31
-
Word快速设置标题样式步骤详解
阅读:28
-
20+道必知必会的Vue面试题(附答案解析)
阅读:37
-
HTML如何制作表单
阅读:22
-
百词斩可以改天数吗?当然可以,4个步骤轻松修改天数!
阅读:31
-
ET文件格式和XLS格式文件之间如何转化?
阅读:24
-
react和vue的区别及优缺点是什么
阅读:121
-
支付宝人脸识别如何关闭?
阅读:21
-
腾讯微云怎么修改照片或视频备份路径?
阅读:28