Возможно ли? Например, формируем письмо и шлем его на специальный емыл, а кому положено приходит sms'ка. Было бы очень даже хорошо. Может кто-нибудь знает такой сервис?
Весч хорошая, но к сожалению не катит. Мне такой способ отправки смс (через электропочту) нужен для автоматизации процесса оповещения, енто позволит мне не лазит на емыл за отчетами, а получать их смской.
Раньше были такие бесплатные общедоступные сервисы, назывались smtp to sms gateway, помоему все благополучно загнулись. Многие операторы gsm предоставляют такой персональный сервис бесплатно (если даже не все). Если поискать можно найти за деньги. Проще наверно присобачить дешевый мобильник к серверу на компорт - ПО в интернете полно для для этого (можно просто через at команды слать без всякого ПО), и купить какой-нить тариф с символической платой за смс. Есть парсилки готовые которые ужимают текст письма до 160 символов - от кого,кому и с чем примерно :)
Я давно делал на сервере такое - если кому надо, подключали сервис у оператора своего, говорили мне адрес электронный, я через процмайл скармливал его входящие парсилке и перенаправлял на этот адрес.
телефон, по которому активируется услуга билайна доставки
sms-сообщений на мобильник 06849909
далее они присылают в СМСке адрес, на который надо слать сообщения
вида 790550484XX@sms.beemail.ru
потом пишется например такой скрипт, который отправляет сообщения:
#!/usr/bin/perl -w
use lib '/home/rel/ivan/nasa/File-Tail-0.99.1/blib/lib/';
use lib '/home/rel/ivan/nasa/MIME-Lite-3.01/blib/lib/';
use MIME::Lite;
use File::Tail;
$l = '/home/rel/ivan/nasa/socket_demo.log';
my $m1="790550484XX\@sms.beemail.ru";
&tail_socket();
#06849909
do{
$k.=$_ if $_!~m/PKT.*?===END===/s;
do{
$a=$1 if $k=~m!BURST_RA:\s+?(.*?)d!s;
** Joe's Own Editor v2.9.7 ** Copyright (C) 2001 **
do{
$a=$1 if $k=~m!BURST_RA:\s+?(.*?)d!s;
$d=$1 if $k=~m!BURST_DEC:\s+?(.*?)d!s;
$p.=$1 while $k=~m!COMMENTS?:?\s+?(.*?)\n!gs;
print "[$a $d $p]\n";
# qx[perl /home/rel/ivan/nasa/mail.pl $a $d $p] if $a and $d;
&message($a,$d,$p) if $k!~m/Type= 2\s/;
$p=''; $k=''; $a=''; $d='';
} if $k=~m!PKT.*?BURST_RA.*?BURST_DEC.*?===END===!s;
$k='' if $_=~m!PKT.*?===END===!s;
} while($_=$fi->read);
sub tail_socket{
return $fi = File::Tail->new(
name => $l,
maxinterval => 0.1,
adjustafter => 1000000000,
interval => 4,
tail => 0)
}
sub message{
my $msg = MIME::Lite->new( From => 'GRB',
To => "$m1",
Subject => 'grb',
Type => 'text/plain',
Data => "a: $_[0] d: $_[1] $_[2]" );
$msg->send();
}
Эта схема работает только в случае прямой отправки с демона,
ответственного за мыло. Форвард билайн редиректит, т.е. в настройках
халявных почтовых ящиков врядли получится получать смски вписав форвард...