Создаём веб-форму для отправки факсов через Asterisk

Занимаясь развитием и эксплуатацией VoIP сети в одном из провайдеров неминуемо приходится сталкиваться со множеством проблем. Наверно, одними из самых неприятных и трудозатратных были и остаются проблемы, связанные с факсами, которые зачастую возникают при подключении к новому оператору или неожиданно всплывают у существующих.

Чтобы как-то автоматизировать процесс проверки прохождения факсов для нашей техподдержки реализовал веб интерфейс, позволяющий осуществить отправку факса на нужного оператора. Статья предполагает наличие установленного Астериска с работающим модулем Fax for Asterisk. Астериск будет делать вызовы на некий софтсвич, который в свою очередь направит звонок на нужного оператора.

Как работает логика отправки?

Необходимым условием является наличие принимающей факс-машины, работающей в автоматическом режиме, иначе Астериск не сможет детектировать на принимающей стороне факс-аппарат и инициализировать сессию отправки по протоколу t38. Использование протокола t.38 позволяет получить высокую вероятность прохождения факсов в сетях ip.

Итак, наш скрипт будет создавать для Астериска файл вызова, ответственный за дозвон на номер факс-машины. Скрипт будет также знать, через какого оператора осуществить вызов. Может возникнуть ситуация, когда факс-машина, находится на заранее известном внутреннем номере. В этом случае мы можем заставить Астериск осуществить его донабор и уже затем инициировать отправку факса.

Код html формы следующий

    <title>Форма для отправки факсов</title>
    <body>
    <h2>Форма для отправки факсов</h2>
    Через какого оператора звоним?
    <form name="forma1" method=post action="/cgi-bin/callback-fax.pl">
    <p>
    <SELECT NAME="operator">
    <OPTION VALUE ="operator-1">operator-1
    <OPTION VALUE ="operator-2">operator-2
    <OPTION VALUE ="operator-3">operator-3
    <OPTION VALUE ="operator-4">operator-4
    <OPTION VALUE ="operator-5">operator-5
    <OPTION VALUE ="operator-6">operator-6
    </SELECT>
    <p>
    На какой номер отправляем факс?	<INPUT NAME="number" VALUE ="" SIZE=15 MAXLENGTH=15>
    <p><b>Начать отправку сразу без донабора внутрненнего номера?</b><INPUT TYPE="CHECKBOX" NAME="direct_dial" CHECKED="1" VALUE ="1">
    
через     <INPUT NAME="direct_dial_timeout" VALUE ="2" SIZE=2 MAXLENGTH=2>секунд
    <p>Если не выбрана отправка сразу, можно донабрать на внутренний номер(укажите внутренний номер)	<INPUT NAME="disa_number" VALUE ="" SIZE=4 MAXLENGTH=4> через указанное число секунд после прослушивания приветствия	<INPUT NAME="disa_timeout" VALUE ="" SIZE=2 MAXLENGTH=2>
    
На какую почту сообщить статус отправки?	<INPUT NAME="mailbox" VALUE ="" SIZE=20 MAXLENGTH=50>
    <p><input type="submit" name="submit" value="Отправить Факс!">
    </form>
    </body>

При активации из формы отправки факса инициализируется скрипт callback-fax.pl, который разбирает переданные ему параметры, создаёт файл вызова(callfile) Важным здесь является подстановка нужного префикса к номеру в зависимости от выбранного в html форме оператора. В зависимости от того, нужен ли донабор на факс-машину или нет, скрипт вызывает нужную логику из диалплана Астериска(Extension 100 или Extension 200)

    #!/usr/bin/perl
    use strict;
    use warnings;
    use CGI qw(:standard);
 
    my $operator = param('operator');
    my $original_number = param('number');
    my $send_fax_now = param('direct_dial');
    my $send_fax_now_timeout = param('direct_dial_timeout');
    my $send_fax_disa_number = param('disa_number');
    my $send_fax_disa_timeout = param('disa_number');
    my $mailbox = param('mailbox');
 
    my %operator_prefix = (
                            operator-1 => '01',
                            operator-2 => '02',
                            operator-3 => '03',
                            operator-4 => '04',
                            operator-5 => '05',
                            operator-6 => '06'
                            );
 
    my $number = $operator_prefix{$operator} . $original_number;
    print "Content-type: text/html\n\n";
    print "Sending fax... you will be e-mailed at <b>$mailbox</b>
