<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META http-equiv=Content-Type content="text/html; charset=koi8-r">
<META content="MSHTML 6.00.2800.1106" name=GENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=#ffffff>
<DIV><FONT face=Arial size=2>Уважаемый community!</FONT></DIV>
<DIV><FONT face=Arial size=2></FONT> </DIV>
<DIV><FONT face=Arial size=2>У меня вот какая проблема:</FONT></DIV>
<DIV><FONT face=Arial size=2>Написал я скрипт на ПЕРЛе для передачи sms через
сайт <A href="http://www.nwgsm.com">www.nwgsm.com</A>, но к сожалению в ответе
на запрос приходит пустая форма, какбуд-то не переданы параметры. Бъюсь уже не
один день, из разных примеров, из разных систем (ALT Linux Master 2, FreeBSD,
Windows) - и ни какого положительного результата.</FONT></DIV>
<DIV><FONT face=Arial size=2>Хотя на сайт своей компании передаю таким же
образом - и все нормально.</FONT></DIV>
<DIV><FONT face=Arial size=2></FONT> </DIV>
<DIV><FONT face=Arial size=2>Подскажите кто знает или сталкивался с похожей
проблемой!!!</FONT></DIV>
<DIV><FONT face=Arial size=2></FONT> </DIV>
<DIV><FONT face=Arial size=2>Вот скрипт:
<HR>
</FONT></DIV><FONT color=#008000 size=2>
<P>#!/usr/bin/perl</FONT><FONT size=2><BR></FONT><FONT color=#008000
size=2>#print "Content-type: text/html\n\n";</FONT><FONT size=2><BR><BR>$send =
</FONT><I><FONT color=#800000 size=2>"пФРТБЧЙФШ УППВЭЕОЙЕ"</I></FONT><FONT
size=2>;<BR><B>sub</B> StrEscaped {<BR><B>my</B>
($str)=@_;<BR>$str=~</FONT><FONT color=#ff0000
size=2>s/([^0-9A-Za-z\?&=:;])/sprintf("%%%x", ord($1))/</FONT><FONT
size=2>eg;<BR><B>return</B> $str<BR>}<BR><BR><B>use</B> LWP::UserAgent;<BR>$ua =
new LWP::UserAgent;<BR>$ua->agent(</FONT><I><FONT color=#800000
size=2>"Mozilla/5 "</I></FONT><FONT size=2> .
$ua->agent);<BR><BR></FONT><FONT color=#008000 size=2>#$ua =
LWP::UserAgent->new;</FONT><FONT size=2><BR></FONT><FONT color=#008000
size=2>#$ua->env_proxy; # Взять прокси-настройки из окружения</FONT><FONT
size=2><BR></FONT><FONT color=#008000 size=2># или вручную</FONT><FONT
size=2><BR></FONT><FONT color=#008000 size=2>#$ua->proxy(ftp =>
'http://213.142.193.201');</FONT><FONT size=2><BR><BR><BR><BR><B>my</B> $req =
new HTTP::Request POST => <BR></FONT><FONT color=#008000 size=2>#
'http://www.tele-north.ru/cgi-bin/sms.cgi';</FONT><FONT
size=2><BR></FONT><I><FONT color=#800000
size=2>'http://www.nwgsm.com/cgi-bin/sms/smsgate'</I></FONT><FONT
size=2>;<BR>$req->content_type(</FONT><I><FONT color=#800000
size=2>'application/x-www-form-urlencoded'</I></FONT><FONT size=2>);<BR><BR>$tel
= StrEscaped(</FONT><I><FONT color=#800000 size=2>'+79217080502'</I></FONT><FONT
size=2>);<BR>$txt = StrEscaped(</FONT><I><FONT color=#800000 size=2>'FROM
9680005'</I></FONT><FONT size=2>);<BR>$req->content(</FONT><I><FONT
color=#800000
size=2>"tll=$tel&txt=$txt&co=on&send=send"</I></FONT><FONT
size=2>);<BR><BR><BR></FONT><FONT color=#008000
size=2>#$req->content("number=0005&telo=9680005&cou=1&podp=test&B1=$send");</FONT><FONT
size=2><BR><BR><B>my</B> $res = $ua->request($req);<BR><BR><B>print</B>
$res->content;<BR></P></FONT></BODY></HTML>