ru.cgi.perl

 
 - RU.CGI.PERL ------------------------------------------------------------------
 From : Sergey Novak                         2:469/138.1    05 Jan 2001  01:06:19
 To : All
 Subject : http
 -------------------------------------------------------------------------------- 
 

 
 Вот такой кусок кода, который открывает соединение с удаленным хостом и делает
 http запрос (в данном случае настроен на прокси). Это все идеально работает и с 
 web-сервером и с прокси на локальной машине (Linux). Hо, когда только пытаюсь
 подключаться к соседней тачке, где прокси, веб сервер под виндой, то в логах
 обнаруживаю попытку соединиться, но не приходит ни одного байта запроса. И это
 при том, что все команды прекрасно проходят через телнет (от того же юзера).
 
 #!/usr/bin/perl
 use IO::Socket;
 $sock = new IO::Socket::INET (PeerAddr => '192.168.0.3',
                               PeerPort => 8080,
                               Proto    => 'tcp',
                              );
 if (!$sock)
  {print "Socket could not be created. Reason: $!\n\n";
  return;}
 print $sock "GET http://linux/index.html HTTP/1.0\n\n";
 @a = <$sock>;
 close ($sock);
 print @a;
 
 ЗЫЖ Какая команда посылается не имеет значение, потому что она до сервера даже
 не доходит. Если я неправильно создаю сокеты, то почему все работает на
 локальной машине?
 
              ICQ: 21977876                     [Team Жратва - рулез!]
 
   Удачи тебе, All, в твоих мучениях!
 
 --- Старый голый некрофил и его 2.51a+ постоянных партнера
  * Origin: Между нами ничего небыло... даже трусов (2:469/138.1)
 
 

Вернуться к списку тем, сортированных по: возрастание даты  уменьшение даты  тема  автор 

Тема:    Автор:    Дата:    http   Sergey Novak   05 Jan 2001 01:06:19   http   Denis Gudtsov   11 Jan 2001 01:36:50   Re: http   Artem Babadzhanyants   14 Jan 2001 14:35:54   Moderatorial [*] (Re: http)   Comoderator of RU.CGI.PERL   15 Jan 2001 11:54:38