#!/usr/bin/perl
print "Content-Type: text/html; charset=\"windows-1251\"\n\n";
use Socket;
#взять данные (погоду) с Rambler
$host='www.rambler.ru';
$port='80';
socket(SOCK_R,PF_INET,SOCK_STREAM,getprotobyname('tcp'));
$iaddr=inet_aton($host);
$paddr=sockaddr_in($port,$iaddr);
connect(SOCK_R,$paddr);
send(SOCK_R,"GET /db/weather/index.html?id=78 HTTP/1.0\nUser-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows 98)\nAccept: text/html\nReferer: \nHost: $host\n\n",0);
while (defined($htm_str=<SOCK_R>)){print $htm_str;}
close(SOCK_R);
#/взять данные (погоду) с Rambler
print $pogoda_text;
Apache + Perl + Socket
Win2K.
Поставил Apache 2.0.46, поставил ActivePerl 5.8.0.806, вроде все настроил. (все это на локальном компе)
Все скрипты выполняются нормально, только вот с сокетами проблема: открываю сокет, шлю запрос, perl.exe ломится в инет (все верно), IE долго висит, а потом (через минуты две) выдает Internal Server Error... =0(
На хостинге у прова все работает, а в локали не хочет....
вот скрипт:
подскажите, если кто с таким уже сталкивался.
Поставил Apache 2.0.46, поставил ActivePerl 5.8.0.806, вроде все настроил. (все это на локальном компе)
Все скрипты выполняются нормально, только вот с сокетами проблема: открываю сокет, шлю запрос, perl.exe ломится в инет (все верно), IE долго висит, а потом (через минуты две) выдает Internal Server Error... =0(
На хостинге у прова все работает, а в локали не хочет....
вот скрипт:
Код:
подскажите, если кто с таким уже сталкивался.
imho, LWP использовать в 10 раз просче.
Цитата:
Originally posted by ReDrum
imho, LWP использовать в 10 раз просче.
imho, LWP использовать в 10 раз просче.
мне счас необходимо настроить именно СОКЕТ-коннект... и кажется, что дело в настройках Апача. Кто-нить в курсе в чем дело?
А из консоли чего, не фурычит??? :)=
И чего за переменная такая $pogoda_text ???
perldoc strict на обед не мешает никому
И чего за переменная такая $pogoda_text ???
perldoc strict на обед не мешает никому
Цитата:
Originally posted by ReDrum
А из консоли чего, не фурычит??? :)=
И чего за переменная такая $pogoda_text ???
perldoc strict на обед не мешает никому
А из консоли чего, не фурычит??? :)=
И чего за переменная такая $pogoda_text ???
perldoc strict на обед не мешает никому
$pogoda_text - случайно подвернулась =0)
вобщем, такая ситуация:
имеется локалка с выделенкой на инет. В локалке имеются несколько http-серверов. Запросы на эти локальные сервера проходят прекрасно, но на интернетовские... ни как... может что в настройках Апача?
Цитата:
Originally posted by vitorg
$pogoda_text - случайно подвернулась =0)
вобщем, такая ситуация:
имеется локалка с выделенкой на инет. В локалке имеются несколько http-серверов. Запросы на эти локальные сервера проходят прекрасно, но на интернетовские... ни как... может что в настройках Апача?
$pogoda_text - случайно подвернулась =0)
вобщем, такая ситуация:
имеется локалка с выделенкой на инет. В локалке имеются несколько http-серверов. Запросы на эти локальные сервера проходят прекрасно, но на интернетовские... ни как... может что в настройках Апача?
Метод выхода в инет не через прокси сервера ?
Цитата:
Originally posted by Alone
Метод выхода в инет не через прокси сервера ?
Метод выхода в инет не через прокси сервера ?
Конечно прокси, но все проги лезут без вопросов. К тому же файрволл (КАН) показывает, что perl.exe приконнектился к рамблеру по 80 порту. (файрволл тут ни при чем - так к сведению)
Скопировал скрипт один к одному...
Все работает...
Локальные проблеммы с компом... инетом... и т.д.
Кстати а почему "конечно прокси"?
Все работает...
Локальные проблеммы с компом... инетом... и т.д.
Кстати а почему "конечно прокси"?
Всё ОК! Разобрался =0)
Дело в том, что Апач-то виндовский, поэтому в конце запроса надо было писать не \n\n , а \r\n\r\n. После этого все пошло как по маслу.
Спасибо всем за посты и желаю не попадаться на подобные штуковины =))
Дело в том, что Апач-то виндовский, поэтому в конце запроса надо было писать не \n\n , а \r\n\r\n. После этого все пошло как по маслу.
Спасибо всем за посты и желаю не попадаться на подобные штуковины =))