[Asterisk-cvs] asterisk-addons/res_perl/INC/apps demo.pl,NONE,1.1

[anthm at lists.digium.com]

Update of /usr/cvsroot/asterisk-addons/res_perl/INC/apps
In directory mongoose.digium.com:/tmp/cvs-serv2784/INC/apps

Added Files:
	demo.pl 
Log Message:
DoH forgot to add these files 

--- NEW FILE: demo.pl ---
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);
}