В Asterisk есть штатный будильник - напоминаловка, если вы загляните в директорию /var/lib/asterisk/agi-bin, то увидите что-то похожее на wakeup.php. Вещь не плохая, но хочу предложить Вашему вниманию, более продвинутую версию русскоговорящего будильника. В нашем случае, Вы можете отправлять голосовые сообщения как сами себе, так и на любые другие номера. Причем задавать дату можно как в четком виде ГГММДД ЧЧММ, так и в неявном виде, через 10 минут от текущего времени, или через 3-и дня от текущей даты.Концепция будильника следующая, пользователь вводит со своего телефона комбинацию цифр вида *0*X*Y*Z, где
X - дата, когда необходимо озвучить сообщение
Y - время, когда необходимо озвучить сообщение
Z - номер, на который необходимо позвонить для проигрывания сообщения
Возможные варианты значения X (дата, когда проигрывать напоминание)
0 - Звонить сегодня
От 1 до 99 - Позвонить через 1-99 дней
ГГГГММДД - Позвонить в конкретную дату
Возможные варианты значения Y (время, когда проигрывать напоминание)
0 - Звонить в это время (не работает с текущим днем)
От 1 до 999 - Звонить через 1-999 минут
ЧЧММ - Звонить в конкретное время
Возможные варианты значения Z (номер куда будем отправлять напоминание)
0 - Номер с которого звонят
zzz -Локальный номер (у меня 3-значные номера)
zzzzzzzzzzzzzzzzz - Внешний номер, может быть любым!
Примеры:
*0*0*120*0 - позвонить через 2-а часа на свой телефон, и озвучить надиктованное сообщение (не забыть выключить суп!).
*0*20101231*2300*777 - позвонить 31 декабря 2010 года в 23.00 на номер 777 и озвучить поздравление с новым годом!
*0*30*1500*78123090607 - позвонить через 30 дней в 15.00 на номер 78123090607 и озвучить сообщение (пора оплачивать счета)!
*0*20110308*0*1234567 - позвонить 8 марта 2011 года в текущее время на номер 1234567 и озвучить поздравление с праздником!
Думаю, концепция ввода даты, времени и номера, куда необходимо позвонить для напоминания вам ясна. Теперь перейдем к технической реализации нашей задачи.
В файле extensions.conf мы должны описать наш экстеншен!
exten => _*0*X.,1,Answer
exten => _*0*X.,n,AGI(reminder.agi)
exten => _*0*X.,n,Hangup
Таким образом, все набранные номера, которые начинаются с *0* попадают в наш контекст и включают скрипт reminder.agi
Далее опишем контекст go - он запускается call файлом в момент когда происходит дозвон до абонента с целью озвучить надиктованное сообщение.
exten => go,1,NoOp("Будильничег")
exten => go,n,AGI(reminder_listen.agi)
exten => go,n,HagnUp
ну и теперь самое интересное, это наши скрипты
/var/lib/asterisk/agi-bin/reminder.agi
#!/usr/bin/perl
use Asterisk::AGI;
use POSIX;
use File::Copy;
use Time::Local;
use Date::Calc qw (Add_Delta_Days);
$AGI = new Asterisk::AGI;
my %input = $AGI->ReadParse();
$trunk="megatrank";
# начало отсчета с 1900 года, значение year - смещение от 1900 года
$datesec=time;
#chomp($datesec);
# получаем значение exten и заносим в переменную $digit -
# это то что набрал пользователь на своем телефоне, далее мы
# разберем по частям эти цифры с целью понять что хотел сказать
# пользователь (когда и куда звонить)
$digit = $AGI->get_variable('EXTEN');
# на всякий случай, выдергиваем номер звонящего
$src = $AGI->get_variable('CALLERID(num)');
#регулярным выражением выдергиваем значения даты времени и номера звонящего
$digit =~ /^\*0\*(\d+)\*(\d+)\*(\d+)/;
$wdate=$1;
$wtime=$2;
$wnum=$3;
# вводим маленькую функцию для озвучки ошибки набора, что бы
# несколько раз не писать один и тот же код!
# обратите внимание, я взял звуковые файлы с http://ivrvoice.ru/downloader
# и перекинул их в Asterisk в папку /var/lib/asterisk/sounds/ru11 !
sub digit_error {
$AGI->exec('Wait',"1");
$AGI->exec('Playback',"ru11/an-error-has-occured");
$AGI->exec('Playback',"ru11/check-number-dial-again");
exit 0;
}
# звуковые файлы в директории digits мною были заменены с
# английского на русский аналог, все с того же сайта. На самом
# деле это не совсем верно, по идее Астериск должен цеплять
# русские файлы после переопределения глобальной переменной LANG,
# однако сходу у меня не получилось, потому исправил ситуацию
# простым копированием файлов.
# Данная функция, корректно для нашего чисто русского слуха, озвучивает день!
sub say_day {
$sayday=$_[0];
if ("$sayday" < 20) {
$AGI->exec('Playback',"digits/h-$sayday\\n");
} elsif ( 20 < "$sayday" and "$sayday" < 30 ) {
$sayday=~/\d(\d)/;
$AGI->exec('Playback',"digits/20");
$AGI->exec('Playback',"digits/h-$1\\n");
} elsif ( "$sayday" == 20 ) {
$AGI->exec('Playback',"digits/h-20n");
} elsif ( "$sayday" == 30 ) {
$AGI->exec('Playback',"digits/h-30n");
} else {
$AGI->exec('Playback',"digits/30");
$AGI->exec('Playback',"digits/h-1\\n");
}
}
# берем локальное время и разбиваем на переменные
($sec2,$min2,$hour2,$mday2,$mon2,$year2,$wday2,$yday2,$isdst2)=localtime($datesec);
# не забываем к году прибавить 1900 а к месяцу единичку
$tmpyear2=$year2+1900;
$tmpmon2=$mon2+1;
# для проверки работы скрипта выводим на экран информацию, когда у нас задание стартовало.
$AGI->exec('NoOp',"Старт_задания_$tmpyear2.$tmpmon2.$mday2\_в_$hour2:$min2");
#####
# если пользователь ввел в поле дата 8 цифр, значит он имел ввиду четкую дату!
if (length($wdate) eq "8") {
$wdate =~ /(\d{4})(\d{2})(\d{2})/;
$timestamp1 = timelocal($sec2,$min2,$hour2,$3,$2-1,$1-1900);
# если ввел 0 – значит имел ввиду что запустить будильник сегодня
} elsif ($wdate eq "0") {
$timestamp1=$datesec;
# если ввел 2-х значное число, значит имел ввиду что пускть задание через сколько то дней.
} elsif (length($wdate) ge "1" and length($wdate) le "2" and $wdate ne "0") {
$timestamp1=$datesec + $wdate*86400;
# ну а если ерунду ввел, значит говорим ему об этом в мягкой форме и отключаемся
} else {
&digit_error;
}
# обратите внимание, я не делал проверку на правильность ввода
# даты, т.е. система проверяет, кол-во дней в месяце, месяцев в
# году, что не есть хорошо, но на мой взгляд это не критично!
####
# Та же операция с временем
if (length($wtime) eq "4") {
$wtime =~ /(\d{2})(\d{2})/;
$timestamp=$timestamp1-(localtime($datesec))[2]*3600-(localtime($datesec))[1]*60+($1*3600)+($2*60);
} elsif ($wtime eq "0") {
$timestamp=$timestamp1+60;
} elsif (length($wtime) ge "1" and length($wtime) le "3") {
$timestamp=$timestamp1+$wtime*60;
} else {
$AGI->exec('NoOp',"Не_верно_задано_время");
&digit_error;
}
####
($sec1,$min1,$hour1,$mday1,$mon1,$year1,$wday1,$yday1,$isdst1)=localtime($timestamp);
$mon_sound="mon-$mon1";
$mon1++;
$year1=1900+$year1;
# В результате хитрых и не очень операций, получаем время, когда
# необходимо позвонить нашему абоненту!
$AGI->exec('NoOp',"Выполнение_задачи_$year1.$mon1.$mday1\_в_$hour1:$min1");
####
# если же дата выполнения задачи ранее текущей даты, значит
# пользователь ошибся при вводе даты и времени
if ($timestamp le $datesec) {
$AGI->exec('NoOp',"Дата_задания_меньше_текущего_времени!");
&digit_error;
}
####
# проделываем похожую операцию с номером куда будем звонить, при 0
# - звоним сами себе, если длина введенных цыфр от 3-х до 4-х,
# значит это локальный звонок, если ни то не другое, пользователь
# имел ввиду что звоним на внешний номер!
if ( $wnum eq "0" ) {
$ch="SIP/$src";
$dst="$src";
} elsif ( length($wnum) eq "4" or length($wnum) eq "3") {
$ch="SIP/$wnum";
$dst="$wnum";
} else {
$ch="SIP/$wnum\@$trunk";
$dst="$wnum";
}
#формируем имя файла для звонка
$records="$year1$mon1$mday1\-$hour1$min1-$dst";
$filename="/var/lib/asterisk/sounds/records/$records.sln";
CICLE3:
# Приятный женский голос говорит - оставьте сообщение после
# сигнала, затем нажмите решетку или повесьте трубку. Вешать
# трубку не следует, т.к. нам необходимо будет подтвердить запись,
# потому необходимо после надиктованного сообщения нажать решетку
$AGI->exec('Playback',"ru11/vm-intro");
$AGI->exec('Record',"records/$records.sln||10");
CICLE2:
# Тут мы озвучиваем само сообщение и куда и когда оно будет отправлено
$AGI->exec('Playback',"ru11/vm-soobshenie");
$AGI->exec('Playback',"ru11/na-nomer");
$AGI->exec('SayDigits',"$dst");
$AGI->exec('Playback',"digits/at");
$AGI->exec('Playback',"digits/day-$wday1");
&say_day($mday1);
$AGI->exec('Playback',"digits/$mon_sound");
$AGI->exec('Playback',"digits/at");
$AGI->exec('SayNumber',"$hour1");
$AGI->exec('Playback',"ru11/hours");
$AGI->exec('SayNumber',"$min1");
$AGI->exec('Playback',"ru11/minutes");
$AGI->exec('Playback',"records/$records");
# ввели счетчик возварата к прослушки или записи, что бы пользователь не заигрывался.
$count++;
if ($count eq "5") { $AGI->exec('Playback',"ru11/goodbye");
unlink($filename); exit 0; }
# подтверждаем запись (нажмите 1-н что бы принять сообщение 2-а
# что бы прослушать, 3-и что бы записать его заново)
$AGI->exec('Read',"rep|ru11/vm-review|1||1|5");
$rep = $AGI->get_variable("rep");
if ( $rep eq "2" ){
goto CICLE2;
} elsif ( $rep eq "3" ) {
unlink($filename);
goto CICLE3;
# если пользователь вводит 1-н, тем самым подтверждая запись,
# ему говорить что сообщение записано и формируется call файл в
# контексте wakeup экстеншен go, максимальное количество
# попыток дозвона 3, время ожидания на проводе 60 сек. Так же
# говорим что CallID у нас подменяется на NOTE (напоминание),
# это нужно для локальных телефонов с дисплеем, что бы можно
# было понять от кого звонок и передаем переменную в астериск
# date, говорящую когда была сделана запись, а так же
# переменную с именем файла, который будем слушать.
} elsif ( $rep eq "1" ) {
$AGI->exec('Playback',"ru11/vm-msgsaved");
open (CALL, "> /tmp/$records");
print CALL "Channel:$ch\nContext:wakeup\nExtension:go
\nPriority:1\nMaxRetries:3\nRetryTime:60\nWaitTime:60
\nCallerID:NOTE<$src>\nSet:date=$datesec\nSet:src=$src
\nSet:records=$records\n";
close (CALL);
# меняем атрибуты файла, что бы астериск при чтении директории
# outgoing не запускал сразу после перемещения нашего call файла процесс дозвона.
utime($timestamp,$timestamp,"/tmp/$records");
move("/tmp/$records","/var/spool/asterisk/outgoing/$records");
$AGI->exec('Playback',"ru11/goodbye");
exit 0;
}
# попрощались и удалили временный файл.
$AGI->exec('Playback',"ru11/demo-moreinfo");
unlink($filename);
exit 0;
Скрипт рабочий, у Вас могут возникнуть сложности только с модулями, в таком случае идем на http://search.cpan.org/ и качаем необходимые модули.
Обратите внимание все записанные файлы хранятся в директории /var/lib/asterisk/sounds/records в формате sln - при создании директории поменяйте правильно права, иначе работать не будет!
Сообщение записали, теперь нужно бы его прослушать.
Итак скрипт ./reminder_listen.agi
#!/usr/bin/perl
use Asterisk::AGI;
use POSIX;
use File::Copy;
use Time::Local;
$AGI = new Asterisk::AGI;
my %input = $AGI->ReadParse();
$count=0;
sub say_day {
$sayday=$_[0];
if ("$sayday" < 20) {
$AGI->exec('Playback',"digits/h-$sayday\\n");
} elsif ( 20 < "$sayday" and "$sayday" < 30 ) {
$sayday=~/\d(\d)/;
$AGI->exec('Playback',"digits/20");
$AGI->exec('Playback',"digits/h-$1\\n");
} elsif ( "$sayday" == 20 ) {
$AGI->exec('Playback',"digits/h-20n");
} elsif ( "$sayday" == 30 ) {
$AGI->exec('Playback',"digits/h-30n");
} else {
$AGI->exec('Playback',"digits/30");
$AGI->exec('Playback',"digits/h-1\\n");
}
}
# Получаем от Asterisk данные о том, откуда поступило напоминание,
# имя звукового файла и дата когда была сделана запись.
$src = $AGI->get_variable('src');
$records = $AGI->get_variable('records');
$filename="/var/lib/asterisk/sounds/records/$records";
$date = $AGI->get_variable('date');
($sec1,$min1,$hour1,$mday1,$mon1,$year1,$wday1,$yday1,$isdst1)=localtime($date);
$mon_sound="mon-$mon1";
CICLE1:
# Начинаем грузить нашего абонента информацией откуда был сделан
# звонок, когда и что собственно от него хотели!
$AGI->exec('Playback',"ru11/vm-from-phonenumber");
$AGI->exec('SayDigits',"$src");
$AGI->exec('Playback',"digits/at");
$AGI->exec('Playback',"digits/day-$wday1");
&say_day($mday1);
$AGI->exec('Playback',"digits/$mon_sound");
$AGI->exec('Playback',"digits/at");
$AGI->exec('SayNumber',"$hour1");
$AGI->exec('Playback',"ru11/hours");
$AGI->exec('SayNumber',"$min1");
$AGI->exec('Playback',"ru11/minutes");
$AGI->exec('Playback',"records/$records");
# В конце концов ошарашенного таким напором абонента мы
# переспрашиваем, хочет ли он еще раз прослушать наше сообщение,
# если да то у него еще в запасе 4-ре раза прослушки, далее цикл
# прервется и система ему скажет goodbye, удалит файл и повесит трубку.
$AGI->exec('Read',"rep|ru11/vm-repeat|1||1|5");
$rep = $AGI->get_variable("rep");
if ( $rep eq "5" ){
$count++;
$AGI->exec('NoOp',"$count");
if ($count eq "3") {
$AGI->exec('Playback',"ru11/goodbye");
unlink($filename); exit 0;
}
goto CICLE1;
}
unlink($filename);
exit 0;
Вот собственно и все. Как мог подробно изложил информацию. Конечно во многих местах код можно более изящно написать, но данная система работает довольно стабильно.
URL: http://3090607.ru/note/28-create-wakeup
Обсуждается: http://www.opennet.ru/tips/info/2472.shtml
