Проблема с авторизацией на форуме phpBB через Perl-скрипт

[matrix_control]

Здрасте всем!
Проблема у меня возникла с авторизацией на форуме phpBB через Perl скрипт. Я открыл форум http://flashdesign.s4.bizhat.com   и решил на блоге сделать скрипт, через который можно было бы авторизоваться и в следующем окне попасть сразу во "внутреннюю" часть форума. Написал скрипт, применив код, который раз сто в других условиях применял. Решил его оттестить на Денвере. Но тут оказалось, что авторизация не проходит. Ничего не сработало. Если применять такой Perl скрипт (логин реальный)

 

Код: [Выделить]

#!/usr/bin/perl
use LWP::UserAgent;
$ua = LWP::UserAgent->new;
my $req = HTTP::Request->new(POST => \'http://flashdesign.s4.bizhat.com/login.php\');
$req->content_type(\'application/x-www-form-urlencoded\');
$req->content(\'username=pupkin&password=20072007&autologin=off&login=\\"Log in\\"\');
my $res = $ua->request($req);
$middle = $res->as_string;
print "Content-Type: text/html\\n\\n";
print "$middle";

то выдается ошибка 302 и такая строка

HTTP/1.1 302 Found Connection: close Date: Fri, 10 Aug 2007 03:44:15 GMT Location: /index.php?sid=0bdd3650ce03ff2f27c41ee32d3151e7&mforum=flashdesign Server: Apache/2.0.52 (CentOS) Content-Length: 0 Content-Type: text/html Client-Date: Fri, 10 Aug 2007 18:40:49 GMT Client-Peer: 72.232.196.90:80 Set-Cookie: ForumSetCookie=flashdesign; expires=Sat, 09-Aug-2008 03:44:15 GMT Set-Cookie: phpbb_flashdesign_data=a%3A2%3A%7Bs%3A11%3A%22autologinid%22%3Bs%3A0%3A%22%22%3Bs%3A6%3A%22userid%22%3Bi%3A-1%3B%7D; expires=Sat, 09-Aug-2008 03:44:15 GMT; path=/ Set-Cookie: phpbb_flashdesign_sid=099431661ba0c37a46dfa3a07c65249b; path=/ Set-Cookie: phpbb_flashdesign_data=a%3A2%3A%7Bs%3A11%3A%22autologinid%22%3Bs%3A32%3A%221faa9bcd93b858f362a948628be87715%22%3Bs%3A6%3A%22userid%22%3Bs%3A1%3A%224%22%3B%7D; expires=Sat, 09-Aug-2008 03:44:15 GMT; path=/ Set-Cookie: phpbb_flashdesign_sid=0bdd3650ce03ff2f27c41ee32d3151e7; path=/ X-Powered-By: PHP/4.3.9

если написать такой скрипт

Код: [Выделить]

#!/usr/bin/perl
use LWP::UserAgent;
$ua = LWP::UserAgent->new;
my $req = HTTP::Request->new(POST => \'http://flashdesign.s4.bizhat.com/login.php\');
$req->content_type(\'application/x-www-form-urlencoded\');
$req->content(\'username=pupkin&password=20072007\');
my $res = $ua->request($req);
$middle = $res->as_string;
print "Content-Type: text/html\\n\\n";
print "$middle";

то скрипт дает 200 отзыв, но не проводит авторизацию и выдает такую строку

HTTP/1.1 200 OK Cache-Control: no-cache, pre-check=0, post-check=0 Connection: close Date: Fri, 10 Aug 2007 03:45:21 GMT Pragma: no-cache Server: Apache/2.0.52 (CentOS) Content-Type: text/html Content-Type: text/html; charset=iso-8859-1 Expires: 0 Client-Date: Fri, 10 Aug 2007 18:41:55 GMT Client-Peer: 72.232.196.90:80 Content-Style-Type: text/css Link: <./memberlist.php>; /="/"; rel="author"; title="Memberlist" Set-Cookie: ForumSetCookie=flashdesign; expires=Sat, 09-Aug-2008 03:45:21 GMT Set-Cookie: phpbb_flashdesign_data=a%3A2%3A%7Bs%3A11%3A%22autologinid%22%3Bs%3A0%3A%22%22%3Bs%3A6%3A%22userid%22%3Bi%3A-1%3B%7D; expires=Sat, 09-Aug-2008 03:45:21 GMT; path=/ Set-Cookie: phpbb_flashdesign_sid=b66e4416ee4cc782327f3fc1f7dc762d; path=/ Title: AllAboutFlash :: Log in X-Powered-By: PHP/4.3.9

причем я по опыту знаю, что в данном случае не должно быть авторизации, но как минимум, поля должны быть заполнены, но и этого не произошло. У меня смутные сомнения возникают насчет того, что проблема в куках. Так, например, при загрузке страницы http://flashdesign.s4.bizhat.com   появляются куки

ForumSetCookie
flashdesign
flashdesign.s4.bizhat.com/
1536
1401557888
29948372
439334688
29875072
*
phpbb_flashdesign_data
a%3A2%3A%7Bs%3A11%3A%22autologinid%22%3Bs%3A0%3A%22%22%3Bs%3A6%3A%22userid%22%3Bi%3A-1%3B%7D
flashdesign.s4.bizhat.com/
1536
1401557888
29948372
439734688
29875072
*

хотя, должен заметить, что если сохранить эту веб страницу на диске, кое-что добавить в описание формы и стереть все куки, то авторизация все равно проходит нормально. Искал в сети людей с похожими проблемами, но на всех сайтах и форумах только эксплойты представлены, что, мягко говоря, не то что нужно. Короче не очень понятно что такое. У кого есть какие мысли?

[frenky]

там где ответ 302 ты видрай из ответа значение Location: и пускай туда своего агента

[xames]

Попробуй модуль WWW::Mechanize;
Обо многих проблемах забудешь =)