![paulc](/assets/img/avatar_default.png)
Version header file is generated at configure time. Added soname in library. Proper handling of DTMF in IAX, H.323 and Zap. git-svn-id: http://yate.null.ro/svn/yate/trunk@133 acf43c95-373e-0410-b603-e72c3f656dc1
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();
|