|
ru.cgi.perl
- RU.CGI.PERL ------------------------------------------------------------------
From : Denis Zwerew 2:5030/1521 07 Sep 2001 11:05:11
To : All
Subject : отправка sms через sms.gt.com.ua
--------------------------------------------------------------------------------
Hичего не понимаю, через nwgsm написал, а через sms.gt.com.ua что-то не
выходит, может кто-чего посоветует?
sub send_sms2 {
($tel,$msg,$co)=@_;
#$tel =~ s/\+/%2B/;
$maxlen = (!$co) ? 160 : 140;
$len = $maxlen-length($msg);
$cs = (!$co) ? "s" : "u";
#$msg=~s/([^a-zA-Z0-9_.-])/uc sprintf("%%%02x",ord($1))/eg;
$msg="SM=$msg&num=$len&CS=$cs&MN=$tel";
$s=IO::Socket::INET->new('sms.gt.com.ua:8080');
return unless $s;
print("Connect<br>");
$s->print("POST /SendSM.htm HTTP/1.0
Referer: http://sms.gt.com.ua/index.htm
User-Agent: Mozilla/4.7 [en] (X11; I; Linux 2.2.14-1.2bc i686; Nav)
Host: sms.gt.com.ua
Content-type: text/html
Content-length: ",length($msg),"\n\n$msg\n");
print("$msg<br>");
$s->close;
}
может конечно надо поставить другой Content-type не text/html, а например
application/x-www-form-urlencoded, но вроде не надо...
P.S.: может у кого есть другие url'ы отправки sms или даже уже готовые скрипты
подменяющие заголовок этих урлов - буду рад увидеть :)
ответ либо в эху, либо в мыло, либо e-mail: netdevil@ilimpulp.ru
С наилучшими пожеланиями,
Denis.
ICQ UIN: 7311194 (Always OnLine)
Phone (work): 118-4800 (10:00 - 18:00)
--- DataBase Administrator of Ilim Pulp Enterprise
* Origin: -> Denis.Zverev@ilimpulp.ru <- (2:5030/1521)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
