v7r
Junior Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Подскажите, пожалуйста!
Есть код:
Код: #!/usr/bin/perl
use LWP 5.805;
#User-Agen Settings
my $ua = LWP::UserAgent->new;
push @{ $ua->requests_redirectable }, 'POST';
#GetUrl Function
sub geturl
{
my $response = $ua->get($URL);
if ($response->is_success) {
$source=$response->content;
}
else {
$source=$response->status_line;
}
};
#PostUrl Function
sub posturl
{
my $response = $ua->post($URL, %form);
if ($response->is_success) {
$source=$response->content;
}
else {
$source=$response->status_line;
}
};
# *********** MAIN PROGRAM HERE ***********
open(OUT,">log.html");
$URL='http://www4.nm.ru/cgi-bin/denlogin.cgi';
%form=(
'login' => 'smlgn',
'client' => 'nm.ru',
'passwd' => 'smlgn'
);
posturl();
print OUT $source;
close(OUT); |
Он эквивалентен такой форме:
Код: <form action="http://www4.nm.ru/cgi-bin/denlogin.cgi" method="post">
<input type="text" name="login" value="smlgn">
<input type="text" name="passwd" value="smlgn">
<input type="text" name="client" value="nm.ru">
<input type="submit" value="go">
</form> |
Но форма работает (в браузере  ), а код пишет
Цитата:| 500 Can't connect to :80 (Bad hostname '') |
Вобщем, что-то с редиректом. Никак не пойму.
Платформа - cygwin, perl 5.8.6, lwp 5.805. |
Всего записей: 148 | Зарегистр. 24-11-2004 | Отправлено: 15:32 12-08-2006 | Исправлено: v7r, 21:39 13-08-2006 |
|
есть предложения делать на Дельфях, а на пхп что то со скрипом идет 
