What I have and what I want

1.两个perl的例子

一个是《Freeiris2开发人员手册》中的"打开你的软电话,拨号1234你会听到随机数"

# 我的测试程序 # 说明主函数,必写 sub echo_gpl_license(){return("my echo example");} # 入口函数，名字要与文件名相同. sub echo { my $self = shift; #agispeedy对象 my $AGI = $self->{server}{agi}; #Asterisk::config AGI对象 my $INPUT = $self->{server}{input}; #AGI参数 my $PARAM = $self->{server}{params}; #URL提交参数 my $FRI2CONF = $self->{server}->{fri2conf}; #Freeiris2配置 my $DBH = $self->database_pconnect(); #数据库资源 #从数据库中获得随机数 my $sth = $DBH->prepare("SELECT FLOOR(1000 + (RAND() * 2000))"); $sth->execute; my $randnumber = $sth->fetchrow_arrayref(); #执行extension 指令应答用户 $AGI->exec("answer"); #播放这个数 $AGI->say_digits($randnumber->[0]); #挂机 $AGI->hangup(); exit; }

让extensions能执行到这个程序

1. 登入freeiris2管理平台

2. 系统选项-->高级设置-->检索主通信文件-->点击"extensions_dianplan.conf"

3. [from-exten-sip]下面增加两句:exten => 1234,1,AGI(agi://127.0.0.1/echo)

4. 保存

5. 使修改生效: 当前帐户-->重启系统-->重置系统

第二个,是论坛上《快速进行三方通话》的一个脚本nway.pl

 

描述:在通话过程当中,被叫(系统分机)可按*4键,然后会听到提示音,然后输入第三方,之后会把主叫、被叫、第三方拉到一个会议室当中，进行三方通话

流程
               通话中
     主叫<-------->被叫
       |                        |
       |                        |
       |                        |
       |                 被叫按*4
       |                        |
主叫听提示音        |
                                |
                     被叫输入第三方号码
|                  |                 |
|________________|             系统呼叫第三方
        |                         |
        |                        呼叫成功
    主被叫进入会议室                    |
          |__________________________|

#!/usr/bin/perl -w use strict; use IO::Socket; my $EOL = "/r/n"; my $answer; my $callee_chan = shift; my $caller_chan = shift; my $dsts_object = shift; #################################################################### my $socket = IO::Socket::INET->new ( PeerAddr => 'localhost', PeerPort => 5038, Proto => "tcp" ) or die "Cannot connect socket/n"; $socket->autoflush(1); $answer = <$socket>; my $AuthStr = "Action: Login/r/n". "Username: freeiris/r/n". "Secret: freeiris/r/n". "/r/n"; $socket->send($AuthStr); while ($answer = <$socket> ) { last if( $answer eq $EOL ) ; } my $drop = "Action: Redirect/r/n". "Channel: $caller_chan/r/n". "ExtraChannel: $callee_chan/r/n". "Exten: $dsts_object/r/n". "Context: MeetMe/r/n". "Priority: 1/r/n". "/r/n"; $socket->send($drop); while ($answer = <$socket> ) { last if( $answer eq $EOL ) ; } my $Logoff = "Action: Logoff/r/n/r/n"; $socket->send($Logoff); $socket = IO::Socket::INET->new ( PeerAddr => 'localhost', PeerPort => 5038, Proto => "tcp" ) or die "Cannot connect socket/n"; $socket->autoflush(1); $answer = <$socket>; $AuthStr = "Action: Login/r/n". "Username: freeiris/r/n". "Secret: freeiris/r/n". "/r/n"; $socket->send($AuthStr); while ($answer = <$socket> ) { #print $answer; last if( $answer eq $EOL ) ; } my $callto = "Action: Originate/r/n". "Channel: SIP/$dsts_object/r/n". "Context: MeetMe/r/n". "Exten: $dsts_object/r/n". "Priority: 1/r/n". "CallerID: 5001 <5001>/r/n". "/r/n"; $socket->send($callto); #while ($answer = <$socket> ) { #print $answer; # last if( $answer eq $EOL ) ; #} $Logoff = "Action: Logoff/r/n/r/n"; $socket->send( $Logoff ); exit 0;

 

 

2. 文档,《Asterisk,电话未来之路!》,《Freeiris2开发人员手册》,《Perl语言入门》,《asterisk_gateway_interface_14_and_16_programming》以及"关于SIP协议的资料".

 

3.目前缺少的,Perl语言的精通程度,Asterisk的功能函数表,Agi(Asterisk Gateway Interface)的使用方法还需要整理出需要实现的功能清单...这一周估计都得花在这些里面了