用Perl 语言写freeswitch dialplan


freeswtich支持 lua, perl, php等脚本语言编写dialplan, 类似asterisk 里面的agi,但freeswitch 更轻量级，其xml格式dialplan 手写确实麻烦，mod_perl实现了用perl写dialplan的接口，也就是说我们可以用perl调用freeswich提供的api编写自己的业务逻辑，尤其是当你想在dialplan里面引入业务相关的，比如查询数据库，与第三方业务平台交互数据（json,xml格式等），用perl是个不错的选择。

方法：

1. 在xml dialplan里调用perl 脚本

创建文件 dialplan/default/demo_perl.pl

内容:

被叫号是4001时执行此流程，功能是给用户播放一个语音文件,然后验证设置并获取通道变量api.

  1. <include> 
  2. <extension name="perl_demo"> 
  3.       <condition field="destination_number" expression="^4001$"> 
  4.           <action application="answer"/> 
  5.           <action application="perl" data="demo_perl.pl" /> 
  6.       </condition> 
  7. </extension> 
  8. </include> 

app perl 为mod_perl提供的api,执行 demo_perl.pl脚本

下面看此文件内容：

  1. #!/usr/bin/perl 
  2. use strict; 
  3. our $session; 
  4.  
  5.  
  6. freeswitch::console_log("info", "Perl dialplan demo\n"); 
  7.  
  8. my ($string) = @_; 
  9.  
  10. #print "\n\n".Dumper(\@_)."\n\n"; 
  11.  
  12. my $id = $session->get_uuid(); 
  13.  
  14. freeswitch::console_log("info", " uuid $id\n"); 
  15.  
  16.  
  17. #### set and get variable 
  18.  
  19. $session->setVariable("lidp_name", "lidp"); 
  20. my $name = $session->getVariable("lidp_name"); 
  21. freeswitch::console_log("info", " lidp_name = $name\n"); 
  22.  
  23. $session->execute("playback", "/var/lib/asterisk/moh/macroform-cold_day.wav"); 
  24.  
  25. $session->hangup(); 
  26.  
  27.  
  28. return 1; 

如果想知道 mod_perl提供了那些函数，可以用这个命令列出来：

grep -o -P "^(\*[^=]+|############# Class.+)" freeswitch.pm

完。

FreeSWITCH 录制视频并播放

FreeSWITCH 音视频编码支持

FreeSWITCH 的详细介绍：请点这里
FreeSWITCH 的下载地址：请点这里

相关内容