无效的会话流程

我想通过PERL提交表单。我已经设法提交表单，但是我在表单提交后收到一个显示“无效会话流”的HTML页面。如果我从浏览器提交，新页面包含另一个表单。无效的会话流程

我无法找到该消息可能出现的原因。如果我在服务器端没有任何访问权限，是否可以排除故障？或者它必须从服务器端进行检查？

我的代码：

my $url = "https://MY_URL"; 
my $Browser = new LWP::UserAgent(); 
$Browser->ssl_opts(verify_hostname => 0,SSL_verify_mode => 0x00); 
my $page = $Browser->get($url); 
my $content = HTML::TreeBuilder->new_from_content($page->decoded_content) or die $!; 
my $match = $content->find_by_attribute('name' => 'token'); 
my $token = $match->attr('value'); 
chomp($token); 
my %fileds = ("DATA" => "STD111","token" => $token); 
my $Page = $Browser->request(POST $url,\%fileds); 
if ($Page->is_success){ 
    print $Page->status_line."\n"; 
    print $Page->content."\n"; 
}else{ 
    print $Page->status_line."\n"; 
    print $Page->message; 
}

下面是从Firefox浏览网页源

初始页：

<html> 
<head> 
<meta http-equiv="Content-type" content="text/html; charset=iso-8859-1"> 
<title>Website Title</title> 
</head> 
<body> 
    <form method="post" action="/">    
     <input type="hidden" name="token" value="5f75b4fb68ed"> 
     <input name="stdname"> 
     <input type="submit" value="Submit">      
    </form> 
</body> 
</html>

输出我得到：

200 OK 
<html> 
<head> 
<meta http-equiv="Content-type" content="text/html; charset=iso-8859-1"> 
<title>Website Title</title> 
</head> 
<body> 
    <form method="get" action="/"> 
     ERROR: Invalid session flow<br> 
     <input type="submit" value="Relogin"> 
    </form> 
</body> 
</html>

当通过任何浏览器提交的实际着陆页：

<html> 
<head> 
<meta http-equiv="Content-type" content="text/html; charset=iso-8859-1"> 
<title>Website Title</title> 
</head> 
<body> 
    <form method="post" action="/"> 
     <input type="hidden" name="token" value="5f75b4fb68ed"> 
     <input type="password" name="stdpass"> 
     <input type="submit" value="Submit"> 
    </form> 
</body> 
</html>

来源

2014-09-11 abdfahim

对于处理表单，我建议使用['WWW :: Mechanize']（https://metacpan.org/pod/WWW::Mechanize）。 – Miller 2014-09-11 08:18:54

这很可能是浏览器发送你的LWP程序省略其他头。当遇到这样的情况时，我发现最好的方法是使用Firefox的Live HTTP Headers这种浏览器插件），它追踪实际的HTTP事务，然后改变我的程序以尽可能接近。

来源

2014-09-11 09:23:27

无效的会话流程

回答

相关问题