求助：LWP::UserAgent没办法顺利登录

pxczy

试过好多次了都不行，一直都是停在登录页面。人快疯了。。。也不知道怎么改才行。恳请斑竹大人和各位大侠帮忙啊，感激涕零
#!/usr/bin/perl
use strict;

use LWP::UserAgent;
use HTTP::Cookies;
my $ua = LWP::UserAgent->new;
$ua->cookie_jar(HTTP::Cookies->new(file=>'mycookies.txt',autosave=>1));

my $res= $ua->post('http://www.dgfdc.org/admin.php?mod=phpcms&file=login',
    [
        username => 'pxczy',
        password => '123456',
        cookietime => '0',
        forward => '?',
    ],

);

$res = $ua->get('http://www.dgfdc.org/admin.php?mod=phpcms&file=html&action=show');
open(FILE, '>a.html');
print FILE $res->content;
close FILE;

llz2008

兄弟，看看web server的access_log有没有记录，语法应该是对的，有可能是网络问题，linux上开没开防火墙呢？

pxczy

兄弟，看看web server的access_log有没有记录，语法应该是对的，有可能是网络问题，linux上开没开防火墙呢？ ...
llz2008 发表于 2010-04-06 20:23

谢谢llz2008，这个是虚拟主机上的，log要明天早上六点以后才能看到，防火墙问题应该是没阻挡吧，不然我就在自己这装个试试，看这页面也蛮简单，不过如果第一次输入失败，随后的都需要验证码,不知道是不是这个问题引起的