retronetworking
/
yate
12
0
Fork 2
Code Issues Pull Requests Projects Releases Wiki Activity

Made script work with latest anthm's library changes. 

git-svn-id: http://voip.null.ro/svn/yate@784 acf43c95-373e-0410-b603-e72c3f656dc1
This commit is contained in:
paulc 2006-05-13 12:33:07 +00:00
parent 94057fef04
commit 2833dbd94c
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
scripts/dtmf1.pl
View File

@ -1,6 +1,6 @@
#!/usr/bin/perl
use lib 'scripts/';
use YateMessage;
use Yate;
sub OnDTMF($) {
my $message = shift;
@ -15,7 +15,7 @@ sub OnNotify($) {
#$message->dump();
}
my $message = new YateMessage();
my $message = new Yate();
$message->install("chan.dtmf",\&OnDTMF,10);
$message->install("chan.notify",\&OnNotify);

2
scripts/noroute.pl
View File

@ -27,7 +27,7 @@ sub demo2($) {
return ("true","tone/dial");
}
my $message = new YateMessage();
my $message = new Yate();
$message->install("engine.timer",\&demo);
$message->install("call.route",\&demo2);
$message->listen();