LINUX.ORG.RU

Отправка sms


0

0

Здравствуйте.

Надо отправлять много смс'ок (на телефоны клиентов). Как и чем это можно сделать?

Сейчас как вариант вижу только подключить телефон и через какую-нибудь программку это делать?

Может есть более удобные варианты?

anonymous

Ответ на: Re: Отправка sms от ROMANEX

Re: Отправка sms

Т.е. поднимается локальный почтовик, к этому же компу цепляется телефон и в результате получается типа e-mail->sms шлюз?

Если все правильно понял то может кто примерчиком поделится? а то свой велосипед не очень охото городить...

anonymous ()
Ответ на: Re: Отправка sms от paranormal

Re: Отправка sms

>не, с почты можно отправлять sms Далеко не у всех опсосов есть эта функция

anonymous ()

Re: Отправка sms

попробуй с любого почтовика отправить письма на телефон, допустим для БИ это +xxxxxxxxxxx@beeline.ua, если прийдет то можешь то же сотворить и со своим почтовиком, если нет (а как сказали выше не все операторы поддерживают такое, а если и поддерживают то по умолчанию отключают услугу приема сообщений с мыла) тогда нужно мудрить с подключением телефона.

ROMANEX ()
Ответ на: Re: Отправка sms от ROMANEX

Re: Отправка sms

у требуемых мне операторов эта фишка есть. тока она у всех отключена... :(

может у кого был опыт подключения телефона для этой цели?

какую мобилу лучше взять? какой софт юзать? (нашел перловский модуль GSM::SMS, но как то не охота весь остальной функционал реализовывать)...

какая пропускная способность у этого дела? надо отправлять порядка 500 (пока) sms, изредка (ну скажем два раза в месяц)

anonymous ()

Re: Отправка sms

я у себя организовал небольшой шлюз, принимает через http post смску, далее парсит ее на абонента,
и в соответствии с оператором либо на мыло либо через халявную веб форму...

anonymous2 ★★★★★ ()
Ответ на: Re: Отправка sms от anonymous2

Re: Отправка sms

собственно вот кому пригодится:

use CGI qw(param);
use LWP::UserAgent;
use Encode;
use MIME::Base64;
use Mail::Sendmail;

my $abonent = param('abonent');
my $message = param('message');
my $charset = param('charset');

print "Content-Type: text/html\n\n";

die unless($abonent || $message);
die unless($abonent =~ /^(\d{4})(\d{7})$/);

my $prefix = $1;
my $number = $2;

# operator www
if(9999 == $prefix)
{
    $charset = 'utf8' unless($charset);
    $message = "sms\@mydomain.ru: " . $message;
    Encode::from_to($message, $charset, 'koi8-r');
    my $ua = new LWP::UserAgent;
       $ua->timeout(10);
       $ua->get("http://халява_смс.ру/cgi-bin/sms.cgi?Prefix=$prefix\&phone
=$number\&message=$message");

# operator mail
}
elsif(9998 == $prefix)
{
    $prefix = 7902;

    Encode::from_to($message, $charset, 'utf8') if($charset);

    %mail = (
        To => $prefix . $number . '@sms.gateway.mail...ru',
        From  => 'sms@mydomain.ru',
        Subject => 'sms',
        'Content-type' => 'text/plain; charset="UTF-8"',
        Message => $message
    );

   sendmail(%mail);
}

два параметра abonent и message, и charset если необходимо перекодирование.
естественно вся безопасность на плечах апача.

anonymous2 ★★★★★ ()
Вы не можете добавлять комментарии в эту тему. Тема перемещена в архив.