perl-скрипт для отправки SMS через сайт @ DeForum.ru

Кто-нибудь пытался такое делать? (см. сабж)
А то почему-то у меня не выходит. Вроде бы, использую LWP, полностью передаю POST-запрос, но в ответ получаю "Access denied".

Это я, кончено, про mts.ru говорю. На beeonline.ru такую возможность уже прикрыли (довольно оригинальным способом).

SPiRiT скрипт в студию.

Вот он, этот код:

use LWP::UserAgent;
$ua = LWP::UserAgent->new;
$ua->proxy(['http', 'ftp'] => 'xxxx');
$req = HTTP::Request->new('POST',"http://www.mts.ru/cgi-bin/cgi.exe");
$req->content('MMObjectType=0&MMObjectID=&To=7910xxxxxxx&Msg=hello&count=5&Hour=18&Min=19&Day=02&Mon=10&Year=2002&Lang=2');
$req->proxy_authorization_basic("xxx", "xxx"); #извините за прямоту [img]images/smiles/icon_smile.gif[/img]
$res = $ua->request($req);
print $res->content;

* Строку POST-запроса взял прямо из лога браузера.
* Куки на сайте МТС не используются (проверял с отключенными)

[ 02 Октября 2002: Исправлено SPiRiT ]

[ 30 Октября 2002: Исправлено SPiRiT ]

Мммм...
То ли я слепой, то ли...
При отправки сообщения еще мотодом GET передаеться function=sms_send. Посему и не отправляет.

А вообще то я когда-то писал скрипт для отправки SMS посредством заграничного сайта. Не знаю, жив ли он еще или нет, но может пригодится:

#!/usr/local/bin/perl

use CGI qw(param);
use HTTP::Request::Common;
use LWP::UserAgent;
use HTTP::Cookies;

############################## param #################################
$n=param("n");
$m=param("m");
$t="Отправка SMS сообщений";
SWITCH:
{
if ($n ne "")
if ($n eq "")
}

############################## sub ###################################
sub PrintForm {
print <<"EOHT";
Content-type: text/html

<html><head><title>$t</title></head>
<body bgcolor=#000000 text=#cccccc>
<form metod=get action="sms.cgi" name="send">
<table border=0 width=100%>
<tr>
<th align=center colspan="2">
<a name="1" style="font-size:12pt;color:#cccccc;">$t</a>
</th>
</tr>
<tr>
<td align="right" valign=top nowrap>Номер телефона <input type="text" size=40 name="n" value="+7"></input></td>
<td align=left><textarea rows=3 cols=40 name="m"></textarea></td>
</tr>
<tr>
<td> </td>
<td align="left"><input type="submit" value="Послать сообщение"></td>
</tr>
</table>
</form><p>
</body>
</html>
EOHT
}
sub SendMsg {
$cok=HTTP::Cookies->new;
$ua=LWP::UserAgent->new;

$ua_response=$ua->request(POST 'http://www.mtnsms.com/session.asp',
[username => 'xxxxxx(user)',
password => 'xxxxxx(pass)',
]);
$cok->extract_cookies($ua_response);

$answere=$ua_response->content;
$answere=~/<body><h1>Object\s+Moved<\/h1>This\s+object\s+may\s+be\s+found\s+<a\s+HREF="([^"]+)">here<\/a>\.<\/body>/;
$page=$1;
#print "$page\n";

$req=HTTP::Request->new(GET => $page);
$cok->add_cookie_header($req);
$ua_response=$ua->request($req);
$cok->extract_cookies($ua_response);

$page="$page?smsToNumbers=$n&smsMessage=$m&smsSig=0&smsSigDyna=Pupkin";

$req=HTTP::Request->new(POST => $page);
$cok->add_cookie_header($req);
$ua->request($req);

$t="Сообщение отправлено";&PrintForm;
}

Халява на ом сайте сдохла... А жаль, скрипт дублирования почты по sms был уже готов... (собственно для этого я и писал этот скрипт) [img]images/smiles/icon_sad.gif[/img]
Не подскажите других подобных сайтов? [img]images/smiles/icon_wink.gif[/img]

[ 14 Октября 2002: Исправлено Kwazar ]

DeДверь
Логин:
Пароль:
	Автологин