demo.pl

linux下的PBX源码（SIP）

package Asterisk::Embed;

sub {
  my $chan_name = shift;
  my $chan = asterisk_get_channel_by_name($chan_name);
  asterisk_log("LOG_NOTICE","This Demo Plays a file you can control with # and * and hangs up! $_[0]\n");
  asterisk_control_streamfile($chan,"demo-instruct","#","*","1","0",3000);
  asterisk_soft_hangup($chan);
}