23 lines
411 B
Perl
Executable File
23 lines
411 B
Perl
Executable File
#!/usr/bin/perl
|
|
use lib 'scripts/';
|
|
use YateMessage;
|
|
|
|
sub OnDTMF($) {
|
|
my $message = shift;
|
|
$message->warn("GOT DTMF %s\n",$message->param("text"));
|
|
#$message->dump();
|
|
|
|
}
|
|
|
|
sub OnNotify($) {
|
|
my $message = shift;
|
|
print "GOT Message.\n";
|
|
#$message->dump();
|
|
}
|
|
|
|
my $message = new YateMessage();
|
|
$message->install("chan.dtmf",\&OnDTMF,10);
|
|
$message->install("chan.notify",\&OnNotify);
|
|
|
|
$message->listen();
|