ru.cgi.perl

 
 - RU.CGI.PERL ------------------------------------------------------------------
 From : Pavel Kurnosoff                      2:5030/736.25  07 Dec 2000  00:24:18
 To : news@insan.al.ru
 Subject : Re: Help! Please help!
 -------------------------------------------------------------------------------- 
 

 
  n> Как передавать методом GET данные с помощью Socket - понятно (хотя раньше
  n> никто не ответил на мой вопрос, но разобрался.. :)) А вот что делать с
  n> POST?  Обращаю Ваше внимание на то, что нужно обезательно с помощью
  n> Socket. (И не спрашивайте зачем, и не предлагайте LWP) Такое вообще
  n> возможно? Если да - то как? Если можно - пример (или ссылку).
 
 да пжалста. вот эта хрень меня об ошибках на сайтах оповещает:
 
 sub send_sms {
   # Телефон без +7-812, msg - в koi
   my ($tel,$rus,$msg)=@_;
   $rus=$rus?'&co=on':'';
         $msg=~s/([^a-zA-Z0-9_.-])/uc sprintf("%%%02x",ord($1))/eg;
   my $msg="tel=%2B7812$tel&txt=$msg&send=send$rus";
   my $s=IO::Socket::INET->new('technical.nwgsm.ru:80');
   return unless $s;
   $s->print("POST /cgi-bin/sms-gw HTTP/1.0
 Referer: http://technical.nwgsm.ru
 User-Agent: Mozilla/4.7 [en] (X11; I; Linux 2.2.14-1.2bc i686; Nav)
 Host: technical.nwgsm.ru
 Content-type: application/x-www-form-urlencoded
 Content-length: ",length($msg),"\n\n$msg\n");
   $s->close;
 }
 -- 
 // pavel kurnosoff 
 --- Gnus v5.6.45/XEmacs 21.1 - "Bryce Canyon"
  * Origin: there's no tomorrow (2:5030/736.25)
 
 

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