[Comm] LWP problemms

[mtx]

Уважаемый community!

У меня вот какая проблема:
Написал я скрипт на ПЕРЛе для передачи sms через сайт www.nwgsm.com, но к сожалению в ответе на запрос приходит пустая форма, какбуд-то не переданы параметры. Бъюсь уже не один день, из разных примеров, из разных систем (ALT Linux Master 2, FreeBSD, Windows) - и ни какого положительного результата.
Хотя на сайт своей компании передаю таким же образом - и все нормально.

Подскажите кто знает или сталкивался с похожей проблемой!!!

Вот скрипт:
--------------------------------------------------------------------------------

#!/usr/bin/perl
#print "Content-type: text/html\n\n";

$send = "пФРТБЧЙФШ УППВЭЕОЙЕ";
sub StrEscaped {
my ($str)=@_;
$str=~s/([^0-9A-Za-z\?&=:;])/sprintf("%%%x", ord($1))/eg;
return $str
}

use LWP::UserAgent;
$ua = new LWP::UserAgent;
$ua->agent("Mozilla/5 " . $ua->agent);

#$ua = LWP::UserAgent->new;
#$ua->env_proxy; # Взять прокси-настройки из окружения
# или вручную
#$ua->proxy(ftp => 'http://213.142.193.201');



my $req = new HTTP::Request POST => 
# 'http://www.tele-north.ru/cgi-bin/sms.cgi';
'http://www.nwgsm.com/cgi-bin/sms/smsgate';
$req->content_type('application/x-www-form-urlencoded');

$tel = StrEscaped('+79217080502');
$txt = StrEscaped('FROM 9680005');
$req->content("tll=$tel&txt=$txt&co=on&send=send");


#$req->content("number=0005&telo=9680005&cou=1&podp=test&B1=$send");

my $res = $ua->request($req);

print $res->content;

----------- следующая часть -----------
Вложение в формате HTML было удалено...
URL: <http://lists.altlinux.org/pipermail/community/attachments/20030114/d28302f0/attachment-0002.html>