ru.cgi.perl

 
 - RU.CGI.PERL ------------------------------------------------------------------
 From : Vadim Kazakov                        2:5030/1208    04 Oct 2000  00:21:43
 To : All
 Subject : Вопрос!
 -------------------------------------------------------------------------------- 
 

 
 Есть вот такой кусок кода.
 
   ($spreferer, $spurl, $spformdata, $spname)=@_;
   $h = new HTTP::Headers;
 
   $h->referer("$spreferer");
 
   # Create a user agent object
   $ua = new LWP::UserAgent;
 
   $ua->agent('Mozilla/4.0 (compatible; MSIE 5.0; Windows 98; DigExt)');
 
   # Create a request
   my $req = new HTTP::Request(POST, "$spurl", $h);
   $req->content_type('application/x-www-form-urlencoded');
   $req->content("$spformdata");
   # Pass request to the user agent and get a response back
   my $res = $ua->request($req);
 
   if($res->is_success) { # нашли
 }
 Он нормально отсылает информацию, но при попытке записи ответа от сервера мы
 очень часто получаем 2 байта в файл, либо сообщение от апача, что страница
 переехала. У меня есть подозрение, что этот скрипт не ждет полного окончания
 сессии (редиректа на конечную страницу). Чем пофиксить это ???
 
                                                            WBR, Stone Keeper
 
 --- Original Vibes, Mega Phone, Dj Die, Dj Hype, Collective, Mask ...
  * Origin: Heavy St0ne Stati0n,108-4225,23-07,V34+ (2:5030/1208)
 
 

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

Тема:    Автор:    Дата:    Вопрос!   Vadim Kazakov   04 Oct 2000 00:21:43   Re: Вопрос!   Paul Kulchenko   06 Oct 2000 01:54:07