ru.cgi.perl

 
 - RU.CGI.PERL ------------------------------------------------------------------
 From : Alex Sokolov                         2:5020/662     04 Mar 2002  20:44:12
 To : All
 Subject : POST не получается
 -------------------------------------------------------------------------------- 
 

 
 есть скрипт на перле под апачем, libWWW 5.005
 
 не могу понять, в чем ошибка
 при выполнении запроса получаем не результат, а просто 200 OK запрос странички
 т.е. как GET http://www.mts.ru/cgi-bin/cgi.exe?function=sms_send
 
 просмотр IP пакета выявил почти полное сходство с таким-же запросом из-под IE.
 
 ЗЫ на аналогичных процедурах с другими хостами (beeonline astropage) все ОК
 
 =====================================================================
 
 $ua = LWP::UserAgent -> new;
 
 $ua->agent("Mozilla/4.0 (compatible; MSIE 5.5; Windows 95)");
 my $request;
 my $query;
 
 $request = new HTTP::Request ('POST',
 'http://www.mts.ru/cgi-bin/cgi.exe?function=sms_send');
 
 $query="MMObjectType=0&MMObjectID=&To=$usernumber&Msg=$txt1&count=$txtlen&SMSHo 
 ur=23&SMSMinute=59&SMSDay=$mday&SMSMonth=$mon&SMSYear=2002";
 
   $request->content_type('application/x-www-form-urlencoded');
   $request->header('Content-Type' => 'application/x-www-form-urlencoded');
   $request->header('Host' => 'www.mts.ru');
   $request->header('Accept' => 'text/html');
   $request->header('Content-Length' => length($query));
 $request->header('Referer' =>
 'http://www.mts.ru/cgi-bin/cgi.exe?function=sms_send');
   $request->content($query);
 my $res = $ua->request($request);
 if ($res->is_success) {print "Сообщение отправлено"} ;
 
 ==========================================================
     Пока!  Алекc.         http://www.mpovti.ru  ICQ 148348892
 --- NT'
  * Origin: злые люди доброй CISCе не дают укRASть сOSIски (2:5020/662)
 
 

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

Тема:    Автор:    Дата:    POST не получается   Alex Sokolov   04 Mar 2002 20:44:12   Re: POST не получается   Alex Sokolov   18 Mar 2002 14:57:36