#!/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 "") {&SendMsg;last;}
if ($n eq "") {&PrintForm;last;}
}
############################## sub ###################################
sub PrintForm {
print <<"EOHT";
Content-type: text/html
$t
EOHT
}
sub SendMsg {
$cok=HTTP::Cookies->new;
$ua=LWP::UserAgent->new;
$ua_response=$ua->request(POST \'http://www.mtnsms.com/session.asp\',
[username => \'ваш логин\',
password => \'ваш пароль\',
]);
$cok->extract_cookies($ua_response);
$answere=$ua_response->content;
$answere=~/
Object\\s+Moved<\\/h1>This\\s+object\\s+may\\s+be\\s+found\\s+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=Vladimir";
#print "$page\\n";
$req=HTTP::Request->new(POST => $page);
$cok->add_cookie_header($req);
$ua->request($req);
$t="Сообщение отправлено";&PrintForm;
}
Я не уверен, что тот сайт жив, правда...
Если надо, могу за небольшую плату прикрутить вкрипт к почте через крон... (автозапуск) у вас на сервере.
