提交 ed2ef13e authored 作者: Brian West's avatar Brian West

dispatch examples update

git-svn-id: http://svn.freeswitch.org/svn/freeswitch/trunk@16923 d0543943-73ff-0310-b7d9-9358b9ac24b2
上级 f32d1b15
...@@ -17,11 +17,16 @@ sub heartbeat { ...@@ -17,11 +17,16 @@ sub heartbeat {
print Dumper $event; print Dumper $event;
} }
sub channel_hangup {
my $self = shift;
my $event = $self->{event_hash};
print "DO SQL GOODIES HERE!\n";
}
$0 = "ESL::Dispatch rocks!";
$daemon->set_worker(\&worker, 2000); $daemon->set_worker(\&worker, 2000);
$daemon->set_callback("heartbeat", \&heartbeat); $daemon->set_callback("heartbeat", \&heartbeat);
$daemon->set_callback("channel_hangup", \&heartbeat); $daemon->set_callback("channel_hangup", \&channel_hangup);
$daemon->run; $daemon->run;
Markdown 格式
0%
您添加了 0 到此讨论。请谨慎行事。
请先完成此评论的编辑!
注册 或者 后发表评论