Главная страница


ru.cgi.perl

 
 - RU.CGI.PERL ------------------------------------------------------------------
 From : Artem Chuprina                       2:5020/400     09 Jan 2002  12:35:21
 To : Maxim Vavilov
 Subject : Re: отправить POST'ом
 -------------------------------------------------------------------------------- 
 
 Здравствуй, Maxim Vavilov.
 
  AC>>>> Обычно это означает, что из-под апача твоему скрипту запрещено
  AC>>>> ходить
  MV>>> А как это проверить/вылечить?
  AC>> Спросить админа.
 MV> Я - админ. Админ ему не запрещал. :)
 
 Ты не админ. Ты юзер, знающий пароль админа. Судя по вопросам.
 
  AC>>>> в сеть. В случае тестирования дома под Win9x недавно кто-то
  AC>>>> рассказывал про такую проблему, связанную с тем, что это Win9x.
  MV>>> Проверял как дома под Apache win32 1.3.6 из под win2000, так и на
  MV>>> f2s.com.
  AC>> Дома у тебя Apache под каким юзером работает?
 MV> Под админом.
 
 А не под SYSTEM? Точно?
 
  AC>>>> Шустрее точно не будет. И на половину сайтов тоже ходить не
  AC>>>> будет. Ибо name-based virtual hosts. LWP, в отличие от тебя, об
  AC>>>> этом знает...
  MV>>> Можно ли как-то определить virtual host: 1. С помощью топика?
  MV>>> 2.Каким -либо Програмным обеспечением?
  AC>> Hет. И не нужно, что характерно. Hужно просто правильно задать запрос.
  AC>> Что LWP делать умеет, а ты, судя по коду - нет.
 MV> А как привильно? 
 
 Hа твоем уровне - исключительно по документации к LWP.
 
 MV> Можешь мне показать работающий у тебя код?
 
 ==== 8< [test.pl] ====
 #!/usr/bin/perl -w
 # Create a user agent object
 use LWP::UserAgent;
 $ua = new LWP::UserAgent;
 
 $ua->agent("AgentName/0.1 " . $ua->agent);
 
 # Create a request
 my $req = new HTTP::Request POST => 'http://www.perl.com/cgi-bin/BugGlimpse';
 
 $req->content_type('application/x-www-form-urlencoded');
 $req->content('match=www&errors=0');
 
 # Pass request to the user agent and get a response back
 my $res = $ua->request($req);
 
 # Check the outcome of the response
 if ($res->is_success) {
   print $res->content;
 } else {
   print $res->as_string;
 }
 ==== >8 [test.pl] ====
 
 Отличается от приведенного в perldoc LWP только тем, что в случае ошибки
 выводится то, что принесли. Ибо там давно уже отдают 404.
 
 Применительно к твоей проблеме, с которой все началось - да, тот же самый код
 работает и из-под Apache. Точно так же (с точностью до выдачи HTTP заголовков).
 У _меня_.
 
 -- 
 Artem Chuprina
 Communiware.net
 RFC2822: <ran@ran.pp.ru>, FIDO: 2:5020/358.49, ICQ: 13038757
 
 P.S.
 "Hайдите десять отличий".
 
 ran@party> telnet ivan.narod.ru 80
 Trying 213.180.193.98...
 Connected to ivan.narod.ru.
 Escape character is '^]'.
 GET / HTTP/1.0
 
 HTTP/1.1 404 Not Found
 Date: Wed, 09 Jan 2002 08:30:01 GMT
 Server: CERN httpd 3.0A (VAX VMS) Python/3.0b Unicode featured
 Connection: close
 Content-Type: text/html; charset=windows-1251
 
 ...
 
 ran@party> telnet ivan.narod.ru 80
 Trying 213.180.193.98...
 Connected to ivan.narod.ru.
 Escape character is '^]'.
 GET / HTTP/1.1
 Host: ivan.narod.ru
 
 HTTP/1.1 200 OK
 Date: Wed, 09 Jan 2002 08:30:47 GMT
 Server: CERN httpd 3.0A (VAX VMS) Python/3.0b Unicode featured
 Set-Cookie: nuid=1158995971010565052; path=/; expires=Sat, 07-Jan-12 08:30:47
 GMT; domain=.narod.ru
 Last-Modified: Wed, 04 Jul 2001 13:32:10 GMT
 ETag: "196c112-9ad-3b431ada-windows-1251"
 Content-Length: 2784
 Connection: close
 Content-Type: text/html; charset=windows-1251
 
 ...
 
 P.P.S. RTFM: RFC 2616.
 
 Отправлено через сервер Talk.Ru - http://www.talk.ru
 --- ifmail v.2.15dev5
  * Origin: Talk.Ru (2:5020/400)
 
 

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

 Тема:    Автор:    Дата:  
 отправить POST\'ом   Maxim Vavilov   03 Jan 2002 23:34:08 
 Re: отправить POST\'ом   Artem Chuprina   04 Jan 2002 12:20:45 
 отправить POST\'ом   Maxim Vavilov   04 Jan 2002 19:56:57 
 Re: отправить POST\'ом   Artem Chuprina   08 Jan 2002 13:14:13 
 отправить POST\'ом   Maxim Vavilov   08 Jan 2002 21:32:35 
 Re: отправить POST\'ом   Artem Chuprina   09 Jan 2002 12:35:21 
Архивное /ru.cgi.perl/63591b0b4e80.html, оценка 2 из 5, голосов 10
Яндекс.Метрика
Valid HTML 4.01 Transitional