我建了一个 Freeswitch 内核研究 交流群, 45211986, 欢迎加入, 另外,提供基于SIP的通信服务器及客户端解决方案, 承接 sip/ims 视频客户端开发,支持接入sip软交换,ims核心网,支持 语音,视频,即时通信功能,视频格式支持 h263,h264,mpeg4
软编软解,提供硬件编解码接口对接,提供服务器,有兴趣请联系我。
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.
<include>
<extension name="perl_demo">
<condition field="destination_number" expression="^4001$">
<action application="answer"/>
<action application="perl" data="demo_perl.pl" />
</condition>
</extension>
</include>
app perl 为mod_perl提供的api,执行 demo_perl.pl脚本
下面看此文件内容:
#!/usr/bin/perl
use strict;
our $session;
freeswitch::console_log("info", "Perl dialplan demo\n");
my ($string) = @_;
#print "\n\n".Dumper(\@_)."\n\n";
my $id = $session->get_uuid();
freeswitch::console_log("info", " uuid $id\n");
#### set and get variable
$session->setVariable("lidp_name", "lidp");
my $name = $session->getVariable("lidp_name");
freeswitch::console_log("info", " lidp_name = $name\n");
$session->execute("playback", "/var/lib/asterisk/moh/macroform-cold_day.wav");
$session->hangup();
return 1;
如果想知道 mod_perl提供了那些函数,可以用这个命令列出来:
grep -o -P "^(\*[^=]+|############# Class.+)" freeswitch.pm
完。。。。
运维网声明
1、欢迎大家加入本站运维交流群:群②:261659950 群⑤:202807635 群⑦870801961 群⑧679858003
2、本站所有主题由该帖子作者发表,该帖子作者与运维网 享有帖子相关版权
3、所有作品的著作权均归原作者享有,请您和我们一样尊重他人的著作权等合法权益。如果您对作品感到满意,请购买正版
4、禁止制作、复制、发布和传播具有反动、淫秽、色情、暴力、凶杀等内容的信息,一经发现立即删除。若您因此触犯法律,一切后果自负,我们对此不承担任何责任
5、所有资源均系网友上传或者通过网络收集,我们仅提供一个展示、介绍、观摩学习的平台,我们不对其内容的准确性、可靠性、正当性、安全性、合法性等负责,亦不承担任何法律责任
6、所有作品仅供您个人学习、研究或欣赏,不得用于商业或者其他用途,否则,一切后果均由您自己承担,我们对此不承担任何法律责任
7、如涉及侵犯版权等问题,请您及时通知我们,我们将立即采取措施予以解决
8、联系人Email:admin@iyunv.com 网址:www.yunweiku.com