|
ru.cgi.perl
- RU.CGI.PERL ------------------------------------------------------------------
From : Radislav Lyaskovsky 2:5020/400 03 Jun 2001 11:47:06
To : All
Subject : Re: http млин :(
--------------------------------------------------------------------------------
Victor Lokhin тут писал
> --- ?????
> Всё качается
> Или я не догнал ?
>
В том то и дело что не качается, точнее качается, но не то, что надо; но я
уже разобрался....Хотя не до конца....
После прочтения RFC1945 (HTTP/1.0) Я собрал на Socket'е вот такую програмку
use Socket;
$host="bio.com.ua";
$port="80";
socket(SOCK, PF_INET, SOCK_STREAM, getprotobyname('tcp'));
$iaddr = inet_aton($host);
$paddr = sockaddr_in($port, $iaddr);
connect(SOCK, $paddr);
send (SOCK, "GET / HTTP/1.0 \n", 0);
send (SOCK, "Accept: */*\n", 0);
send (SOCK, "Accept-Language: ru\n", 0);
send (SOCK, "User-Agent: Mozilla/4.0 (compatible)\n", 0);
send (SOCK, "Host: bio.com.ua\n", 0);
send (SOCK, "Connection: Keep-Alive\n\n", 0);
@data=<SOCK>;
close(SOCK);
print @data;
Всё заработало, значит, при подключении LWP::UserAgent'ом моя прога
передает недостаточно параметров.....
Hасколько я понимаю, то он передаёт только User-Agent и Host, но видимо
главным тут является еще и Connection, хотя и остальные вполне нужны....
Так теперь следующий вопрос:
Как при помощи LWP::UserAgent передать все нужные параметры при запросе?
--------------
Заранее спасибо.
Радислав.
--- ifmail v.2.15dev5
* Origin: Invest-Center Ltd. (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
Re: http млин :( 