\n";
    if ($send_fax_now == 1){
            open (F, ">/var/spool/asterisk/outgoing/$number");
            print F "Channel: SIP/";
            print F "$number";
            print F "\<hh user=softswitch>\n";
            print F "Callerid: 7495XXXXXXX\n";
            print F "Context: send_fax\n";
            print F "Extension: 100\n";
            print F "MaxRetries: 1\n";
            print F "Retrytime: 5\n";
            print F "WaitTime: 60\n";
            print F "Priority: 1\n";
            print F "SetVar: operator=$operator\n";
            print F "SetVar: original_number=$original_number\n";
            print F "SetVar: email=$mailbox\n";
            print F "SetVar: send_fax_now_timeout=$send_fax_now_timeout";
    close F;
    }
    else {
            open (F, ">/var/spool/asterisk/outgoing/$number");
            print F "Channel: SIP/";
            print F "$number";
            print F "\<hh user=softswitch>\n";
            print F "Callerid: 7495XXXXXXX\n";
            print F "Context: send_fax\n";
            print F "Extension: 200\n";
            print F "MaxRetries: 1\n";
            print F "Retrytime: 5\n";
            print F "WaitTime: 60\n";
            print F "Priority: 1\n";
            print F "SetVar: operator=$operator\n";
            print F "SetVar: original_number=$original_number\n";
            print F "SetVar: email=$mailbox\n";
            print F "SetVar: send_fax_disa_number=$send_fax_disa_number\n";
            print F "SetVar: send_fax_disa_timeout=$send_fax_disa_timeout";
            close F;
    }
    open (LOGFILE, ">>/var/log/faxsend.log");
    my $date = localtime;
    print LOGFILE "$date:$original_number:$operator\n";
    close LOGFILE;

Теперь переёдм к конфигурации extensions.conf Астериска. Здесь как ни странно всё просто. На extension 100 отправляем факс сразу, extension 200 шлёт факс после донабора. По Hangup шлём отчёт в почту об отправке не забывая поставить себя в копию ;)

    [send_fax]

    exten => 100,1,Wait(${send_fax_now_timeout})
    exten => 100,n,NoOp(${TIFF_FILE})
    exten => 100,n,SendFAX(/usr/dumps/test-fax.tiff,d)
    exten => 100,n,NoOp(${FAXSTATUS})
    exten => 100,n,Hangup()

    exten => 200,1,Wait(${send_fax_disa_timeout})
    exten => 200,n,SendDTMF(${send_fax_disa_number})
    exten => 200,n,NoOp(${TIFF_FILE})
    exten => 200,n,SendFAX(/usr/dumps/test-fax.tiff,d)
    exten => 200,n,NoOp(${FAXSTATUS})
    exten => 200,n,Hangup()


    exten => h,1,NoOp(email is ${email}:operator is ${operator}:number is ${original_number})
    exten => h,n,System(/usr/local/bin/sendEmail -f fax@domain.com -t ${email} -bcc makarov@domain.com -u 'Fax message Sent' -m 'operator:${operator}\nnumber:${original_number}\nStatus:${FAXSTATUS}' -s mx.domain.com -l /var/log/fax.log)

К скрипту по желанию можно также добавить форму для закачки какой-либо картинки с последующей отправкой, однако нужно не забыть привести её в tiff, с которым может работать Астерисковый SendFax(). Например, tiffinfo в моём случае говорит:

    [root@PBX-CALLBACK dumps]# tiffinfo test-fax.tiff
    TIFF Directory at offset 0x8 (8)
      Subfile Type: multi-page document (2 = 0x2)
      Image Width: 1728 Image Length: 1172
      Resolution: 204, 98 pixels/inch
      Bits/Sample: 1
      Compression Scheme: CCITT Group 4
      Photometric Interpretation: min-is-white
      FillOrder: msb-to-lsb
      Orientation: row 0 top, col 0 lhs
      Samples/Pixel: 1
      Rows/Strip: 1172
      Planar Configuration: single image plane
      Page Number: 0-0
      Software: GPL Ghostscript 8.70
      DateTime: 2011:12:23 16:04:13
      Group 4 Options: (0 = 0x0)
sozdajom_veb-formu_dlja_otpravki_faksov.txt · Последние изменения: 2013/11/18 13:55 (внешнее изменение)
GNU Free Documentation License 1.3
Driven by DokuWiki Recent changes RSS feed Valid CSS Valid XHTML 1.0 Яндекс.Метрика